Simgeleri Menüleri Ve Butonları Sayfaya Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kod
VBA:
Sub AddToolbar()
Dim myBar As CommandBar
Dim myButton1 As CommandBarButton
Dim myButton2 As CommandBarButton
' Araç çubuğunu oluştur
On Error Resume Next ' Eğer araç çubuğu zaten varsa hata önleme
Set myBar = Application.CommandBars.Add(Name:="My Custom Toolbar", Position:=msoBarTop, Temporary:=True)
On Error GoTo 0 ' Normal hata yakalama işlemine geri dön
' Araç çubuğunu görünür yap
myBar.Visible = True
' Birinci butonu ekle
Set myButton1 = myBar.Controls.Add(Type:=msoControlButton)
With myButton1
.Caption = "Button 1"
.Style = msoButtonCaption
.OnAction = "Button1_Click"
End With
' İkinci butonu ekle
Set myButton2 = myBar.Controls.Add(Type:=msoControlButton)
With myButton2
.Caption = "Button 2"
.Style = msoButtonCaption
.OnAction = "Button2_Click"
End With
End Sub
' Buton 1 için işlev
Sub Button1_Click()
MsgBox "Button 1 pressed"
End Sub
' Buton 2 için işlev
Sub Button2_Click()
MsgBox "Button 2 pressed"
End SubAçıklama
Bu kod parçası, Excel'de "My Custom Toolbar" adında yeni bir araç çubuğu oluşturur ve bu araç çubuğuna iki adet buton ekler. Her butonun basıldığında çalıştıracağı ayrı bir makro atanmıştır (Button1_Click ve Button2_Click). Bu makrolar sadece basit bir mesaj kutusu gösterir, ancak gereksinimlerinize göre daha karmaşık işlevler gerçekleştirecek şekilde genişletilebilirler.Nasıl Kullanılır
- Bu kodu Excel VBA editörüne yapıştırın ve AddToolbar makrosunu çalıştırın.
- Excel'in üst kısmında "My Custom Toolbar" adında yeni bir araç çubuğu görünecektir.
- Butonlara basıldığında, ilgili mesaj kutuları ekrana gelecektir.
Bu araç çubuğu ve butonlar, Excel'de sık kullanılan işlevlere hızlı erişim sağlamak için mükemmeldir. Özellikle büyük ve karmaşık çalışma kitaplarında, belirli işlevleri hızla çalıştırmak için kullanılabilirler.
Faydalanılması temennisiyle