Seperti yang sudah admin sampaikan dalam postingan sebelumnya bahwa di era digital ini semua guru atau karyawan dituntuk melek teknologi sedikit tidak bisa menguasai minimal microsof excel.
Dengan menguasai microsof excel ini, kita bisa lebih mempercepat kinerja terutama khusus untuk para operator atau Tenaga Administrasi ( TU ). Karena dengan menggunakan microsof excel ini pekerjaan bisa dikatakan mempermudah terutama dalam pengelolaan data baik itu menambahkan data, menyortir data dan lain sebagainya.
.png) |
| Cara Membuat Menu Webview di Microsoft Excel |
Dan pada artikel kali ini admin akan membaha tentang bagaiman cara membuat menu webview menggunakan Microsoft Excel yang baru-baru ini lagi rame diperbincangkan oleh para Group EIUG. berikut dibawah ini adalah contoh dari aplikasinya.
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.
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
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.