Kullanıcı tanımlı menü oluşturma / Üstte "Eklentiler" bölümüne kendiniz menü oluşturup onlara makro atayın  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. 
Sub AddMenus()

Dim cMenu1 As CommandBarControl

Dim cbMainMenuBar As CommandBar

Dim iHelpMenu As Integer

Dim cbcCutomMenu As CommandBarControl

'(1)Delete any existing one. We must use On Error Resume next _
 in case it does not exist.

On Error Resume Next

Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete

On Error GoTo 0

'(2)Set a CommandBar variable to Worksheet menu bar

Set cbMainMenuBar = _
     Application.CommandBars("Worksheet Menu Bar")

'(3)Return the Index number of the Help menu. We can then use _
 this to place a custom menu before.

iHelpMenu = _
     cbMainMenuBar.Controls("Help").Index

'(4)Add a Control to the "Worksheet Menu Bar" before Help.

'Set a CommandBarControl variable to it

Set cbcCutomMenu = _
     cbMainMenuBar.Controls.Add(Type:=msoControlPopup, _
                  Before:=iHelpMenu)

'(5)Give the control a caption

cbcCutomMenu.Caption = "&New Menu"

'(6)Working with our new Control, add a sub control and _
 give it a Caption and tell it which macro to run (OnAction).

With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

.Caption = "Menu 1"

.OnAction = "MyMacro1"

End With

'(6a)Add another sub control give it a Caption _
  and tell it which macro to run (OnAction)

With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

.Caption = "Menu 2"

.OnAction = "MyMacro2"

End With

'Repeat step "6a" for each menu item you want to add.

'Add another menu that will lead off to another menu

'Set a CommandBarControl variable to it

Set cbcCutomMenu = cbcCutomMenu.Controls.Add(Type:=msoControlPopup)

' Give the control a caption

cbcCutomMenu.Caption = "Ne&xt Menu"

'Add a contol to the sub menu, just created above

With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

.Caption = "&Charts"

.FaceId = 420

.OnAction = "MyMacro2"

End With

End Sub

Sub DeleteMenu()

On Error Resume Next

Application.CommandBars("Worksheet Menu Bar").Controls("&New Menu").Delete

On Error GoTo 0

End Sub

Sub MyMacro1()

MsgBox "I don't do much yet, do I?", vbInformation, "Ozgrid.com"

End Sub

Sub MyMacro2()

MsgBox "I don't do much yet either, do I?", vbInformation, "Ozgrid.com"

End Sub

Private Sub Auto_Open()

Run "AddMenus"

End Sub

Private Sub Auto_Close()

Run "DeleteMenu"

End Sub

Benzer Sonuçlar
No	Makro Adı
1	Kullanıcı tanımlı menü oluşturma / Üstte "Eklentiler" bölümüne kendiniz menü oluşturup onlara makro atayın
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	excel operatörleri hk
4	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
5	makrolar kutusu ve makrolar görünsün
6	dosya düzen çubuğuna menü ekleme silme
7	mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır
8	sözlük kodlari
9	menü olarak saat ekleme (en güvenilir)
10	aktif sayfada sağ fare'de menü
11	veri sıralar ve isim bulur
12	veri sıralar ve isim bulur
13	Özel Listelere Hızlı Erişim Ekle. Sağ Tıklama Menüsüne Özel Liste Erişimi Ekleme
14	mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler
15	userform otomatik boyutlandırma
16	userform'u otomatik boyutlandırma
17	Kesme, kopyalama ve yapıştırmayı iptal etme
18	seçilenin yazdırılması ve sorulması
19	sağ fareye menü
20	sayfada sağ fareye menü ekleme

Benzer Sonuçlar

Makro Adı

Kullanıcı tanımlı menü oluşturma / Üstte "Eklentiler" bölümüne kendiniz menü oluşturup onlara makro atayın

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

excel operatörleri hk

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

makrolar kutusu ve makrolar görünsün

dosya düzen çubuğuna menü ekleme silme

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

sözlük kodlari

menü olarak saat ekleme (en güvenilir)

aktif sayfada sağ fare'de menü