makrolara kod ile kısayol atama nasıl yapılır?

[Selçuk1]

selamlar,

excelde makro kaydet özelliğini kullanırken, bize kaydedilen makroya kısayol atama şansı veriyor ve kaydı yapıyoruz.

peki manuel olarak yazılmış makrolarımıza kısa yol belirlemek için kod yazma şansımız var mı? yada bu kod nedir? nasıl kısayol atarız??

saygılar...

 

[Levent Menteşoğlu]

Bunu yine manuel olarak yapabilirsiniz. Araçlar-makro-makrolar makro adını seçin ve seçenekler butonuna basarak kısayolu atayın. Bu işlemi yaparken makro kaydet yöntemini kullanırsanız gerekli koduda elde etmiş olursunuz.

 

[Tankut SAZLI]

Aşağıdaki kodlarla daha önceden hazırda bulunan macrolarınıza kısayol tuşu atayabilirsiniz.

Sub auto_open()
Application.OnKey "^{g}", "macronuz1" 'çalıştırmak istediğiniz macronun ismini belirtin.Kısayol tuşu olarak Crtl+g atandı
Application.OnKey "^{s}", "macronuz2"
End Sub
Sub auto_close()
Application.OnKey "^{g}"
Application.OnKey "^{s}"
End Sub
'________________________
Sub macronuz1()
Msgbox "Tebrikler Ctrl+g tuşu ile macronuz1 çalıştı", , "Macronuz1"
End Sub
Sub macronuz2()
Msgbox "Tebrikler Ctrl+s tuşu ile macronuz2 çalıştı", , "Macronuz2"
End Sub

 

[Selçuk1]

Sn. Levent Bey ve Sn. Tankut Bey,

ilginize teşekkürler aradığım cevabı buldum.

saygılar..

 

[ocamsul]

Arkadaşlar konu ile ilgili bir sorum olacak; örneğin ctrl+q kısayol olayına BİRLEŞTİR işlevi ekliyebilirmiyiz?

 

[y_tekeli]

Kısayol kodları

Aşağıdaki kodları çalıştırmam için çalışma sayfasına mı yazmam gerekir yardımcı olabilirmisiniz.her hangi bir sayfa açıkken sadece belirlediğim sayfa dışında tüm sayfaları gizleyen bir koda kısayol yapmak istiyorum. ilgili macronun seçenekler kısmından 3 kombinasyonlu oluyor bunu aşağıdaki gibi 2 kombinasyonla yapabilmek istiyorum

Aşağıdaki kodlarla daha önceden hazırda bulunan macrolarınıza kısayol tuşu atayabilirsiniz.

Sub auto_open()
Application.OnKey "^{g}", "macronuz1" 'çalıştırmak istediğiniz macronun ismini belirtin.Kısayol tuşu olarak Crtl+g atandı
Application.OnKey "^{s}", "macronuz2"
End Sub
Sub auto_close()
Application.OnKey "^{g}"
Application.OnKey "^{s}"
End Sub
'________________________
Sub macronuz1()
Msgbox "Tebrikler Ctrl+g tuşu ile macronuz1 çalıştı", , "Macronuz1"
End Sub
Sub macronuz2()
Msgbox "Tebrikler Ctrl+s tuşu ile macronuz2 çalıştı", , "Macronuz2"
End Sub