Anonim kullanıcı
  Pazartesi, 06 Şubat 2023
  0 Cevaplar
  1.8K Ziyaret
İyi günler

Belirli bir hücreye tıklandığında Excel'de bir makroyu tetiklemek için gerçekten iyi çalışan VBA koduyla karşılaştım. Aşağıya bakınız:


Seçenek Açıkça

Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Selection.Count = 1 ise
Kesişmiyorsa(Hedef, Aralık("D4")) O Zaman Hiçbir Şey Değildir
MyMacro'yu Ara
Eğer son
Eğer son
End Sub


Aynı koda bu tür 3 senaryo daha eklemeye çalışıyorum, ancak kodlama konusunda deneyimim yok, bu nedenle sorun giderme beni hiçbir yere götürmedi. Lütfen yapmaya çalıştığım şeyin aşağıdaki örneğine bakın ve mümkünse kodu düzeltin:


Seçenek Açıkça

Özel Alt Çalışma Sayfası_SelectionChange (ByVal Target As Range)
Selection.Count = 1 ise
Kesişmiyorsa(Hedef, Aralık("D4")) O Zaman Hiçbir Şey Değildir
MyMacro1'i arayın
Eğer son
Eğer son
Selection.Count = 1 ise
If Not Intersect(Hedef, Menzil("E10")) O Zaman Hiçbir Şey Değildir
MyMacro2'i arayın
Eğer son
Eğer son
Selection.Count = 1 ise
If Not Intersect(Hedef, Menzil("G23")) O Zaman Hiçbir Şey Değildir
MyMacro3'i arayın
Eğer son
Eğer son
Selection.Count = 1 ise
If Not Intersect(Hedef, Menzil("J33")) O Zaman Hiçbir Şey Değildir
MyMacro4'i arayın
Eğer son
Eğer son
End Sub



Oluşturduğum (iyi çalışan) çeşitli makroların, kodda belirtilen hücrelere tıklandığında otomatik olarak çalışmasını bekliyordum.


Herhangi yardım çok makbule geçer!
Bu gönderi için henüz cevap yok.