Acione a macro com UM clique em uma célula específica

Question

Você se importaria de apontar uma maneira de iniciar uma macro no Excel 2010 clicando apenas uma vez em uma célula especificada? Eu tinha visto uma solução em algum lugar, mas agora não posso rastreá-lo de volta.

    

Answer 1

O código a seguir será disparado quando a célula D4 for clicada na planilha.

Clique com o botão direito na guia da planilha e selecione "Exibir código". Cole isso na janela de código:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            MsgBox "Hello World"
        End If
    End If
End Sub

Ajuste a referência da célula de "D4" para refletir sua célula desejada. Substitua a linha MsgBox pelo seu código desejado.

    

Answer 2

Aqui está uma abordagem ligeiramente diferente da pergunta original, que pode atender a alguns aplicativos.

' Make the desired cell a hyperlink to itself ...
With ThisWorkbook.Sheets(mysheet)
  .Hyperlinks.Add Anchor:=.Cells(myrow,mycol), Address:="", SubAddress:="R[0]C[0]"
End With

' ... and then let the handler for the FollowHyperlink event do the business: 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  Debug.Print "clicked " & Target.TextToDisplay & " on row " & Target.Range.Row
End Sub

    

Answer 3

O evento Worksheet_SelectionChange NÃO é disparado, a menos que o valor da célula seja alterado. Basta clicar na célula NÃO dispara o evento.