Excel VBA質問箱 IV

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

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


52440 / 76732 ←次へ | 前へ→

【29130】Re:セル色の変更について
回答  かみちゃん  - 05/9/25(日) 22:12 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>if関数でセルの値が1のときは赤、2のときは青、3のときは緑、4のときはオレンジといった関数を組みたい

Ifより、Select Case ステートメントのほうがいいと思います。
具体的に次のようにします。
詳しくは、ヘルプでご確認ください。
また、フォントの色か、パターンの色かわからなかったので、フォントの色に
しています。
パターンの場合や、他の色にしたい場合は、「マクロの記録」で記録して確認
してみてください。

Sub Macro1()
 With Range("A1")
  Select Case .Value
   Case 1
    .Font.ColorIndex = 3
   Case 2
    .Font.ColorIndex = 5
   Case 3
    .Font.ColorIndex = 10
   Case 4
    .Font.ColorIndex = 46
  End Select
 End With
End Sub
0 hits

【29129】セル色の変更について ひかる 05/9/25(日) 22:01 発言
【29130】Re:セル色の変更について かみちゃん 05/9/25(日) 22:12 回答
【29131】Re:セル色の変更について とおりすがり 05/9/25(日) 22:18 発言
【29132】Re:セル色の変更について とおりすがり 05/9/25(日) 22:21 発言

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