Excel Menüsüne Ekleme Yapma Kodu
26 Aralık 2020
27 Aralık 2020
765
Excel Menüsüne Ekleme Yapma Kodu isimli makro örneği, bir Excel dosyası açıldığında Araç Çubuklarına özel bir menü ekleyen kodlar içermektedir.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("XD Kolay Erişim").Delete
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars.Add(Name:="XD Kolay Erişim").Visible = True
Set myControl1 = Application.CommandBars("XD Kolay Erişim").Controls.Add(msoControlButton)
With myControl1
.FaceId = 71
.OnAction = "ED1"
.Caption = "ExcelDepo"
End With
Set myControl2 = Application.CommandBars("XD Kolay Erişim").Controls.Add(msoControlButton)
With myControl2
.FaceId = 72
.OnAction = "ED2"
.Caption = "ExcelDestek"
End With
End Sub
Sub ED1()
MsgBox "https://www.kolayexcel.com"
End Sub
Sub ED2()
MsgBox "http://www.exceldestek.com"
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Eğer özel bir Excel dosyanız olsun, açtığınızda o dosyaya özel hususların Şerit Menü üzerinden işlem yapılmasını istiyorsanız, bu kodlar tam size göre olacaktır. Kodları Visul Basic ekranında VBAProject'in BuÇalışmaKitabı kısmına eklemeniz gerekir. Kodlar açıldığı zaman menüye iki alan ekler, kapanırken de eklediği bu alanları siler.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |
| Eğik Yazdırma / Alternatif | Ctrl 3 |
| Hızlı Grafik Oluşturma | Alt F1 |