Siip, Thx ya Mr. Kid
________________________________
Dari: Kid Mr. <mr.nm...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 7 Februari 2012 9:51
Judul: Re: [belajar-excel] CheckBox
Hai Ridwan,
Dengan memberi nama grup (GroupName) pada setiap checkbox (misal group bahan1
dan group bahan2),
maka bisa dilakukan loop terhadap setiap control yang tipenya checkbox dengan
nama grup tertentu.
Jika sesuai, maka lakukan penulisan data.
Asumsi : caption dari checkbox adalah teks yang akan dituliskan. Sesuaikan
bagian penulisan data jika tidak sesuai asumsi.
Kira-kira bunyi routine-nya pada control commandbutton untuk catat di event
click adalah :
Private Sub CmdCatat_Click()
Dim ctl1 As Control, ctl2 As Control
Dim rng As Range
Dim lRow As Long
'init range dan jumlah record + header yang sudah ada
Set rng = Range("d2")
lRow = rng.CurrentRegion.Rows.Count
Loop_Bahan1:
For Each ctl1 In Form1.Controls
If InStr(TypeName(ctl1), "CheckBox") <> 0 Then
If InStr(ctl1.GroupName, "bahan1") <> 0 Then
If ctl1.Value Then
GoSub Loop_Bahan2
End If
End If
End If
Next ctl1
Exit Sub
Loop_Bahan2:
For Each ctl2 In Form1.Controls
If InStr(TypeName(ctl2), "CheckBox") <> 0 Then
If InStr(ctl2.GroupName, "bahan2") <> 0 Then
If ctl2.Value Then
'tulis data
rng.Offset(lRow).Value = ctl1.Caption
rng.Offset(lRow, 1).Value = ctl2.Caption
'pindah baris
lRow = lRow + 1
End If
End If
End If
Next ctl2
Return
End Sub
Wassalamualaikum Wr. Wb.
Kid.
2012/2/7 Kurei recca <yusajing_...@yahoo.com>
>
>Salam Para Master
Excel,
>
>Saya
ingin bertanya dan meminta pencerahan tentang penggunaan Tentang
Checkbox,
>
>Saya
ingin membuat suatu pencatatan data dengan penjelasan yang
terlampir.
>
>Mohon
maaf jika penjelasannya tidak saya tulis di email karena agak sulit
menjelaskannya jika di Email.
>Penjelasan ada di dalam lampiran
>
>Mohon pencerahannya,
>
>
>Best Regards,
>Ridwan Syarif
Hidayat
>
>
>
