Vraagje

[Yellowvic]

Ik heb net een programmaatje in excel gemaakt om mijn schoolcijfers in te kunnen voeren en dan gemmideldes enz uit te kunnen rekenen. Nu leek het mij een handig iets om alle cijfers lager dan een 5,5 een rood lettertype te geven. Nu leek het mij handog om dit automatisch te laten doe, maar hoe moet dit? Ik heb Excel 2000.

MVG Jelle:thumb:

 

[Spiderman]

Hoi Yellowvic,

Selecteer de kolom,rij of cel waarvoor dit wilt
Kies onder Opmaak - Voorwaardelijke opmaak. En stel daar je eigen opmaak in.

Suc6

 

[Yellowvic]

Hoi Yellowvic,

Selecteer de kolom,rij of cel waarvoor dit wilt
Kies onder Opmaak - Voorwaardelijke opmaak. En stel daar je eigen opmaak in.

Suc6

Ja zover was k zelf ook al. Maar ik bedoel met een formule ofzo. Want anders moet ik steeds mn gemmiddelden langsgaan of er iets veranderd is.

 

[jpvs]

zie bijlage.

Pierre

 

[Yellowvic]

zie bijlage.

Pierre

thnx zeer mooi gedaan

 

[Wigi]

thnx zeer mooi gedaan

Inderdaad, goed gedaan.

2 opmerkingen:

- in O5 zou ik zetten:

=ALS(ISFOUT((SOM(C5:H5)*2+SOM(I5:N5))/(AANTAL(C5:H5)*2+AANTAL(I5:N5)));"";(SOM(C5:H5)*2+SOM(I5:N5))/(AANTAL(C5:H5)*2+AANTAL(I5:N5)))

je gebruikt onnodige SOM functies. Voer daarna door naar beneden, enkel de formule niet de opmaak (tabel blijft dan mooi behouden).

- de Data > Valideren > Lijst gebruiken is zeer goed, maar zet die niet in A1:A91. Als er een vak (dus rij) ingevoegd of verwijderd wordt, heb jij een probleem met de Validering.

Hoop dat je hier iets mee bent.

Wigi

 

[jpvs]

Wigi,

Heb het bestand ooit eens gedownload en is niet van mijn maar wel van Frans Linnenbank.
De aanpassingen zijn altijd welkom op verbetering.
Thanks

De nodige gedaan (zie bijlage).


Pierre

 

[Wigi]

De macro's met het sorteren kunnen wel beter eigenlijk (de code die er nu staat is gegenereerd door de macro recorder).

Dit

Range("B5:O16").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("I20").Select

kan beter als

Range("B5:O16").Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False
Range("I20").Select

de rest is analoog. Dus: vermijd Activate en Select als het niet echt nodig is.

Wigi