Værdi af afkrydsningsfelt

Formlen vil ikke blive opdateret automatisk, så jeg vil forslå en anden metode:


1. Indsæt et formularfelt, der hvor du vil have resultatet
2. Kald formularfeltet Tekst1
3. Sæt egenskaben på formmularfeltet, så det ikke kan udfyldes (af brugeren)
4. Indsæt følgende kode i et module i normal.dot (spørg videre, hvis du ikke har prøvet at programmere før)

Sub Optæl()
antal = 0
For Each fr In ActiveDocument.FormFields
    If fr.CheckBox = True Then
        If fr.CheckBox.Value = True Then
            antal = antal + 1
        End If
    End If
Next
ActiveDocument.FormFields("Tekst1").Result = antal
End Sub

5. Sæt koden på alle checkbox'ene som en udgangsmakro

Nu skulle det virke - der gør det hos mig *S*

Tak for dit svar, og det ser ud til, at der er lige det jeg skal bruge. Men word og VBA har aldrig været nogle spil, der har haft min store interesse :-)

Jeg har prøvet, at indsætte den kode du har skrevet (bortset fra, at jeg har sat den ind i dokumentet og ikke normal.dot, da det en formular, der skal ud til andre), og det virker til dels. Men optællingen virker ikke helt efter hensigten.

Jeg har lavet to checkboxe, og et formularfelt. Når jeg sætter det første hak, kommer der ikke nogen talværdi i checkboxen, men når jeg sætter hak i det andet felt også, så giver sammentællingen 1 ? og ved at klikke videre, kan jeg få det til at give to, når der kun er et afkrydset felt, men ikke hver gang ?

Har du en ide om, hvad der er galt ?

Yderligere, så tæller din funktion summen af alle afkrydsede checkboxe, kan man evt. angive checkboksene ved navn, da jeg har to kolonner med checkboxe, hvor jeg gerne vil have sammentalt hver enkelt kolonne ?

Jeg er på ferie de næste 6 dage, bare så du ikke undrer dig over, at jeg er lidt længe om at vende tilbage.

Det virke fint hos mig - hmm

Angående forskellige kolonner eller grupper, så kan det sagtens laves:

1. Navngiv checkbokse, så de kommer til at høre sammen:
      Gruppe 1: A_1, A_2, A_3 osv
      Gruppe 2: B_1, B_2, B_3 osv
      Gruppe 2: C_1, C_2, C_3 osv

2. Navngiv resultat-formularfelterne til:
      For gruppe 1: A
      For gruppe 2: B

3. Sæt nedenstående makro på alle checkboksene som udgangsmakro

Sub Optæl()

antal_A = 0
antal_B = 0
antal_C = 0

For Each fr In ActiveDocument.FormFields
    If fr.CheckBox = True Then
        If fr.CheckBox.Value = True Then
           
            Svar = Mid(fr.Name, 1, 1)
           
            Select Case Svar
                Case "A"
                    antal_A = antal_A + 1
                Case "B"
                    antal_B = antal_B + 1
                Case "C"
                    antal_C = antal_C + 1
            End Select
           
        End If
    End If
Next

If ActiveDocument.Bookmarks.Exists("A") = True Then
    ActiveDocument.FormFields("A").Result = antal_A
End If

If ActiveDocument.Bookmarks.Exists("B") = True Then
    ActiveDocument.FormFields("B").Result = antal_B
End If

If ActiveDocument.Bookmarks.Exists("C") = True Then
    ActiveDocument.FormFields("C").Result = antal_C
End If

End Sub

Jeg har nu prøvet den nye kode du skriver, og problemet er det samme. Der bliver lavet en sammentælling, men sammentællingen er ikke korrekt, og jeg ved ikke hvad der går galt, men det ser ud som om, at sammentællingen hele tiden er 1 bagud.

Jeg har lagt mit dokument ud på en hjemmeside, så kan du selv hente det, og se, hvad der går galt. Adressen er :

http://users.cybercity.dk/~dsl60688/

Hvis du kan se, hvad der går galt, vil jeg meget gerne vide det. Min mail adresse er også på ovennævnte link, så du er også velkommen til at maile mig dit dokument, så kan jeg prøve, at lave mit derudfra.

De 30 point er dine som tak for indsatsen.

Din kode er helt rigtigt. men husk at koden først aktiveres, når feltet forlades.

Åhrrr for pokker. Ja selvfølgelig. Men det vil jo sige, at hvis dokumentet bliver gemt, uden at et af felterne forlades, så er sammentællingen jo ikke korrekt.

Så må du lige lave en ekstra makro, der ser således ud:

Sub AutoClose()
  Call Optæl
End sub

Makroen kører, når dokumentet lukkes.

Sådan, jeg takker mange gange.

:-)