Hej hej
Finns lite olika metoder för detta och mängder med tips för att få till en snygg och flexibel kod. Men försöker hålla svaret på en enkel nivå, så du får en metod.
1. Namnge dina relevanta rader i kolumnen i ute i excels gränssnitt med hjälp av namnrutan. I exemplet är namnet rngColors. Om du lägger en tabell på ditt grunddata, och namnger en tabellkolumn på samma sätt, så blir det namngivna området dynamiskt, då kan du även när du vågar hoppa upp till mer avancerad nivå, jobba med tabellen direkt istället.
kod:
'Sheet4 kan och bör ersättas med något du döpt om till, detta gör man i projektrutans egenskapsfält. Då får du en bättre struktur att jobba med(enklare att komma ihåg vilket blad som avses, samt att bladet då inte kan ändras av excel eller användare.
Dim rngColors as range: set rngColors = sheet4.range("rngcolors")
Dim mCell as range
For each mCell in rngColors
'100% om formatet är korrekt, motsvaras av 1, dvs mcell.offset(0,-1) = 1, i exemplet så är din data textformaterad
If mcell.offset(0,-1) = "100%" then
mcell = "grön"
Else
mcell = "röd"
end if
Next mcell
Sedan så undrar jag varför du vill lägga till färger i text, verkar skumt :), är det villkorstyrdformatering du tänker använda det till så fungerar denna lika bra på texten "100%", alternativt talet 1.
/c