15 July 2018

Tutorial Membuat Menu Webview di Excel

Tutorial-Salam sahabat blogger tutorial kali ini saya akan membahas
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
taraaaaa........ gimana  bingung atau berhasillll
bagi yang belum berhasil ini saya kasih file nya untuk di pelajari
http://skips.link/3jFPP


Share This

SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

0 Comments:

Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.