Saberexcel - o site das Macros Essas funções do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserem na folha de planilha na celula ativa a letra da coluna correspondente, isto é, onde a função foi inserida. Para facilitar o teste inserí umas macros auxliares para facilitar no teste. Espero que isso possam ajudá-los em alguma coisa. Fiquem com Deus. E_Marcondes
Option Explicit
Function Coluna_Letra$(Optional ByVal vColuna%) Dim Target As Range Set Target = Application.Caller If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna) Coluna_Letra$ = Target.Address(True, False) Coluna_Letra$ = Left(Coluna_Letra, InStr(1, Coluna_Letra, "$") - 1) End Function
Function MostraColuna$(Optional ByVal vColuna%) Dim Target As Range Set Target = Application.Caller If vColuna <> 0 Then Set Target = Target.EntireRow.Cells(, vColuna) MostraColuna = Target.Address(True, False) MostraColuna = Left(MostraColuna, InStr(1, MostraColuna, "$") - 1) End Function
'macros abaixo são para auxiliar no teste do usuario desenvolvedor Sub Inserindo_Funcoes_teste() [C1].Value = "Observe, macro desloca 1 linha acima, portanto se inserir na linha 1 gera erro" ActiveCell.Offset(-1, 0).Value = "Inserindo funções para teste na célula Ativa" ActiveCell.FormulaR1C1 = "=MostraColuna()" ActiveCell.Offset(0, 1).FormulaR1C1 = "'=MostraColuna()"
ActiveCell.Offset(2, 1).Select
ActiveCell.FormulaR1C1 = "=Coluna_Letra()" ActiveCell.Offset(0, 1).FormulaR1C1 = "'=Coluna_Letra()"
ActiveCell.Offset(1, 0).Select Range("G20").Select End Sub
Sub limpar() Cells.ClearContents End Sub
Sub visualizar_macro() Dim resposta As String resposta = MsgBox("Deseja visualizar macros no módulo VBE", vbYesNo + vbInformation, "Saberexcel - site das macros") If resposta = vbYes Then Application.Goto reference:="Coluna_Letra" Else Saber1.Shapes("sb").Visible = True End If End Sub
Sub oc() 'observe que aqui eu usei o nome da folha de código da folha de planilha (se mudar o nome da planilha nao gera erro - Saber1) Saber1.Shapes("sb").Visible = False End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
|