Notifications
Clear all

Chamada através de uma sub

5 Posts
1 Usuários
0 Reactions
648 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia à todos.
Por gentileza, será que os senhores poderiam me ajudar com mais uma quetão?

Eu gostaria de fazer a chamada dessa função através de uma sub.

Function ShowF(Rng As Range)
ShowF = Rng.Formula
End Function

Não estou conseguindo. Resolvi pedir ajuda aos senhores.
Desde já agradeço a todos

 
Postado : 22/07/2017 3:47 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde,

Como é uma função ela retorna um resultado que deve ser tratado, o que pode ser feito atribuindo a uma variável ou mostrando numa msgbox.
Exemplo 1:

Sub ChamarFuncao()
    Dim Resultado As String
    
    Resultado = ShowF([A1])
    MsgBox Resultado
End Sub

Exemplo 2:

Sub ChamarFuncao2()
    MsgBox ShowF([A1])
End Sub

Abraço

 
Postado : 22/07/2017 9:53 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola JValq.
Tudo bem?
Antes de tudo quero agradecer a ajuda.
A função, em questão, traz um resultado mediante a sua chamada em uma ou mais células da planilha.
Em geral em células vizinhas do tipo. [B1] resultando o que há em [A1], por exemplo.

Achei que seria possível utilizar uma Sub para chamar tal função a fins de tornar a planilha um pouco mais leve ao invés de digitar em [B1] ShowF.

No caso aplico em uma grande quantidade de células. Então, uma msg me traria a informação de forma momentânea. E não fixaria a informação na célula.

Supondo que tenha que aplicar a chamada na coluna até a última célula digitada na coluna [A], como seria?

Mais uma vez agradeço a ajuda.

 
Postado : 22/07/2017 2:07 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite,

Veja se a seguinte solução atende:

Sub IncluirFormulas()
    Dim Qt As Long
    
    Qt = [A1].CurrentRegion.Rows.Count
    
    Range("B1:B" & Qt).Formula = "=ShowF(A1)"
End Sub

Abraço

 
Postado : 25/07/2017 4:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá JValq.
Peço desculpas pela demora.
Olha era isso mesmo.
Muito eficaz
Mais uma vez agradeço a ajuda.

 
Postado : 27/07/2017 11:57 pm