▲
Excel Dersleri Excel Dersleri
12

VBA Kodları ve Kısayolları

Bu derste Excel'de VBA kodlarına ve kısayollarına değineceğiz.

Sunucu masraflarının yüksek olması sebebiyle
AdBlock uygulamanızı bu site için devredışı bırakırsanız sevinirim.
Hepinize Başarılar Dilerim!
▼ ilkMakroKaydimiz (xlsm) ▼

İlk olarak sekizinci derste kaydettiğimiz ilkMakroKaydimiz adlı makro içerebilen çalışma kitabını masaüstünüze indirin ve açın.

Sub ilkMakroKaydimiz()
'
' ilkMakroKaydimiz Makro
' İlk makro kaydımız
'
' Klavye Kısayolu: Ctrl+Shift+B
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "deneme"
    Range("A1").Select
    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.499984740745262
        .PatternTintAndShade = 0
    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
    Range("B1").Select
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Kodlarımızı düzenlemeden ve kısaltmadan önceki hâli 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
        .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

Kodlarımızı düzenleyip kısalttıktan sonra daha hızlı çalışacaktır.

Sunucu masraflarının yüksek olması sebebiyle
AdBlock uygulamanızı bu site için devredışı bırakırsanız sevinirim.
Hepinize Başarılar Dilerim!
▼ ilkMakroKaydimiz (Son) (xlsm) ▼

Kodların son hâlini görebilmek için yukarıdaki bağlantıdan makro içerebilen Excel çalışma kitabını indirebilirsiniz.

Bir sonraki dersimizde Excel'de VBA Object Model kavramına değineceğiz.

<<< Bir Önceki Ders
Bir Sonraki Ders >>>

Ders Yorumları

Dersle ilgili görüşlerinizi ya da anlamadığınız her türlü konuyu yorum alanına yazabilirsiniz.