esegue automaticamente una macro di Excel su un cambio di cella

Come posso eseguire automaticamente una macro di Excel ogni volta che cambia un valore in una determinata cella?

In questo momento, il mio codice di lavoro è:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H5")) Is Nothing Then Macro
End Sub

dov'è "H5"la particolare cella monitorata ed Macroè il nome della macro.

C'è un modo migliore?

Il tuo codice sembra abbastanza buono.

Fai attenzione, tuttavia, perché la tua chiamata a Range("H5")è un comando di scelta rapida a Application.Range("H5"), che è equivalente a Application.ActiveSheet.Range("H5"). Questo potrebbe andare bene, se le uniche modifiche sono le modifiche dell'utente - che è la più tipica - ma è possibile che i valori delle celle del foglio di lavoro cambino quando non è il foglio attivo tramite modifiche programmatiche, ad esempio VBA.

Con questo in mente, utilizzerei Target.Worksheet.Range("H5"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("H5")) Is Nothing Then Macro
End Sub

Oppure puoi usare Me.Range("H5"), se il gestore dell'evento si trova nella codepage del foglio di lavoro in questione (di solito lo è):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then Macro
End Sub

Spero che questo ti aiuti...

Gestisci l' Worksheet_Changeevento o l' Workbook_SheetChangeevento.

I gestori di eventi accettano un argomento "Target As Range", quindi puoi controllare se l'intervallo che sta cambiando include la cella che ti interessa.

Ho passato molto tempo a fare ricerche e ad imparare come funziona, dopo aver davvero incasinato i trigger dell'evento. Dato che c'erano così tante informazioni sparse, ho deciso di condividere ciò che ho scoperto funzionare tutto in un unico posto, passo dopo passo come segue:

1) Apri VBA Editor, sotto VBA Project (YourWorkBookName.xlsm) apri Microsoft Excel Object e seleziona il foglio a cui si riferirà l'evento di modifica.

2) La visualizzazione del codice predefinita è "Generale". Dall'elenco a discesa in alto al centro, seleziona "Foglio di lavoro".

3) Private Sub Worksheet_SelectionChange è già lì come dovrebbe essere, lascialo stare. Copia / Incolla il codice di Mike Rosenblum dall'alto e cambia il riferimento .Range alla cella per la quale stai cercando un cambiamento (B3, nel mio caso). Tuttavia, non posizionare ancora la tua Macro (ho rimosso la parola "Macro" dopo "Allora"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then
End Sub

oppure dall'elenco a discesa in alto a sinistra, seleziona "Modifica" e nello spazio tra Private Sub e End Sub, incolla If Not Intersect(Target, Me.Range("H5")) Is Nothing Then

4) Nella riga dopo "Allora" disattiva gli eventi in modo che quando chiami la tua macro, non inneschi eventi e cerchi di eseguire nuovamente questo Worksheet_Change in un ciclo infinito che blocca Excel e / o altrimenti incasina tutto:

Application.EnableEvents = False

5) Chiama la tua macro

Call YourMacroName

6) Riattiva gli eventi in modo che la modifica successiva (e qualsiasi / tutti gli altri eventi) si attivi:

Application.EnableEvents = True

7) Termina il blocco If e il Sub:

    End If
End Sub

L'intero codice:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B3")) Is Nothing Then
        Application.EnableEvents = False
        Call UpdateAndViewOnly
        Application.EnableEvents = True
    End If
End Sub

Ciò elimina l'attivazione / disattivazione degli eventi dai moduli, il che crea problemi e consente semplicemente di attivare la modifica, disattivare gli eventi, eseguire la macro e riattivare gli eventi.

Preferisco in questo modo, non usando una cella ma un intervallo

    Dim cell_to_test As Range, cells_changed As Range

    Set cells_changed = Target(1, 1)
    Set cell_to_test = Range( RANGE_OF_CELLS_TO_DETECT )

    If Not Intersect(cells_changed, cell_to_test) Is Nothing Then 
       Macro
    End If

Ho una cella collegata al database delle scorte online e aggiornata frequentemente. Voglio attivare una macro ogni volta che il valore della cella viene aggiornato.

Credo che questo sia simile alla modifica del valore della cella da parte di un programma o qualsiasi aggiornamento di dati esterni, ma gli esempi sopra in qualche modo non funzionano per me. Penso che il problema sia perché gli eventi interni di Excel non vengono attivati, ma questa è la mia ipotesi.

Ho fatto quanto segue,

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Not Intersect(Target, Target.Worksheets("Symbols").Range("$C$3")) Is Nothing Then
   'Run Macro
End Sub