Tælle checkboxe
Haves: En userform med noget tekst øverst(label1). Dernæst en ramme(frame1), som indeholder 49 checkboxe(checkbox1-49). Nederst en "Gem" knap(commandbutton1)Kan det lade sig gøre at lave et program, der tæller hvor mange afkrydsede checkboxe der er når man trykker "Gem" og som overfører det tal til en celle i mit regneark?
På forhånd tak.
Jeg benytter VBA i Excel 2007.
Jeg har fundet og forsøgt at modificere følgende kode, men den virker kun på ActiveX kontroller (hvilket dem man kan indsætte i en userform åbenbart ikke er!?)
Sub ActiveXOnSheet()
'Finds # of ActiveX CheckBoxes on a sheet, and the # unchecked
Dim CtrlNum As Integer, i As Integer
Dim numCheckboxes As Integer, numUnchecked As Integer
With ActiveSheet
CtrlNum = .OLEObjects.Count
For i = 1 To CtrlNum
If LCase(TypeName(.OLEObjects(i).Object)) = "checkbox" Then
numCheckboxes = numCheckboxes + 1
If .OLEObjects(i).Object.Value = False Then numUnchecked = numUnchecked + 1
End If
Next i
End With
MsgBox "There are " & numCheckboxes & " CheckBoxes in the sheet, and " & _
numUnchecked & "of these are unchecked.", vbOKOnly, "CheckBox Statistics"
End Sub
