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
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