Saat anda menyalakan komputer event pertama yang akan tampil dalam layar monitor adalah indikator bar berjalan yang menandakan bahwa komputer dalam keadaan loading, saya tidak akan membahas cara mengatasi loading komputer yang lelet akan tetapi pada kesempatan pagi yang cerah saya akan memberikan tutorial pada anda cara membuat loading dengan macro, tentu saja loading ini dibangun dalam aplikasi microsoft excel dengan bantuan VBA atau macro, contoh loading yang saya maksud adalah sebagaimana gambaran dibawah ini


Loading sebagaimana gambaran diatas juga saya gunakan untuk membuat aplikasi gudang Z12, aplikasi gudang yang satu ini merupakan aplikasi paling mutaahir dan paling powerfull dikelasnya. Oke saatnya membuat loading dengan macro

Membuat loading dengan macro


Buka microsoft excel anda
Pilih bar menu Insert Pilih Shapes dan Insert Rectangle 1 dan Rectangle 2
Buka menu tab Developper pilih Inser dan Insert Commandbutton


Klik Desig Mode, double klik pada tombol Commandbutton, lalu masukan kode macro dibawah ini
Private Sub CommandButton1_Click()
[a1] = Not [a1]
repeat:
Select Case [a1]
Case Is = 0
With Sheet1.Shapes("Rectangle 1")
.Left = .Left + 1
DoEvents
If .Left > 500 Then .Left = 1
End With
With Sheet1.Shapes("Rectangle 2")
.Left = .Left + 1
DoEvents
If .Left > 500 Then .Left = 1
End With
GoTo repeat
End Select
End Sub
Sedikit menerangkan kode macro untuk kostumisasi
If .Left > 500 Then .Left = 1
Angka 500 adalah jarak maximal Rectangle
.Left = .Left + 1
Angka 1 merupakan kecepatan loading, ganti dengan angka yang lebih kecil untuk memperlambat loading dan ganti dengan angka yang lebih besar untuk mempercepat loading, hal ini juga akan memperngaruhi jarak Rectangle

Sekarang tekan tombol Commandbutton untuk mencobanya.
Demikianlah cara Membuat loading dengan macro, tutorial ini saya ambil dari Rumah Excel dengan sedikit pengembangan, untuk mempermudah mempelajari cara Membuat loading dengan macro silahkan download file sampelnya dibawah ini

Download - Membuat loading dengan macro

Demikianlah Cara membuat loading excel semoga bermanfaat, Follow IG Wasis Zain atau Like fanpage Asis10.com
asis10.com - Asisten Anda
No comments