Excel Menüsüne Ekleme Yapma Kodu
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.
XD Destek İstePrivate 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.exceldepo.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.
#Excel Menüsüne Ekleme Yapma Kodu
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum
Daha önce yorum yapılmamış!
Excel'de bir liste oluşturduğumuz zaman, verilerin bulunduğu en sağdaki hücreye gitmenin en kolay yolu; Ctrl + › (Sağ Ok) tuşudur.
Fareyi kullanarak en sağdaki hücreye gitmek için, listenizde herhangi bir hücre seçin.
Seçmiş olduğunuz hücrenin sağ sınır çizgisine çift tıklayın.
Bu şekilde, listenin en sağına hızlı bir şekilde gitmiş olursunuz.
Tekrar en sola dönmek isterseniz, Ctrl + ‹ (Sol Ok) tuşlarına basmanız, aynı işlemi fare ile yapmak isterseniz ise, seçili hücrenin sol sınır çizgisine çift tıklamanız yeterli olacaktır.
Fareyi kullanarak en sağdaki hücreye gitmek için, listenizde herhangi bir hücre seçin.
Seçmiş olduğunuz hücrenin sağ sınır çizgisine çift tıklayın.
Bu şekilde, listenin en sağına hızlı bir şekilde gitmiş olursunuz.
Tekrar en sola dönmek isterseniz, Ctrl + ‹ (Sol Ok) tuşlarına basmanız, aynı işlemi fare ile yapmak isterseniz ise, seçili hücrenin sol sınır çizgisine çift tıklamanız yeterli olacaktır.