• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cel inkleuren aan de hand van de lot uitslag

Status
Niet open voor verdere reacties.

caffie

Gebruiker
Lid geworden
2 jan 2008
Berichten
281
Ik heb een pol gemaakt waarin we met een besloten groepje de lotto balletjes voor spellen
men heeft 10 nummer op
bij elke trekking wordt jou nummer weg gehaald of gekleurd
Wie het snelste zijn of cijfers heeft ingekleurd of zijn weg gehaald wint de pot

lijkt simpel
maar niet als je niet zo thuis bent in excel als de meeste hier

ik kleur nu alle vakje handmatig in
wie kan dit automatiseren
ik vul dus elke week de getrokken getallen
en dan moet de velden ingekleurd worden

Graag in een begrijpelijk code want ik ben nog een leerling in VBA
en ik wil graag een code toepassen die ik zelf begrijp
vast bedankt

ik heb de sheet toegevoegd
 

Bijlagen

  • lotto.xls
    43,5 KB · Weergaven: 41
Misschien dat je dit handig vind.
Dubbelklik op het gewenste getal.
Nogmaals dubbelklikken op hetzelfde getal verwijderd de kleur weer.
De knop Nieuw haal alle kleuren ineens weg.

Bekijk bijlage lotto.xls

Voor je gemak is dit de gebruikte code:
Code:
Private Sub CommandButton1_Click()
    Range("E2:S4").Interior.Color = xlNone
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E2:S4")) Is Nothing Then
        Target.Interior.Color = IIf(Target.Interior.Color = 65535, xlNone, 65535)
    End If
End Sub
 
Laatst bewerkt:
Mijn bijdrage:

Getrokken getallen invullen en de rest gaat ( als ik het goed heb gedaan tenminste) vanzelf.
 

Bijlagen

  • lotto.xls
    48 KB · Weergaven: 92
Keurig :)
Alleen misschien nog even Application.ScreenUpdating er omheen doen.
 
Misschien dat je dit handig vind.
Dubbelklik op het gewenste getal.
Nogmaals dubbelklikken op hetzelfde getal verwijderd de kleur weer.
De knop Nieuw haal alle kleuren ineens weg.

Bekijk bijlage 320507

Voor je gemak is dit de gebruikte code:
Code:
Private Sub CommandButton1_Click()
    Range("E2:S4").Interior.Color = xlNone
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E2:S4")) Is Nothing Then
        Target.Interior.Color = IIf(Target.Interior.Color = 65535, xlNone, 65535)
    End If
End Sub

niet wat ik zocht maar ziet er wel heel leuk uit misschien ga ik het toch nog ergens toepassen
 
Met een eenvoudige voorwaardelijke opmaak lukt het ook prima:
=COUNTIF($R$9:$W$32;E9)>0
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan