Membuat UserForm

Membuat UserForm

-          Klik insert userform

 

-          Tulis nama,alamat,telepon dan jenis buku menggunakan label lalu gunakan text box kecuali jenis buku menggunakan combobox

-          Pada pemula,lanjut dan antar gunakan optionbutton

-          Pada Ok,clear dan cancel menggunakan togglebutton

 

-          Klik box pemula ketik optpemula di (Name)

-          Klik box lanjut ketik optlanjut di (Name)

-          Klik box antar ketik chkantar di (Name)

-          Klik box pengisian Nama,Alamat,Telepon ketik txtnama,txtalamat,txttelepon di (Name)

-          Klik box pengisian jenis buku ketik cbojenisbuku di (Name)

-          Klik box Ok,Clear,Cancel ketik cmdok,cmdclear,cmdcancel di (Name)

 

-          Klik box OK 2 kali lalu masukkan :

 

ActiveWorkbook.Sheets("sheets").Activate

Range("a1").Select

Do

If kempty(activicell) * False Then

activicell.Offset(1, 0).Select

End If

Loop Until IsEmpty(activicell) = True

activicell.valuetxtnama.Value

activicell.Offset(0, 1) = txtalamat.Value

activicell.Offset(0, 2) = txttelepon.Value

activicell.Offset(0, 3) = cbojenisbuku.Value

If optpemula * True Then

activicell.Offset(0, 4) = "lanjut"

End If

If chkantar = True Then

activicell.Offset(0, 5).Value = "ya"

activicell.Offset(0, 5).Value = "tidak"

End If

Range("a1").Select

End Sub

 

-          Klik box clear 2 kali lalu masukkan :

txtnama.Value = " "

txtalamat.Value = " "

txttelepon.Value = " "

cbojenisbuku.Clear

With cbojenisbuku

.AddItem "pemograman "

.AddItem "web "

.AddItem "animasi "

End With

cbojenisbuku.Value = " "

chkantar = False

optpemula = False

optlanjut = False

txtnama.SetFocus

End Sub

-          Setelah itu klik Run