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 İste
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.exceldepo.com"
End Sub
Sub ED2()
    MsgBox "http://www.exceldestek.com"
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Ü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
50 Farklı Hazır Makro (VBA) Kodu
Hücrenin Arka Plan Rengini Değiştirme
Şeffaf UserForm Oluşturma Kodu
Otomatik Sıra Numarası Ekleme
Son Sütun Numarasını Bulma
2. Satırdaki Bilgileri Silmek
Sağ Tık ile Açılan Menüye Ekleme Yapma
56 Koşula Kadar Biçimlendirme Yapma
Transparan UserForm Oluşturmak
Tekrarlayan Verileri Vurgulama
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Satırlardaki Farkı Renklendirme
Başka Dosyada Şifreli Userform Oluşturmak
Kopyala ve Biçimleri Yapıştır
56 Renk Kodunu Sıralama
Makrolar ile Eliptik Form Oluşturma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Tüm Sütunda İşlem Yapan Döngü
Excel Makroları ile Klasör Silme
Kullanılan Tüm Sütunları Otomatik Sığdır
Excel Satır Seçme Kodu
Seçili Sütunların Sayısını Bulma
Sütun Genişliklerini Otomatik Ayarlama
Excel Makroları ile Hücreye Saat Ekleme
Program Başlangıcı Kodları
Tek Satırı Kes Kopyala ve Yapıştır
Dizileri İç İçe Döngüye Eklemek
Hesap Makinesini Açma
Dolar Okutma Makrosu
Sütun Genişliğini Ayarla
Excel Makroları ile Dosya Silme
Aktif Hücrenin Satır Numarasını Bulma
Excel Hücresini Seçme Makrosu
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Top 10 Değeri Renklendirme
2. Derece Denklemin Grafiğini Çizmek
Açılışta Üç Kere Şifre Hakkı Vermek
Kopyala ve Özel Yapıştır
Belirli Kriterlere Sahip Satırları Silme
Excel Menüsüne Ekleme Yapma Kodu
Bir Aralıktaki Minimum Değeri Renklendirme
Excel Makroları ile Dosya Taşıma
Excel Makro Modulü Silme Kodu
Aç Penceresini Açan Makro
Yorumları İçeren Hücreleri Renklendirme
Excel Dosya Arama Yapma Makrosu
Seçili Hücrenin Sütun Harfini Bulma
Yanıp Sönme Efekti Verme Kodu
UserForm Üzerinde Dört İşlem
Sütunu Kes Kopyala ve Yapıştır
Seçili Satırların Sayısını Bulma
Ü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.

ipucu18
Yükleniyor...