araç çubuklarını açılır kutuya ekler, oradan seçersin Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Private Sub Workbook_Open()
    Dim CmdB As CommandBar
    Dim Ctl As CommandBarControl, nCtlC As CommandBarComboBox
    For Each Ctl In Application.CommandBars("Worksheet Menu Bar") _
        .Controls
     If Ctl.Type = msoControlComboBox And _
        Ctl.Caption = "Symbolleistenauswahl" Then
        Ctl.Delete
    End If
   Next Ctl
   With Application.CommandBars("Worksheet Menu Bar")
    Set nCtlC = .Controls.Add(Type:=msoControlComboBox, _
        Before:=.Controls.Count, Temporary:=True)
    End With
   With nCtlC
        .Caption = "Symbolleistenauswahl"
        .OnAction = "Me_007_Visible"
    For Each CmdB In Application.CommandBars
     If CmdB.Type = msoBarTypeNormal Then
        .AddItem CmdB.NameLocal
    End If
   Next CmdB
        .DropDownLines = 20
        .Width = 150
        .ListIndex = 1
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call Me_007_Delete
End Sub

Public Sub Me_007_Visible()
   Dim CmdB As CommandBar
   Dim CtlC As CommandBarComboBox
   Dim CmdBName As String 'Dim CmdBName$
   Set CtlC = Application.CommandBars("Worksheet Menu Bar") _
       .Controls("Symbolleistenauswahl")
       CmdBName = CtlC.List(CtlC.ListIndex)
   For Each CmdB In Application.CommandBars
    If CmdB.Type = msoBarTypeNormal And _
       CmdB.NameLocal = CmdBName Then
       CmdB.Visible = True
  Exit Sub
   End If
  Next CmdB
       MsgBox "Die Symbolleiste '" & CmdBName & "' existiert" & _
              " nicht!", _
              vbInformation, "Code-Beispiel (Me_007)"
End Sub

Public Sub Me_007_Delete()
    On Error Resume Next
       Application.CommandBars("Worksheet Menu Bar") _
       .Controls("Symbolleistenauswahl").Delete
    On Error GoTo 0
End Sub

Benzer Sonuçlar
No	Makro Adı
1	araç çubuklarını açılır kutuya ekler, oradan seçersin
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	makrolar kutusu ve makrolar görünsün
4	tüm araç çubuklarını listele
5	araç çubuklarının özelleştirilmesi, dosya menüsü kalır
6	Özel Araç Çubuklarını Göster / Gizle & Excel'in Yerel Araç Çubuklarını Kaldırma / Geri Yükleme
7	excel'de standart araç çubuklarını kaldırmak
8	araç çubuklarının özelleştirilmesi ve geri dönmesi
9	dosya menüsü hariç diğer araç çubuklarının gizlenmesi
10	aktif bulunan araç çubuklarını sayar, sıralar
11	araç çubuklarının hepsini kaldırma
12	ekrandaki araç çubuklarını kaldırır ve getirir
13	sayfalara araç çubuklu ve menülü geçiş
14	sayfa silme & adlandirmayi engeller
15	sayfa silme & adlandırmayı engelleme
16	"Araç Çubukları Ekle" Dialog Penceresi
17	Seçimden Bir Karakteri Kaldırın: Seçili bir hücreden belirli bir karakteri kaldırmak için bu kodu kullanabilirsiniz. Silmek istediğiniz karakteri girmek için bir giriş kutusu gösterecektir.
18	araç çubuklarına resetleme
19	araç çubuğu ekleme
20	excel operatörleri hk

Benzer Sonuçlar

Makro Adı

araç çubuklarını açılır kutuya ekler, oradan seçersin

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

makrolar kutusu ve makrolar görünsün

tüm araç çubuklarını listele

araç çubuklarının özelleştirilmesi, dosya menüsü kalır

Özel Araç Çubuklarını Göster / Gizle & Excel'in Yerel Araç Çubuklarını Kaldırma / Geri Yükleme

excel'de standart araç çubuklarını kaldırmak

araç çubuklarının özelleştirilmesi ve geri dönmesi

dosya menüsü hariç diğer araç çubuklarının gizlenmesi

aktif bulunan araç çubuklarını sayar, sıralar