Villkor i VBA – fetstil och färgad text

Följande kod loopar igenom ett cellområde och letar efter två villkor. För det första om cellens bakgrundsfärg är röd (färg nummer tre på initial färgpalett), och för det andra om cellens text är inställd som fetstil.

Om både villkoren uppfylls så ges variabeln intResultat värdet 1. Om inget eller endast ett villkor uppfylls så behåller variabeln det initiala värdet 0.

Sub OmRodTextOchFetstil
 
Dim intResultat As Integer
Dim rngCell As Range
 
intResultat = 0
 
For Each rngCell In Range("B4:B18")
 If rngCell.Interior.ColorIndex = 3 And rngCell.Font.Bold = True Then
  intResultat = 1
 End If
Next rngCell
 
MsgBox intResultat
 
End Sub

Om du istället vill att det skall räcka med att endast ett (1) villkor uppfylls, så byter du helt enkelt ut And till Or.