aktif sayfada sağ fare'de 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.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ' don't display the built-in popup menu
    DisplayCustomPopUp
End Sub

'Modüle
Option Explicit
Const PopUpCommandBarName As String = "TemporaryPopupMenu"

Sub DeletePopUp()
    On Error Resume Next
    CommandBars(PopUpCommandBarName).Delete
    On Error GoTo 0
End Sub

Sub CreatePopUp()
Dim cb As CommandBar, m As CommandBarPopup
    DeletePopUp
    Set cb = CommandBars.Add(PopUpCommandBarName, msoBarPopup, False, True)
    With cb
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "MyMacroName"
            .FaceId = 71
            .Caption = "Custom Menu 1"
            .TooltipText = "Custom Tooltip Text 1"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "MyMacroName"
            .FaceId = 72
            .Caption = "Custom Menu 2"
            .TooltipText = "Custom Tooltip Text 2"
        End With
        With .Controls.Add(Type:=msoControlButton)
            .OnAction = "MyMacroName"
            .FaceId = 73
            .Caption = "Custom Menu 3"
            .TooltipText = "Custom Tooltip Text 3"
        End With
    
        Set m = .Controls.Add(Type:=msoControlPopup)
        With m
            .BeginGroup = True
            .Caption = "Sub Menu"
            
            With .Controls.Add(Type:=msoControlButton)
              .OnAction = "MyMacroName"
              .FaceId = 71
              .Caption = "Custom Menu 1"
              .TooltipText = "Custom Tooltip Text 1"
            End With
            With .Controls.Add(Type:=msoControlButton)
              .OnAction = "MyMacroName"
              .FaceId = 72
              .Caption = "Custom Menu 2"
              .TooltipText = "Custom Tooltip Text 2"
            End With
            With .Controls.Add(Type:=msoControlButton)
              .OnAction = "MyMacroName"
              .FaceId = 73
              .Caption = "Custom Menu 3"
              .TooltipText = "Custom Tooltip Text 3"
            End With
        End With
        Set m = Nothing
        
    End With
    Set cb = Nothing
End Sub

Sub DisplayCustomPopUp()
    On Error Resume Next
    Application.CommandBars(PopUpCommandBarName).ShowPopup
    On Error GoTo 0
End Sub

Sub DisplayExampleUserForm()
    Load UserForm1
    UserForm1.Show
    Unload UserForm1
End Sub

Sub MyMacroName()
Dim ctrl As CommandBarControl
    If Not UserForm1.Visible Then
        Set ctrl = Application.CommandBars.ActionControl
        ActiveCell.Formula = ctrl.Caption
        Set ctrl = Nothing
    Else
        If Application.International(xlCountrySetting) = 47 Then
            MsgBox "Dette kunne vært din egen makro som kjørte!", vbInformation, ThisWorkbook.Name
        Else
            MsgBox "This could be your macro running!", vbInformation, ThisWorkbook.Name
        End If
    End If
End Sub

Benzer Sonuçlar
No	Makro Adı
1	aktif sayfada sağ fare'de menü
2	sayfa silme & adlandirmayi engeller
3	sayfa silme & adlandırmayı engelleme
4	makrolar kutusu ve makrolar görünsün
5	aktif sayfada sağ fare yasak
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	sayfada sağ fareye menü ekleme
8	aktif sayfada a1 den itibaren alt alta 3 hücreyi kalın yapar
9	sayfada sağ fareye menü
10	hücre, sütun seçimleri
11	hücre ve sütun seçimleri
12	excel sayfasının isteğe göre kısıtlanması
13	aktif sayfadaki formülleri bulur yeni sayfaya listeler
14	sayfada sabitlik
15	aktif sayfada rakamla kelime birleştirme
16	aktif sayfada üst bilgi "my report" yazar "a1 den alır" (14 punto)
17	checkbox u işaretlettirme
18	renkli hücreye sadece rakam girme: msgbox
19	sayfanın aktif hücresinden aşağıya doğru sayfalarınıza köprü atılır
20	aktif hücreden aşağıya doğru sayfalara köprü atılır

Benzer Sonuçlar

Makro Adı

aktif sayfada sağ fare'de menü

sayfa silme & adlandirmayi engeller

sayfa silme & adlandırmayı engelleme

makrolar kutusu ve makrolar görünsün

aktif sayfada sağ fare yasak

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

sayfada sağ fareye menü ekleme

aktif sayfada a1 den itibaren alt alta 3 hücreyi kalın yapar

sayfada sağ fareye menü

hücre, sütun seçimleri