Como passar uma célula para a função?

2024 - VBA & Macros

Post Recente por Wilker12 6 anos atrás

6 Posts

3 Usuários

0 Reactions

1,866 Visualizações

RSS

Wilker12

(@wilker12)

Posts: 36

Eminent Member

Topic starter

Olá,
Preciso criar uma função para ser usada na planilha e ela precisa passar a célula, porém só está passando o valor da célula. Tipo:
Na tabela:
A1 tem valor =MAIÚSCULA("teste1")
B1 tem valor =MinhaFuncao(A1)

No módulo:

Function MinhaFuncao(celula)
    MsgBox celula.FormulaLocal
End Function

A função deveria receber a fórmula "=MinhaFuncao(A1)", mas dá erro. Quando altero ela só recebe o valor "TESTE1".
Como fazer a função passar a célula como um objeto em vez de passar só valor?

Grato!

Postado : 16/07/2018 2:31 pm

skulden

(@skulden)

Posts: 170

Estimable Member


Function MinhaFuncao(celula as Range)
    MsgBox celula.FormulaLocal
End Function

Se a resposta lhe foi útil, clique no joinha!

Postado : 16/07/2018 2:39 pm

Wilker12

(@wilker12)

Posts: 36

Eminent Member

Topic starter

Não funcionou...

Postado : 16/07/2018 2:45 pm

skulden

(@skulden)

Posts: 170

Estimable Member

Como não?

Veja o print anexo.

Manda a planilha que você está trabalhando, o erro então é outro.

Se a resposta lhe foi útil, clique no joinha!

Postado : 16/07/2018 2:55 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Option Explicit

Function MinhaFuncao(ByVal celula As String)
    MsgBox Range(celula).FormulaLocal
End Function

Sub teste()

MinhaFuncao ("A1")
End Sub

Postado : 16/07/2018 3:04 pm