Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1633 / 13644 ツリー ←次へ | 前へ→

【72976】セルの文字色を条件で使いたいのですが 初心者Q 12/10/18(木) 15:25 質問[未読]
【72980】Re:セルの文字色を条件で使いたいのですが UO3 12/10/18(木) 19:03 発言[未読]

【72976】セルの文字色を条件で使いたいのですが
質問  初心者Q  - 12/10/18(木) 15:25 -

引用なし
パスワード
   読み込んだデータのセルの文字の色を利用して
条件を付けたいのですが。。。

読み込んだデータのセルの文字の色の判別方法を教えてください。

EXCEL2007です。

【72980】Re:セルの文字色を条件で使いたいのですが
発言  UO3  - 12/10/18(木) 19:03 -

引用なし
パスワード
   ▼初心者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

1633 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free