Senin, 19 April 2010

excell makro

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