|
▼初心者Q さん:
こんにちは
何が質問のテーマなのか、ちょっとわからないところもありますが
以下は参考になりますか?
Sub Test()
Range("A1").Value = "ABC"
Range("A1").Font.Color = vbRed
'↑ この部分はテストデータの設定ですから気にしないでください
'↓ 以下サンプルです
MsgBox "A1の文字色番号は" & Range("A1").Font.Color & "です"
MsgBox "A1のカラーインデックスは" & Range("A1").Font.ColorIndex & "です"
'文字色番号での判定
If Range("A1").Font.Color = vbBlue Then
MsgBox "A1の文字色は青です"
Else
MsgBox "A1の文字色は青ではありません"
End If
'文字色カラーインデックスでの判定
If Range("A1").Font.ColorIndex = 5 Then
MsgBox "A1の文字色は青です"
Else
MsgBox "A1の文字色は青ではありません"
End If
End Sub
|
|