Avatar billede KingfisherDK Nybegynder
09. juli 2009 - 05:25 Der er 2 kommentarer og
1 løsning

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
Avatar billede supertekst Ekspert
09. juli 2009 - 09:42 #1
Skrevet i office 2003:

Sub AntalCheck()
Dim cc As Control, antalSat As Byte
    antalSat = 0

    For Each kontrol In UserForm1.Controls
        If InStr(LCase(kontrol.Name), "checkbox") = 1 Then
            Set cc = kontrol
            If cc.Value = True Then
                antalSat = antalSat + 1
            End If
        End If
    Next kontrol
   
    MsgBox ("Antal checkbox' sat: " & CStr(antalSat))
End Sub
Avatar billede KingfisherDK Nybegynder
09. juli 2009 - 15:16 #2
Tusind tak, supertekst! Du har lige reddet min dag.
Jeg vil meget gerne tildele dig dine point, men det er ligesom at denne mulighed ikke er aktiveret.
Avatar billede supertekst Ekspert
09. juli 2009 - 16:13 #3
Selv tak - det var så lidt...

"Bliver aktiveret nu"
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester