come rilevare l'evento paste in excel

Question

Devo rilevare il comando paste di Excel. C'è un lavoro in giro che può dirci quando l'utente fa clic sulla pasta sul menu pop-up dal pulsante sinistro del mouse. Mi è richiesto di eseguire una procedura se l'utente fa clic sulla voce di menu Incolla. Qualsiasi aiuto sarebbe apprezzato.

saluti, Amit

Answer 1

prestito da Excel VBA How to detect if something was pasted in a Worksheet. L'evento Workbook_SheetChange verrà attivato per qualsiasi evento di modifica sulla pagina, inclusa una copia.

Da dentro questo evento, si può quindi controllare se l'ultima modifica è stata una pasta, cercando in più recente ingresso nella lista della cronologia degli annullamenti:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
    Dim lastAction As String 

    ' Get the last action performed by user 
    lastAction = Application.CommandBars("Standard").Controls("&Undo").List(1) 

    ' Check if the last action was a paste 
    If Left(lastAction, 5) = "Paste" Then 

    ' Do Stuff Here 

    End If 
End Sub