Copia-incolla non attiva worksheet_change

Question

Ecco cosa devo fare: quando ho scritto qualcosa in una cella nel foglio, il mio codice Worksheet_Change dovrebbe verificare se la cella contiene determinati caratteri e quindi sostituire quei caratteri. Quella parte del codice sta funzionando bene.

Tuttavia, c'è un comportamento un po 'strano. Ecco il codice finora:

Private Sub Worksheet_Change(ByVal Target As Range) 
     Target.Value = Replace(Target.Value, "ß", "ß") 

     MsgBox "This is the value: " & Target.Value 
    End Sub 

Quello che sta succedendo è che quando ho i caratteri che hanno bisogno di essere cambiato nella mia appunti (usando Ctrl +C). Quando faccio doppio clic sulla cella, incolla i caratteri nella cella utilizzando Ctrl + V, quindi premi Invio, il codice funziona perfettamente, i caratteri vengono modificati. (Nota: senza il doppio clic, non è possibile vedere il cursore.)

Tuttavia, se solo vado in cella con i miei tasti freccia e incollo su qualsiasi altra cosa nella cella, non succede nulla. Sospetto che lo Worksheet_Change non sia nemmeno attivato, altrimenti visualizzerebbe almeno il mio MsgBox.

(non so se è rilevante per questo, ma io sto usando Excel 2010 in Mac)

Answer 1

Utilizzare sempre proprietà EnableEvents quando si lavora con eventi Worksheet_Change. Per maggiori dettagli link

Private Sub Worksheet_Change(ByVal Target As Range) 

On Error GoTo err_rout 


    Application.EnableEvents = False 

    If Target.Count > 1 Then Exit Sub 

    Target.Value = Replace(Target.Value, "ß", "ß") 

    MsgBox "This is the value: " & Target.Value 

err_rout: 
    Application.EnableEvents = True 
End Sub 

Answer 2

È possibile utilizzare Worksheet_Calculate su un foglio di attivazione.

• creare un nuovo foglio che contiene solo un collegamento alla gamma che si desidera guardare (cioè = Foglio1! A1: B3)
• Aggiungere una macro denominata Worksheet_Calculate al foglio grilletto
• Ora ogni volta qualsiasi data nell'intervallo collegato viene attivato un ricalcolo del foglio di trigger che imposta la macro

Questo funziona anche quando l'utente immette una formula nella cella corrispondente e una delle modifiche precedenti.

Con il calcolo manuale il ricalcolo del foglio di trigger e la macro si verificano solo quando l'utente preme F9.

Answer 3

If Target.Column = 3 Then 
    Dim startRow As Integer 
    Dim endRow As Integer 
    startRow = Target.Row 
    endRow = Target.Row + Target.Count - 1 

    For i = startRow To endRow 
     ' blah blah blah 

forse aiuta