VBA script dat aantal aangekruiste checkboxen telt in Excel

Pagina: 1
Acties:

Vraag


Acties:
  • 0 Henk 'm!

  • Mema
  • Registratie: December 2004
  • Laatst online: 07-05 22:18
Mijn vraag
Als docent gebruik ik een beoordelingsformulier in Excel van een externe leverancier. In het formulier scoor je bijvoorbeeld 5 beoordelings items op een schaal van 0 t/m 3. Het scoren gebeurd door een checkbox aan te kruisen en het aantal behaalde punten bepaalt je cijfer.

Het formulier is door de leverancier door middel van een VBA script en voorwaardelijke opmaak beveiligd tegen het geven van een dubbele beoordeling op één item. Het formulier is echter niet beveiligd tegen het overslaan van een beoordelingsitem en helaas toont het formulier dan toch een cijfer. De student krijgt dan door het overslaan van een beoordeling een te laag cijfer.

Uitgaande van een formulier met 5 beoordelingsitems en een score van 0 t/m 3 weet ik dat ik 20 checkboxen heb en dat er 5 aangekruist moeten zijn. Hoe kan ik een visuele waarschuwing krijgen als ik er slechts vier aangekruist heb en er dus nog eentje moet aankruisen? Wie kan mij in de richting zetten van een VBA script dat dit kan?

Relevante software en hardware die ik gebruik
Excel Microsoft 365

Wat ik al gevonden of geprobeerd heb
Volgens de leverancier kan het niet. Hieronder de code die de controle per item doet, met in I het eerste item en in L het laatste item voor één vraag.

Public Function OnClickCheckbox(rij)

Dim Rng As Range
Dim CountTrue As Long
Set Rng = Range("I" + CStr(rij) + ":L" + CStr(rij))

CountTrue = Application.WorksheetFunction.CountIf(Rng, "True")

If (CountTrue > 1) Then
MsgBox ("U heeft meerdere beoordelingscriteria aangevinkt voor " + Cells(rij, 3).Value + ", dit is niet toegestaan.")
End If

Mema

Beste antwoord (via Mema op 30-01-2023 08:23)


  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

Stap1: Zoek een andere leverancier. 'Kan niet' is onzin en het kleine stukje code wat je post ziet er niet uit.

Vervolgens: zowel voor de validatie op méér dan 1 aangevinkte beoordeling als voor de validatie of alle regels zijn beantwoord is geen vba nodig. Het eerste door gebruik te maken van radio-buttons. het tweede door een simpele validatie te verwerken in je cijferbeoordeling of met voorwaardelijke opmaak.

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland

Alle reacties


Acties:
  • Beste antwoord
  • 0 Henk 'm!

  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

Stap1: Zoek een andere leverancier. 'Kan niet' is onzin en het kleine stukje code wat je post ziet er niet uit.

Vervolgens: zowel voor de validatie op méér dan 1 aangevinkte beoordeling als voor de validatie of alle regels zijn beantwoord is geen vba nodig. Het eerste door gebruik te maken van radio-buttons. het tweede door een simpele validatie te verwerken in je cijferbeoordeling of met voorwaardelijke opmaak.

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland


Acties:
  • 0 Henk 'm!

  • Mema
  • Registratie: December 2004
  • Laatst online: 07-05 22:18
Lustucru schreef op zondag 29 januari 2023 @ 21:42:
Stap1: Zoek een andere leverancier. 'Kan niet' is onzin en het kleine stukje code wat je post ziet er niet uit.

Vervolgens: zowel voor de validatie op méér dan 1 aangevinkte beoordeling als voor de validatie of alle regels zijn beantwoord is geen vba nodig. Het eerste door gebruik te maken van radio-buttons. het tweede door een simpele validatie te verwerken in je cijferbeoordeling of met voorwaardelijke opmaak.
Bedankt voor het antwoord, dit heeft me op het juiste pad gezet om het probleem zelf op te lossen.

Mema


Acties:
  • 0 Henk 'm!

  • Panna
  • Registratie: Februari 2023
  • Laatst online: 18-03-2023
Hey, Ik ben pas geregistreerd en heb een vraag over vba. Hoe moet ik een topic starten? Merci Alvast.