Debug Hata Ayıklayıcısı Kullanımı
Bu derste VBA'de Debug yani hata ayıklayıcısını nasıl kullanabileceğimizi öğreneceğiz.
İlk olarak 12nci derste kaydettiğimiz ilkMakroKaydimiz (Son) adlı makro içerebilen Excel çalışma kitabını masaüstünüze kaydediniz ve çalıştırınız.
AdBlock uygulamanızı bu site için devredışı bırakırsanız sevinirim.
Hepinize Başarılar Dilerim!
Debug'ı (hata ayıklayıcısını) kullanabilmek için öncelikle kodumuzda herhangi bir yere tıklıyoruz ve ardından menüden Debug'a tıkladıktan sonra Step Into'yu seçiyoruz ya da doğrudan F8'e basıyoruz.
Sub ilkMakroKaydimiz()
' ilkMakroKaydimiz Makro
' İlk makro kaydımız
' Klavye Kısayolu: Ctrl+Shift+B
Range("A1").Select
ActiveCell.FormulaR1C1 = "deneme"
Selection.Font.Bold = True
With Selection.Font
.ThemeColor = xlThemeColorAccent5
.TintAndShade = -0.249977111117893
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
Selection.Copy
Range("C1:E7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
Debug'dan önce kodlarımız yukarıdaki gibi görüntülenecektir.
Sub ilkMakroKaydimiz()
' ilkMakroKaydimiz Makro
' İlk makro kaydımız
' Klavye Kısayolu: Ctrl+Shift+B
Range("A1").Select
ActiveCell.FormulaR1C1 = "deneme"
Selection.Font.Bold = True
With Selection.Font
.ThemeColor = xlThemeColorAccent5
.TintAndShade = -0.249977111117893
End With
With Selection.Interior
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
End With
Selection.Copy
Range("C1:E7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
Debug'dan sonra kodlarımız daha da kısalacaktır.
AdBlock uygulamanızı bu site için devredışı bırakırsanız sevinirim.
Hepinize Başarılar Dilerim!
Debug'dan sonra oluşturduğumuz makro içerebilen Excel çalışma kitabını yukarıdaki bağlantıdan indirebilirsiniz.
Bir sonraki dersimizde Range ve Cells nesnelerinin nasıl kullanıldığını öğreneceğiz.