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