Terima kasih Mr.Kid, kalau saya amati dicontoh tersebut untuk chekboxnya ada
satu grup, kalau ada beberap group checkbox cekripnya gimana Mr.Kir..? saya
coba membuat 3 group checkbox
Berikut cekrip dari Mr.Kid
Private bChange As Boolean, chkGroup(1 To 3) As Control
Private Sub UserForm_Initialize()
bChange = False
Set chkGroup(1) = chk1
Set chkGroup(2) = chk2
Set chkGroup(3) = chk3
End Sub
Private Sub chk1_Change()
ChangeChk 1
End Sub
Private Sub chk2_Change()
ChangeChk 2
End Sub
Private Sub chk3_Change()
ChangeChk 3
End Sub
Private Sub ChangeChk(lIdx As Long)
Dim lChk As Long, bState As Boolean
If bChange Then
Exit Sub
End If
If chkGroup(lIdx).Value Then
bChange = True
For lChk = 1 To 3
If lChk <> lIdx Then 'selain checkbox yang diubah user
chkGroup(lChk).Value = False
End If
Next lChk
bChange = False
Else 'kalau mau set agar selalu ada yang di-checked, setidaknya checkbox
setelahnya
If lIdx = 3 Then
lIdx = 0
End If
chkGroup(lIdx + 1) = True
End If
End Sub
Sent from Mail for Windows 10
From: 'Mr. Kid' [email protected] [belajar-excel]
