Descricao: |
Saberexcel_site_das_macros Esse procedimento do Aplicativo Microsoft Excel VBA, retorna a linha e coluna da célula selecionada, observe que aqui usamos o evento Selection Change, isso é, o evento ocorre ao selecionar determinada célula.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim vColuna As String, vLinha As Long, i As Integer vColuna = Replace(Target.Address, "$", "") 'guarda o simbolo $
For i = 0 To 9 vColuna = Replace(vColuna, i, "") ' guarda os números Next i
vLinha = Target.Row MsgBox ("Você Selecionou :" & Chr(13) & "Coluna.....: " & vColuna & Chr(13) & "Linha.......: " & _ vLinha & Chr(13) & "Celula......: " & Target.Address & Chr(13) & "Valor......: " & Target.Value), _ vbInformation, "Saberexcel - site das macros" End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Publicidade: Compre com segurança, qualidade e ótimos preços nas lojas SubMarino |