Bu eğitim size VBA'da gerçekten kullanışlı çeşitli kısayollar gösterecektir.
VBE'yi açmak için Alt + F11 tuşlarını kullanın
Genellikle Visual Basic Düzenleyicisine ulaşmak için Excel şeridindeki Visual Basic düğmesine tıklamanız gerekir. Ancak, Basabilirsiniz Alt + F11 Bunun yerine!
VBE'deki hızlı tuşlar
Ctrl+r- gösterir Proje Gezgini.
ctl+g - gösterir Hemen Pencere.
F4 - gösterir Özellikler Penceresi.
F2 - gösterir Nesne Tarayıcı.
F5 - çalıştırır prosedür içindesin.
F8 - kodda adım adım ilerlemenizi sağlar Kırmak modu.
Makro Kaydetme
VBA'yı öğrenmenin en iyi yollarından biri, bir makro kaydetmek ve ardından kodu analiz etmektir. Aynı zamanda kod yazmanın çok hızlı bir yoludur, ancak kaydedici HER tuş vuruşunu kaydeder, bu nedenle gereksiz satırları kaldırmak için kodunuzu düzenlemeniz gerekebilir.
Makro kaydedici tarafından kaydedilen aşağıdaki makroyu inceleyelim ve nasıl daha verimli hale getirebileceğimizi görelim.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 | Alt TestFormat()'' TestFormat Makrosu'' Klavye Kısayolu: Ctrl+Shift+T'ActiveCell.FormulaR1C1 = "Elma"Aralık("D3").SeçinActiveCell.FormulaR1C1 = "Armutlar"Aralık("E3").SeçActiveCell.FormulaR1C1 = "Şeftali"Aralık("C4").SeçActiveCell.FormulaR1C1 = "12"Aralık("D4").SeçActiveCell.FormulaR1C1 = "14"Aralık("E4").SeçActiveCell.FormulaR1C1 = "16"Aralık("C5").SeçActiveCell.FormulaR1C1 = "20"Aralık("D5").SeçActiveCell.FormulaR1C1 = "25"Aralık("E5").SeçinActiveCell.FormulaR1C1 = "26"Aralık("C6:E6").SeçAralık("E6").EtkinleştirSelection.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"Selection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneSelection.Borders(xlEdgeLeft).LineStyle = xlNoneSelection.Borders(xlEdgeTop) ile.LineStyle = xlSürekli.ColorIndex = 0.TintAndShade = 0.Ağırlık = xlİnceİle bitmekSelection.Borders(xlEdgeBottom) ile.LineStyle = xlDouble.ColorIndex = 0.TintAndShade = 0.Ağırlık = xlKalınİle bitmekSelection.Borders(xlEdgeRight).LineStyle = xlNoneSelection.Borders(xlInsideVertical).LineStyle = xlNoneSelection.Borders(xlInsideHorizontal).LineStyle = xlNoneAralık("C4:E6").SeçSelection.NumberFormat = _"_-[$$-tr-TR]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-tr-US]* "" -""??_ ;_-@_ "Aralık("C3:E3").SeçSelection.Font.Bold = DoğruAralık("C3").SeçActiveCell.FormulaR1C1 = "Elmalar"Alt Bitiş |
Şimdi aynı sonucu elde edecek olan aşağıdaki koda bakın
123456789101112131415161718192021 | Alt TestFormat()' Klavye Kısayolu: Ctrl+Shift+TAralık("C3") = "Elmalar"Aralık("D3") = "Armut"Range("E3") = "Şeftali"Aralık("C4") = 12Aralık("D4") = 14Aralık("C4") = 16Aralık("C5") = 20Aralık("D5") = 25Aralık("E5") = "26"Aralık("C6:E6").SeçSelection.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"Selection.Borders(xlEdgeTop).LineStyle = xlSürekliSelection.Borders(xlEdgeBottom).LineStyle = xlDoubleAralık("C4:E6").SeçSelection.NumberFormat = _"_-[$$-tr-TR]* #,##0.00_ ;_-[$$-en-US]* -#,##0.00 ;_-[$$-tr-US]* "" -""??_ ;_-@_ "Aralık("C3:E3").SeçSelection.Font.Bold = DoğruAlt Bitiş |
Çok fazla gereksiz kodu keserek ve mümkünse kayıtlı kodu değiştirerek makroyu çok daha etkili ve okunması kolay hale getirebiliriz.
Kişisel Makro çalışma kitabını kullanma
Bir makronun tüm Excel dosyalarınızda kullanılabilmesini istiyorsanız, makroyu Kişisel Makro çalışma kitabında saklayabilirsiniz - bu çalışma kitabı gizlidir ve Excel'de her zaman açıktır, burada herhangi bir makroyu depolar, global makrolar .
VBE pencerenizde Kişisel Makro Çalışma Kitabı görmüyorsanız, bir makro kaydedin ve Kişisel Makro çalışma kitabında saklanmasını belirtin.
Girinti Kodu
Kodunuzu girintili hale getirdiğinizde, hemen okunmasını ve başka birinin takip etmesini kolaylaştırırsınız. Birden çok kod satırını girintilemek için bunları seçip Sekme tuşuna basabilirsiniz.
Benzer şekilde, kodun dışına çıkmak için tuşuna basın. Shift+Sekme ve kod tekrar sola hareket edecektir.
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
Yorum Kodu
Kodunuza yorum eklemek, okumayı ve gezinmeyi kolaylaştırmanın başka bir yoludur. Aşağıda gösterildiği gibi satırın başına tek bir tırnak işareti koyarak koda bir yorum eklersiniz.
Küçük Harf Yazma
VBA, kodda Uygun Durum kullanır. Küçük harfle yazarsanız ve Doğru Harf olarak değişmezse, nerede hata yaptığınızı hızlıca görebilirsiniz.
Intellisense'i kullanma
Intellisense, kod yazarken açılır ve birlikte çalıştığınız nesne için mevcut olan tüm Özellikler, Yöntemler ve Olayların bir listesini verir. Normalde, kodunuzu yazarken nokta yazdıktan sonra otomatik olarak açılır.
tuşuna basarak da görünmesini zorlayabilirsiniz. ctl+j.
Benzer şekilde, Excel'de argüman alan işlevleri kullanırken, bunlar normalde otomatik olarak açılır.
basarak onları görünmeye zorlayabilirsiniz. ctl+i.
Otomatik Tamamlama
kullanabilirsiniz Ctrl+Boşluk kod yazarken otomatik tamamlamayı kullanmak için tuş kombinasyonu.
Yukarıdaki örnekte, tüm Özellikler, Yöntemler, Olaylar ve Değişkenler ile başlayan cadde seçim yapabileceğiniz listede görünecektir.
Seçenek Açık ve Derleme Kodu
Tüm modüllerinizin başında Option Explicit olduğundan emin olmak, tüm değişkenlerinizin bildirilmesini sağlar ve değişken adlarında yazım hatası yapmanızı engeller. Option Explicit açıksa ve kodunuzu derler veya çalıştırırsanız, bir değişken adı tanınmazsa bir hata alırsınız.
Anında Pencere ve Hata Ayıklama
Anında Pencere (kullanarak açabilirsiniz) ctl+g), bu hata ayıklama modundayken kodunuzda hata ayıklamanıza ve değişkenlerin değerini bulmanıza olanak tanır.
12345678 | Alt TestDeğişkenleri'değişkeni bildirDize olarak Dim strName'değişkeni doldurstrName = "Anne Smith"'Kodda adım adım ilerlemek için F8'i kullanın ve debug.print kullanarak değişken değeri hemen pencereye gönderinDebug.Print strNameAlt bitiş |