投稿/コメントを表示します。

If Not (Range("C5").Value = "男性" Or Range("C5").Value = "女性") Then
  Range("C5").Interior.ColorIndex = 23
 End If

この形頻繁に使うので、助かります。
2015/05/18 14:45