- Abra o Excel.
- Abra o editor do VBA (Alt-F11).
- No painel Project, clique duas vezes na planilha na qual deseja aplicar isso.
- Na janela de código que é aberta, insira o seguinte:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) MsgBox ActiveCell.Row End Sub
- Feche o editor do VBA.
- Agora, quando você clica / move para células diferentes, ele exibe uma caixa de diálogo informando a linha da célula atual.
- Você poderia atribuir os resultados a uma variável em vez de usar uma MsgBox se precisar usar o valor em algum outro lugar.
Adicionalmente / Alternativamente você pode criar sua própria função que retorna a linha quando referenciada ... Algo como:
Public Function MyCustomSub() As Integer
MyCustomSub = ActiveCell.Row
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
MsgBox MyCustomSub()
End Sub
Isso deve ter muitas informações para ajudar a fornecer opções para você realizar exatamente o que você deseja fazer.