Tutorial Membuat Menu Webview di Microsoft Excel

Tutorial Menu Webview-Salam sahabat blogger tutorial kali ini saya akan membaha tentang membuat menu webview menggunakan Microsoft Excel yang baru-baru ini lagi rame diperbincangkan oleh para Group EIUG.

contohnya, Seperti tampilan menu di aplikasi yang di buat para developer Web dan developer Android.
Menu-Menu tersebut berada di sebelah kiri aplikasi desktop atau di sebelah kiri aplikasi yang ada di hp android.

sekilas tampilan menu aplikasi di samping kiri desktop berbasis web dan android seperti di bawah ini.

Menu yang di buat tersebut sangatlah menarik di lihat, prosesnya ketika di klik tombol garis Tebal yang ada di Menu di sebelah kiri desktop atau di aplikasi yang ada di hp android maka menu-menu tersebut akan tampil(Hide), kemudian kita klik lagi maka menu tersebut akan hilang(Unhide).

Baiklah saya akan memberikan langkah-langkah membuat tampilan menu webview yang di buat oleh master Zonk di group EIUG.

1. Buatlah Menu Seperti Contoh gambar di bawah ini

2. Tambahkan gambar Klik Menu Insert-Picture Pilih gambar -Klik insert rapikan menunya seperti  gambar di atas.

3. Selanjutnya tambahkan 4 buah Rectangle di menu-menu tersebut - caranya Klik Menu Insert-Shapes-Rectangle.

4. Selanjutnya Tambahkan Icon gambar Garis tebal seperti gambar di point 1 dan tambahkan rectangle 1 lagi kemudian letakkan tepat di icon gambar garis tebal tersebut.

5. Selanjutnya rubahlah warna di kolom B sampai yang diperlukan seperti warna di point 1.

7. Selanjutnya Klik Menu developer-Visual Basic tambahkan Modulnya
Buatlah Codingnya Seperti Berikut ini.

Option Explicit
Sub rng_aw()
Application.ScreenUpdating = False
With Sheets("Tes")
.[a2:a3].Interior.Color = RGB(217, 217, 217)
.[a4:a5].Interior.Color = RGB(255, 255, 255)
.[a6:a7].Interior.Color = RGB(255, 255, 255)
.[c:n,aa:al].EntireColumn.Hidden = True
.[d:z].EntireColumn.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

Sub hd()
Application.ScreenUpdating = False
With Sheets("Tes")
.[b1].Interior.Color = RGB(33, 33, 33)
.Shapes("Rectangle 4").Visible = msoFalse
.Shapes("Rectangle 5").Visible = msoCTrue
.[a:a].EntireColumn.Hidden = True
End With
Application.ScreenUpdating = True
End Sub

Sub sh()
Application.ScreenUpdating = False
With Sheets("Tes")
.[b1].Interior.Color = RGB(0, 0, 0)
.Shapes("Rectangle 4").Visible = msoCTrue
.Shapes("Rectangle 5").Visible = msoFalse
.[a:a].EntireColumn.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

Sub rng_a()
Application.ScreenUpdating = False
With Sheets("Tes")
.[a2:a3].Interior.Color = RGB(217, 217, 217)
.[a4:a5].Interior.Color = RGB(255, 255, 255)
.[a6:a7].Interior.Color = RGB(255, 255, 255)
.[c:n,aa:al,am:ax].EntireColumn.Hidden = True
.[o:z].EntireColumn.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

Sub rng_b()
Application.ScreenUpdating = False
With Sheet4
.[a4:a5].Interior.Color = RGB(217, 217, 217)
.[a2:a3].Interior.Color = RGB(255, 255, 255)
.[a6:a7].Interior.Color = RGB(255, 255, 255)
.[c:n,o:z,am:ax].EntireColumn.Hidden = True
.[aa:al].EntireColumn.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

Sub rng_c()
Application.ScreenUpdating = False
With Sheet4
.[a6:a7].Interior.Color = RGB(217, 217, 217)
.[a4:a5].Interior.Color = RGB(255, 255, 255)
.[a2:a3].Interior.Color = RGB(255, 255, 255)
.[c:n,o:z,aa:al].EntireColumn.Hidden = True
.[am:ax].EntireColumn.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

Supaya Menu nya berhasil, langkah Selanjutnya Klik Kanan Rectangle tadi kemudian Klik Asign Macro pilih yang akan di eksekusi lakukan semua langkah di menu-menu tersebut.

kalau sudah, coba tes satu persatu
bagi yang belum berhasil silahkan downlod file nya di bawah ini.

Download