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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



   Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha vba linhas e colunas procedimento retorna linha coluna valor (18.56 kB)



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