mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır 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, nCmdB As CommandBar
    Dim nCtlP As CommandBarPopup, nCtlB As CommandBarButton
    For Each CmdB In Application.CommandBars
     If CmdB.Type = msoBarTypeMenuBar And _
        CmdB.Name = "Meine Menueleiste" Then
        CmdB.Delete
    End If
   Next CmdB
    Set nCmdB = Application.CommandBars.Add _
        (Name:="Meine Menueleiste", Position:=msoBarTop, _
        MenuBar:=True, Temporary:=True)
   With nCmdB
        .Protection = msoBarNoMove
        .Protection = msoBarNoChangeDock
        .Protection = msoBarNoChangeVisible
        .Protection = msoBarNoCustomize
        .Protection = msoBarNoVerticalDock
        .Visible = True
    End With
    Set nCtlP = nCmdB.Controls.Add(Type:=msoControlPopup)
   With nCtlP
        .Caption = "Mein Menue &1"
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=247)
   With nCtlB
        .Style = msoButtonCaption
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=109)
   With nCtlB
        .Style = msoButtonAutomatic
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=4)
   With nCtlB
        .BeginGroup = True
        .Style = msoButtonAutomatic
    End With
    Set nCtlP = nCmdB.Controls.Add(Type:=msoControlPopup)
   With nCtlP
        .Caption = "Mein Menue &2"
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=1)
   With nCtlB
        .Caption = "Mein VBA-Makro &1"
        .OnAction = "Me_001_Code01"
        .Style = msoButtonCaption
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=1)
   With nCtlB
        .BeginGroup = True
        .FaceId = 239
        .Caption = "Mein VBA-Makro &2"
        .OnAction = "Me_001_Code02"
        .Style = msoButtonIconAndCaption
    End With
End Sub

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

Public Sub Me_001_Code01()
       MsgBox "Die Option 'Mein VBA-Makro 1' wurde gewählt!", _
              vbInformation, "Code-Beispiel (Me_001)"
End Sub

Public Sub Me_001_Code02()
       MsgBox "Die Option 'Mein VBA-Makro 2' wurde gewählt!", _
              vbInformation, "Code-Beispiel (Me_001)"
End Sub

Public Sub Me_001_Delete()
    On Error Resume Next
       Application.CommandBars("Meine Menueleiste").Delete
    On Error GoTo 0
End Sub

Benzer Sonuçlar
No	Makro Adı
1	mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır
2	mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
5	makrolar kutusu ve makrolar görünsün
6	sayfa gizleme hiç göstermeme
7	araç çubuklarının özelleştirilmesi, dosya menüsü kalır
8	makroda bir veya birden çok değer döndürmek
9	ayrı sayfalardaki belli hücreleri toplatmak
10	Baskı Bu makro kodları, size daha fazla zaman kazandıracak bazı yazdırma görevlerini otomatikleştirmenize yardımcı olur. & Nbsp; Açıklamaları Yazdırın: Sayfanın sonundaki hücre yorumlarını basmak için ayarları etkinleştirmek için bu makroyu kullanın. Baskı yapmak için 10 sayfanız olduğunu varsayalım, bu kodu kullandıktan sonra 11. sayfadaki tüm yorumları alacaksınız.
11	Kesme, kopyalama ve yapıştırmayı iptal etme
12	aynı makroyla birden çok sayfaya kayıt yapmak
13	makronun otomatik olarak açılması ve çalışması
14	menü olarak saat ekleme (en güvenilir)
15	dosya, düzen menüsüne menü ekleme
16	klasör ve dosya makrolarındaki yolları kendine göre düzenle
17	gizli sayfada makro çalışır mı
18	dosya düzen menüsüne menü ekleme
19	userform mükemmel bir açılış efekti
20	30 excel dosyası içinde bir kelime aratma

Benzer Sonuçlar

Makro Adı

mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır

mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler

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

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

makrolar kutusu ve makrolar görünsün

sayfa gizleme hiç göstermeme

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

makroda bir veya birden çok değer döndürmek

ayrı sayfalardaki belli hücreleri toplatmak

Baskı Bu makro kodları, size daha fazla zaman kazandıracak bazı yazdırma görevlerini otomatikleştirmenize yardımcı olur. & Nbsp; Açıklamaları Yazdırın: Sayfanın sonundaki hücre yorumlarını basmak için ayarları etkinleştirmek için bu makroyu kullanın. Baskı yapmak için 10 sayfanız olduğunu varsayalım, bu kodu kullandıktan sonra 11. sayfadaki tüm yorumları alacaksınız.