Nedenfor ser vi på et program i Excel VBA at sløjfer gennem hele den første kolonne og farver alle værdier, der er lavere end en bestemt værdi.
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. Angiv først en variabel kaldet i af typen Lang. Vi bruger en variabel af typen Long her, fordi lange variabler har større kapacitet end Integer -variabler.
Dim i As Long
2. Tilføj derefter kodelinjen, der ændrer skrifttypefarven på alle cellerne i kolonne A til sort.
Kolonner (1). Font.Color = vbBlack
3. Tilføj sløjfen.
For i = 1 til rækker
Næste i
Bemærk: regneark kan have op til 1.048.576 rækker i Excel 2007 eller nyere. Uanset hvilken version du bruger, går linjen ovenfor igennem alle rækker.
4. Dernæst farvelægger vi alle værdier, der er lavere end værdien, der er indtastet i celle D2. Tomme celler ignoreres. Tilføj følgende kodelinjer til sløjfen.
Hvis celler (i, 1) .Værdi <område ("D2"). Værdi og ikke er tom (celler (i, 1). Værdi) Så
Celler (i, 1). Font.Color = vbRed
Afslut Hvis
Resultat, når du klikker på kommandoknappen på arket (dette kan tage et stykke tid):
