Detalhes de vba linhas e colunas procedimento retorna linha coluna valor

Saberexcel - o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna a linha e coluna da célula ativa selecionada, retornando uma mensagem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vColuna As String
Dim vIncrementa As Integer
a = ActiveCell.Column
If ActiveCell.Value <> "" Then

Do
vIncrementa = a Mod 26
If vIncrementa = 0 Then vIncrementa = 26
vColuna = Chr(64 + vIncrementa) & vColuna
a = a \ 26

Loop While a > 0

MsgBox ("Você selecionou!" & Chr(13) & "Coluna ......: [" & vColuna & " ]" & _
Chr(13) & "Linha..........: [ " & ActiveCell.Row & " ]" & Chr(13) & _
"Valor..........: [ " & ActiveCell.Value) & " ]" & _
Chr(13) & "Endereço....: [ " & ActiveCell.Address & " ]", vbInformation, "Saberexcel - site das macros"
End If

End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA





Publicidade
Compre com segurança, garantia e bons preços nas lojas SubMarino