Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9142 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【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


	【29129】セル色の変更について

ひかる - 05/9/25(日) 22:01 -


	引用なし

	パスワード

よろしくお願いします。

A1には計算式で求められた数値が入力されます。

値は1から10までのどれかの数値が入ります。

if関数でセルの値が1のときは赤、2のときは青、3のときは緑、4のときはオレンジといった関数を組みたいのですがどのようになるのでしょうか？


	【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


	【29131】Re:セル色の変更について

とおりすがり - 05/9/25(日) 22:18 -


	引用なし

	パスワード

あちらのビリーさんのレスは参考にならなかったのですか？


	【29132】Re:セル色の変更について

とおりすがり - 05/9/25(日) 22:21 -


	引用なし

	パスワード

一応・・・。
あちらとはＭＯＵＧのことです。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9142 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free