Langkah membuat program optionbutton
1 buka kertas kerja excel yang akan kita buat program lalu klik menu _ toolbar_macro _new rocord macro
Lalu klik view _ toolbar_ control box lalu akan muncul kotak perintah yaitu optionbutton _properties
Lalu masuk ke vb editor dan klik insert lalu module yang berada div b editor lalu akan muncul kertas kerja module 1 dan 2 kita harus mengerjakan nya di kertas kerja modul1
Di dalam kertas kerja module1 ;
Sub proses_optionbutton (objek)
Dim Lrow as integer
Dim L range as string
Lrow=objek . topleftcell.row
Lrange = “B” & cstr (Lrow)
objek .value=true then
Msgbox “anda memilih jenis paket”&”range (Lrange)
Exit sub
End if
End sub
Sedangkan di dalam kertas kerja sheet ;
Private sub_optionbutton1_click()
Proses_optionbutton optionbutton1
End sub
langkah membuat program checkbox
2 buka kertas kerja excel yang akan kita buat program lalu klik menu _ toolbar_macro _new rocord macro
Lalu klik view _ toolbar_ control box lalu akan muncul kotak perintah yaitu optionbutton _properties
Lalu masuk ke vb editor dan klik insert lalu module yang berada div b editor lalu akan muncul kertas kerja module 1 dan 2 kita harus mengerjakan nya di kertas kerja modul1
Di dalam kertas kerja module1 ;
Sub proses_checkbox (objek)
Dim Lrow as integer
Dim L range as string
Lrow=objek . topleftcell.row
Lrange = “A” & cstr (Lrow)
If objek .value=true then
Activesheet.range(Lrange).value= date
Else
Activesheet.range(Lrange).value=null
Exit sub
End if
End sub
Sedangkan di dalam kertas kerja sheet ;
Private sub_checkbox1_click()
Proses_checkbox checkbox1
End sub
Tidak ada komentar:
Posting Komentar