vba: eseguire macro su doppio click cella

[karug64]

Salve a tutti.
C'è la possibilità di eseguire macro diverse in base alla cella su cui eseguo un doppio click?

Es. A1=macro1
A2=macro2
A3=macro3

Grazie

[alfrimpa]

L'evento doppio click non è intercetta bile sull'oggetto Worksheet.

Comunque prova a dare uno sguardo a questa discussione di altro forum.

excelvba.it/Forum/thread.php?f=1&t=7833

Alfredo

[ricky53]

Ciao,
scusa Alfredo non è esatto: è intercettabile.

Prova con questo codice

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(0, 0) = "A1" Then
        MsgBox "Estato premuto il doppio click sulla cella 'A1'"  ' <<==== Va cancellata dopo le prove !!!
' QUI puoi mettere la chiamata alla macro che ti occorre
    Else
' QUI metti gli altri controlli  ... se sono più 3-4 conviene CASE ... SELECT
    End If
    Cancel = True
End Sub


[Anthony47]

Alfredo, non mi torna...
Si puo' usare un select case; tipo (esempio semplificato):

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'MsgBox (Target.Address)
Select Case Target.Address(0, 0)
    Case "A1"
        Call Macro1
    Case "A2"
        Call Macro2
       
' altri Case
'
'
End Select
'
End Sub

Ciao

[Anthony47]

Ciao Ricky
Ho cominciato a scrivere quando il tupo messaggio non c'era; lascio anche il mio perche' entra appena un po' piu' nel come richiamare le varie macro.
Ciao a tutti.

[ricky53]

Ciao Anthony,
certamente perché tu sei andato avanti sul suggerimento che gli avevo dato sul "CASE".


KARUG: leggi l'intervento di Anthony che applica il consiglio sul CASE

[alfrimpa]

Ciao Anthony

L'esempio del Select Case è stata la prima cosa cui ho pensato.

Ho scritto la macro identica alla tua (tranne per il fatto che avevo scritto Case Is e non solo Case non ricevendo nessun errore) ma non funzionava.

La non intercettabilità di questo evento l'avevo letta su altro forum.

Alfredo

P.S. Ma mi spieghi che differenza c'è tra il Case ed il Case Is; ho visto usare sia l'uno che l'altro.
Ho anche usato una serie di If.....Elseif etc. le ho provate tutte ma niente.
Tu la tua macro l'hai provata?
Non sono bravo come te e Ricky ma qualcosina col VBA riesco a farla

[karug64]

Ho provato il codice di Anthony.
Tutto ok.

Grazie

[Anthony47]

Alfredo, come vedi non e' sufficiente che "l'ha detto il forum" (nemmeno se lo leggi su pc-facile)....

L' uso della parola chiave Is e' obbligatoria quando c'e' poi un operatore di confronto valido (=, <, ...).

Comunque Case Is = "A1" oppure Case "A1" sono equivalenti

Altre combinazioni (esempi a caso):

Codice: Seleziona tutto

Select Case Target.Address(0, 0)
    Case "B1" To "B6"     'Attenzione, non indica l' intervallo B1:B6 !!
        Call macro1
    Case Is > "D2"      'Attenzione, non significa qualsiasi intervallo oltre D2 !!
        Call macro2
    Case "A10", "A15", "A22"
        Call Macro3
       
' altri Case
'
End Select

I motivi dei vari "Attenzione" sono legati alla logica del confronto tra stringhe, in cui, ad esempio, A12 e' inferore ad A2

Spero di non averti confuso oltre le mie intenzioni...

[alfrimpa]

Ciao Anthony

Innanzitutto ti ringrazio dei tuoi chiarimenti (sempre preziosi).

Mi rimane irrisolto il problema del perchè a me non funzionasse (ma ovviamente questo tu non me lo puoi dire); eppure avevo scritto Case Is = "A1" Call macro1.

Probabilmente avrò scritto qualche altra cavolata chi lo sa......

Comunque mi hai già chiarito delle cose e per questo ti ringrazio nuovamente.

Alfredo