mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler 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 nCtlB As CommandBarButton
    For Each CmdB In Application.CommandBars
     If CmdB.Type = msoBarTypePopup And _
        CmdB.Name = "Mein Kontextmenue" Then
        CmdB.Delete
    End If
   Next CmdB
    Set nCmdB = Application.CommandBars.Add _
        (Name:="Mein Kontextmenue", Position:=msoBarPopup, _
        Temporary:=True)
    Set nCtlB = nCmdB.Controls.Add(ID:=1)
   With nCtlB
        .Caption = "Mein VBA-Makro &1"
        .OnAction = "Me_002_Code"
        .Style = msoButtonCaption
    End With
    Set nCtlB = nCmdB.Controls.Add(ID:=1)
   With nCtlB
        .FaceId = 239
        .Caption = "Mein VBA-Makro &2"
        .OnAction = "Me_002_Code"
        .Style = msoButtonIconAndCaption
    End With
    Set nCtlB = nCmdB.Controls.Add(ID:=247)
   With nCtlB
        .BeginGroup = True
        .Style = msoButtonCaption
    End With
    Set nCtlB = nCmdB.Controls.Add(ID:=109)
   With nCtlB
        .Style = msoButtonAutomatic
    End With
    Set nCtlB = nCmdB.Controls.Add(ID:=4)
   With nCtlB
        .BeginGroup = True
        .Style = msoButtonAutomatic
    End With
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
        ByVal Target As Excel.Range, Cancel As Boolean)
        Cancel = True
     On Error GoTo Fehler
        Application.CommandBars("Mein Kontextmenue").ShowPopup
   Exit Sub
Fehler:
Cancel = False
End Sub

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

Public Sub Me_002_Code()
       MsgBox "Die Option 'Mein VBA-Makro " & _
              Application.CommandBars("Mein Kontextmenue") _
              .Controls(Application.Caller(1)).Index & _
              "' wurde gewählt!", _
              vbInformation, "Code-Beispiel (Me_002)"
End Sub

Public Sub Me_002_Delete()
    On Error Resume Next
       Application.CommandBars("Mein Kontextmenue").Delete
    On Error GoTo 0
End Sub

Benzer Sonuçlar
No	Makro Adı
1	mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler
2	mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	forma otomatik resim getirme
5	hücredeki yazi karakterinin rengine göre filtreleme
6	makroda bir veya birden çok değer döndürmek
7	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
8	yapılan kaydı hafızada tutma
9	değişen hücreleri göster
10	Dosyayı kim açtı 2
11	makrolar kutusu ve makrolar görünsün
12	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.
13	dosyayı kim ne zaman hangi tarihte açtı txt
14	dosyayı kim açtı
15	Özel Sayfaları Yazdır: Yazdırma seçeneklerinden ayarı kullanmak yerine, bu kodu, özel sayfa aralığı yazdırmak için kullanabilirsiniz. 5 ila 10 arasındaki sayfaları yazdırmak istediğinizi varsayalım. Sadece bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterlidir.
16	aktif sayfada yazı yaz tarih ve saat,dakika,saniyesi ile açıklama ekler ve açıklamaları siler
17	makronun otomatik olarak açılması ve çalışması
18	eğer sayfa boş ise alt bilgiye tarihi ekler değilse ekleyer ve yazdırır
19	ip numarasi gösterecek makro
20	listbox1de değişken

Benzer Sonuçlar

Makro Adı

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

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

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

forma otomatik resim getirme

hücredeki yazi karakterinin rengine göre filtreleme

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

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

yapılan kaydı hafızada tutma

değişen hücreleri göster

Dosyayı kim açtı 2