Regneark til sammenregning af svarskemaer

Du må gerne sende spørgeskemaet - til: pb@supertekst-it.dk - så skal jeg se på det!

Ok, skønt. Laver lige skelettet færdigt, så får du det.

Sendt

Er det til at finde hoved og hale i?

Sub Optælling()
    beregn 5, 3, True                              'Sp. 1
    beregn 9, 2, False                              '- . 4
    beregn 13, 5, True                              '- . 5
    beregn 17, 2, False                              '- . 6
    beregn 21, 2, False                            '- . 7
    beregn 25, 5, True                              'Sidste
End Sub
Private Sub beregn(række, aSvar, gSnit)
    If gSnit = True Then
        beregnGennemsnit række, aSvar
    Else
        beregnJaNej række
    End If
   
End Sub
Private Sub beregnGennemsnit(ræk, antal)
Dim aR, aRialt, kol, værdi
    aRialt = 0
    værdi = 0
   
    With ActiveSheet
        For kol = 1 To antal
Rem antal svar v/denne mulighed
          aR = Len(Cells(ræk, kol))
          værdi = værdi + (aR * kol)
Rem antal svar i alt
          aRialt = aRialt + aR
        Next kol

Rem beregn gennemsnit
        Cells(ræk - 1, 8) = Format(værdi / aRialt, "###.#0")
    End With
End Sub
Private Sub beregnJaNej(ræk)
Dim aJa, aNej
    aJa = 0
    aNej = 0
   
    With ActiveSheet
Rem antal Ja / Nej
        aJa = Len(Cells(ræk, 1))
        aNej = Len(Cells(ræk, 2))

Rem beregn %
        Cells(ræk - 1, 8) = Format((aJa / (aJa + aNej)) * 100, "###.#0")
        Cells(ræk - 1, 9) = Format((aNej / (aJa + aNej)) * 100, "###.#0")
    End With
End Sub
Private Sub CommandButton1_Click()
    Optælling
End Sub

Hvordan kan jeg trykke på optællingsknappen?

Ahh, fandt ud af det. Mit program var lige stricks nok

Hvordan skal man læse det som den øverste giver i gennemsnit?

Det er nok mig der har lavet en fejl, men kan den sige at 3+% køber for 0%-30% og 50% køber for 30-70% osv?

Men ellers gør den præcis som den skal.

Tak for hjælpen.

Gennemsnit vises ud fra svarkolonnerne - d.v.s hvis 3 kolonner og er resultat 2,75 så er det i den øvre del af svar-kolonne 2 (ex.: 30-70).

Skal prøve at se på dit forslag.... men kan den sige at 3+% køber for 0%-30% og 50% køber for 30-70% osv?
... men vil du så lave resultat-feltet om?

Og selv tak!