İ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!