By Joe Smith luni, 06 februarie 2023
postat în Excel
Răspunsuri 0
Preferințe 0
Vizualizări 1.8 K
Voturi 0
Bună ziua

Am întâlnit cod VBA care funcționează foarte bine pentru a declanșa o macrocomandă în Excel când dați clic pe o anumită celulă. Vezi mai jos:


Opțiune explicită

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dacă Selectie.Număr = 1 Atunci
Dacă nu se intersectează (țintă, interval ("D4")) nu este nimic, atunci
Apelați MyMacro
Final, dacă
Final, dacă
End Sub


Încerc să adaug încă 3 astfel de scenarii la același cod, dar nu am experiență cu codificare, așa că depanarea nu m-a dus nicăieri. Vă rugăm să vedeți mai jos exemplul a ceea ce încerc să fac și să corectați codul dacă este posibil:


Opțiune explicită

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dacă Selectie.Număr = 1 Atunci
Dacă nu se intersectează (țintă, interval ("D4")) nu este nimic, atunci
Apelați MyMacro1
Final, dacă
Final, dacă
Dacă Selectie.Număr = 1 Atunci
Dacă nu se intersectează (țintă, interval ("E10")) nu este nimic, atunci
Apelați MyMacro2
Final, dacă
Final, dacă
Dacă Selectie.Număr = 1 Atunci
Dacă nu se intersectează (țintă, interval ("G23")) nu este nimic, atunci
Apelați MyMacro3
Final, dacă
Final, dacă
Dacă Selectie.Număr = 1 Atunci
Dacă nu se intersectează (țintă, interval ("J33")) este nimic, atunci
Apelați MyMacro4
Final, dacă
Final, dacă
End Sub



Mă așteptam ca diferitele macrocomenzi pe care le-am creat (care funcționează bine) să ruleze automat când s-a făcut clic pe celulele notate în cod.


Orice ajutor va fi foarte apreciat!
Vizualizați mesajul complet