sayfa üzerinde sağ klik menü 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 Auto_Open()
    PopUpMenu
End Sub
'
Sub PopUpMenu()
    Dim cb As CommandBar
    Set cb = Application.CommandBars("Cell")
    '
    Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject.Caption = "Benim Menüm"
    MenuObject.BeginGroup = True
    '
    With MenuObject
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro1"
            .FaceId = 7
            .Caption = "Alt Menüm - 1"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro2"
            .FaceId = 17
            .Caption = "Alt Menüm - 2"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro3"
            .FaceId = 27
            .Caption = "Alt Menüm - 3"
        End With
    End With
    '
    Set MenuObject2 = MenuObject.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject2.Caption = "Benim 2nci Seviye Menüm - 1"
    '
    With MenuObject2
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro4"
            .FaceId = 37
            .Caption = "2nci Seviye(1) Alt Menüm - 1"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "RaiderMacro5"
            .FaceId = 47
            .Caption = "2nci Seviye(1) Alt Menüm - 2"
        End With
    End With
    '
    Set MenuObject3 = MenuObject.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    MenuObject3.Caption = "Benim 2nci Seviye Menüm - 2"
    '
    With MenuObject3
        With .Controls.Add(Type:=msoControlButton, ID:=4)
            .Visible = True
        End With
        With .Controls.Add(Type:=msoControlButton, ID:=3)
            .Visible = True
        End With
        With .Controls.Add(Type:=msoControlButton, ID:=1695)
            .Visible = True
        End With
    End With
    '
    Set cb = Nothing
    Set MenuObject = Nothing
    Set MenuObject2 = Nothing
End Sub
'
Sub RaiderMacro1()
    MsgBox "RaiderMacro1 çalıştırıldı !" & vbCrLf & vbCrLf & "(AltMenü-1)"
End Sub
'
Sub RaiderMacro2()
    MsgBox "RaiderMacro2 çalıştırıldı !" & vbCrLf & vbCrLf & "(AltMenü-2)"
End Sub
'
Sub RaiderMacro3()
    MsgBox "RaiderMacro3 çalıştırıldı !" & vbCrLf & vbCrLf & "(AltMenü-3)"
End Sub
'
Sub RaiderMacro4()
    MsgBox "RaiderMacro4 çalıştırıldı !" & vbCrLf & vbCrLf & "(2nci Seviye AltMenü-1)"
End Sub
'
Sub RaiderMacro5()
    MsgBox "RaiderMacro5 çalıştırıldı !" & vbCrLf & vbCrLf & "(2nci Seviye AltMenü-2)"
End Sub
'
Sub Auto_Close()
    Application.CommandBars("Cell").Reset
End Sub

Benzer Sonuçlar
No	Makro Adı
1	sayfa üzerinde sağ klik menü
2	makrolar kutusu ve makrolar görünsün
3	sayfa silme & adlandırmayı engelleme
4	sayfa silme & adlandirmayi engeller
5	find menüsü oluşturma
6	sayfa gizleme hiç göstermeme
7	sayfadan var ise sayfaadi'ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak
8	hücredeki renge göre filtreleme
9	hücredeki yazi karakterinin rengine göre filtreleme
10	sayfada sabitlik
11	userform'u otomatik boyutlandırma
12	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
13	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
14	mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler
15	belli sayfada true-false kontrolü
16	comboboxa göre kayıt
17	c8:c18 arası hücrelerinde sola tıklayınca sağ fare menüsü çıksın
18	excel sayfasının isteğe göre kısıtlanması
19	sayfada sağ fareye menü
20	aktif sayfada sağ fare'de menü

Benzer Sonuçlar

Makro Adı

sayfa üzerinde sağ klik menü

makrolar kutusu ve makrolar görünsün

sayfa silme & adlandırmayı engelleme

sayfa silme & adlandirmayi engeller

find menüsü oluşturma

sayfa gizleme hiç göstermeme

sayfadan var ise sayfaadi'ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak

hücredeki renge göre filtreleme

hücredeki yazi karakterinin rengine göre filtreleme

sayfada sabitlik