Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba - Hallo sahabat TUTORIAL CUY, Pada Artikel yang anda baca kali ini dengan judul Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel MICROSOFT, Artikel MS EXCEL, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba
link : Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba

Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba

Membuat Menu Baru Di Worksheet Menu Bar Excel

Tutorial kali ini judulnya panjang banget ya ??? hehehe. Saya sendiri juga galau mau kasih judul yang pendek nya menyerupai apa ya ???. Begini saya kasih judul menyerupai ini buk

an tanpa alasan, ini semoga Kamu yang membaca tutorial ini nantinya sanggup lebih tahu maksud atau istilah-isilah yang akan saya jelaskan di tutorial ini. Tapi jikalau memang Kamu masih belum mengerti maksudnya, begini deh saya jelasin dulu sekalian saya kasih screen shoot nya aja ya ?.  Maksud dari sajian gres ini ialah bahwa kita akan menciptakan suatu sajian perhiasan di dalam worksheet Excel dengan memakai arahan macro VBA yang tersedia di Excel. Menu gres yang akan kita buat ini sebelumnya tidak tersedia di dalam Excel tapi di tutorial ini kita akan membuatnya sendiri dengan arahan VBA Excel dan kata-kata ataupun bahasa yang di tampilkan pada sajian gres ini sanggup kita sesuaikan berdasarkan kebutuhan kita. Sebagai rujukan disini pribadi aja deh lihat screenshootnya biar terang !!! 

Selain memakai arahan macro VBA, untuk menciptakan sajian juga sanggup kita lakukan melalui perintah yang sudah di sediakan oleh excel sehingga kita sanggup menciptakan custom toolbar sendiri. Namun pada tutorial kali ini saya lebih akan menjelaskan bagaimana Tutorialnya menciptakan sajian perhiasan ini dengan memakai arahan macro VBA di Excel.  Prinsip kerja arahan macro yang akan kita buat ini yaitu pada ketika kita membuka suatu file excel maka seTutorial otomatis akan ditambahkan sajian gres pada Worksheet Menu Bar Excel Kita … dan sebaliknya pada ketika kita tutup filenya menu-menu tersebut akan menghilang.

Ya pengertian singkatnya berdasarkan saya ada dua macam kontrol yang sanggup kita tambahkan yaitu :

1. Menu yang berupa ControlPopup dan
2. Menu Item yang berupa ControlButton

Perbedaan keduanya ialah Pada ControlPopup kita sanggup menambahkan kontrol-kontrol lain, kontrol-kontrol yang sanggup kita tambahkan sanggup berupa ControlPopup maupun ControlButton, sedangkan pada ControlButton tidak sanggup kita tambahkan kontrol lainnya. 

Sekarang kita akan menambahkan sajian gres pada Worksheet Menu Bar …  sebagai rujukan kita buat sajian yang kita kasih nama “User Menu” yang terdiri atas :

1. SubMenu1, yang berupa ControlPopup , terdiri atas :

• MenuItem1, yang berupa ControlButton yang terhubung dengan macro1
• MenuItem2, yang berupa ControlButton yang terhubung dengan macro2
• MenuItem3, yang berupa ControlButton yang terhubung dengan macro3

2. SubMenu2, yang berupa ControlPopup , terdiri atas :

• MenuItem4, yang berupa ControlButton yang terhubung dengan macro4
• MenuItem5, yang berupa ControlButton yang terhubung dengan macro5
• SubSubMenu1, yang berupa ControlPopup , terdiri atas :
• MenuItem6, yang berupa ControlButton yang terhubung dengan macro6
• MenuItem7, yang berupa ControlButton yang terhubung dengan macro7

3. MenuItem8, yang berupa ControlButton yang terhubung dengan macro8

Sekarang kita menciptakan macro Auto_Close terlebih dahulu … kode-kode ini akan dijalankan pada ketika WorkBook di Close … berisi arahan macro yang berfungsi untuk menghilangkan sajian yang dimaksud (yang saya kasik nama “User Menu”) dari Menu Bar. 

Sub Auto_Close()

On Error Resume Next

Application.CommandBars(“Worksheet Menu Bar”).Controls(“ContohMenu”).Delete

End Sub

Kode-kode untuk menyusun sajian “User Menu” saya taruh di macro Auto_Open … semoga setiap kali dibuka maka otomatis sajian “User Menu” juga di load.

Sub Auto_Open()

      Auto_Close

      Set Menu1 = CommandBars(“Worksheet Menu Bar”).Controls.Add(Type:=msoControlPopup, Temporary:=True)

            Menu1.Caption = “&User Menu”

            Menu1.BeginGroup = True

      Set SubMenu1 = Menu1.Controls.Add(Type:=msoControlPopup, Temporary:=True)

            SubMenu1.Caption = “&Input Data″

      Set SubMenu2 = Menu1.Controls.Add(Type:=msoControlPopup, Temporary:=True)      

           SubMenu2.Caption = “&Laporan″

      Set CtrlBtn8 = Menu1.CommandBar.Controls.Add(Type:=msoControlButton, ID:=1)

            With CtrlBtn8

                  .Caption = “&Print”

                  .TooltipText = “Menu Item 8″

                  .Style = msoButtonCaption

                  .OnAction = “macro8″

                  .BeginGroup = True

            End With

      Set Ctrl1 = SubMenu1.CommandBar.Controls _

            .Add(Type:=msoControlButton, ID:=1)

      With Ctrl1      

            .Caption = “&Data Anggota”

            .TooltipText = “MenuItem 1″

            .Style = msoButtonCaption

            .OnAction = “macro1″

        End With

Set Ctrl2 = SubMenu1.CommandBar.Controls _

            .Add(Type:=msoControlButton, ID:=1)

With Ctrl2

            .Caption = “&Data Nilai”

            .TooltipText = “MenuItem 2″

            .Style = msoButtonCaption

            .OnAction = “macro2″

         End With

Set Ctrl3 = SubMenu1.CommandBar.Controls _

            .Add(Type:=msoControlButton, ID:=1)

With Ctrl3

            .Caption = “&Data Peminjaman Buku”

            .TooltipText = “MenuItem 3″

            .Style = msoButtonCaption

            .OnAction = “macro3″

End With

Set Ctrl4 = SubMenu2.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl4

            .Caption = “&Kas Perpustakaan”

            .TooltipText = “MenuItem 4″

            .Style = msoButtonCaption

            .OnAction = “macro4″

End With

Set Ctrl5 = SubMenu2.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl5

            .Caption = “&Nilai Siswa”

            .TooltipText = “MenuItem 5″

            .Style = msoButtonCaption

            .OnAction = “macro5″

End With

Set SubSubMenu1 = SubMenu2.Controls.Add(Type:=msoControlPopup, Temporary:=True)

SubSubMenu1.Caption = “&Aset Kantor″

Set Ctrl6 = SubSubMenu1.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl6

            .Caption = “&Komputer”

            .TooltipText = “MenuItem 6″

            .Style = msoButtonCaption

            .OnAction = “macro6″

End With

Set Ctrl7 = SubSubMenu1.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl7

            .Caption = “&Printer”

            .TooltipText = “MenuItem 7″

            .Style = msoButtonCaption

            .OnAction = “macro7″

End With

End Sub

Kode-kode macro yang akan dijalankan masing-masing sajian ialah sebagai berikut : 

Sub macro1()

UserForm1.Show

End Sub

Sub macro2()

      MsgBox “Jalankan arahan sajian Dua”, vbInformation, “Menu #2″

End Sub

Sub macro3()

      MsgBox “Jalankan arahan sajian Tiga”, vbInformation, “Menu #3″

End Sub

Sub macro4()

      MsgBox “Jalankan arahan sajian Empat”, vbInformation, “Menu #4″

End Sub

Sub macro5()

      MsgBox “Jalankan arahan sajian Lima”, vbInformation, “Menu #5″

End Sub

Sub macro6()

      MsgBox “Jalankan arahan sajian Enam”, vbInformation, “Menu #6″

End Sub

Sub macro7()

      MsgBox “Jalankan arahan sajian Tujuh”, vbInformation, “Menu #7″

End Sub

Sub macro8()

      MsgBox “Jalankan arahan Delapan”, vbInformation, “Menu #8″

End Sub

Kode-kode diatas tidak usah dicopy … tapi file Excel hasil rujukan tutoril ini di download aja sebab ada kodenya lengkap dengan keterangannya juga. Semoga bermanfaat untuk Kamu. 

Tertarik dengan goresan pena ini, Kamu sanggup mendownlod gratis di sini 

Contoh dari file Excel hasil Tutorial  Membuat Menu Baru Di Worksheet Menu Bar Excel ini sanggup Kamu downlod gratis di sini 

Demikianlah Artikel Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba

Sekianlah artikel Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Tutorial Menciptakan Sajian Gres Di Worksheet Sajian Kafe Excel Dengan Instruksi Macro Vba dengan alamat link https://tutorialcuy.blogspot.com/2019/01/tutorial-menciptakan-sajian-gres-di.html

Subscribe to receive free email updates: