A 回答 (8件)
- 最新から表示
- 回答順に表示
No.8
- 回答日時:
J,K,M,N列の入力に「入力規則」を使って、O列の関数を整理した方が良いように思います。
O列の関数が「必要以上に複雑化」していて、条件付き書式の動作に不具合を引き起こしているように見受けられます。O列のIF関数が競合を起こしているように見えますが。
条件付き書式の設定ではなく、O列の関数が不適正です。
No.7
- 回答日時:
#1です。
ダウンロードしたファイルは
「数式の値が」「に等しい」「文字化け」
になってました。
「セルの値」「に等しい」「=○」
と入力しなおすとちゃんと色がつきました。
No.6
- 回答日時:
#02、05です。
#03さんへの補足見逃してました。こちらのマクロに変更します。ご迷惑をおかけしました。(N4:N7を着色する仕様は変わりません。また全ての条件付き書式は解除してください)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CurADRS As String, idxROW As Long, Kekka
CurADRS = Selection.Address
Application.ScreenUpdating = False
For idxROW = 12 To Range("O65536").End(xlUp).Row
Kekka = Application.Match(Cells(idxROW, 15), Range("$N$1:$N$7"), 0) 'N1:N7の範囲で記号を検索
If IsError(Kekka) Then '記号が合致しないとき
ActiveSheet.Range(Cells(idxROW, 1), Cells(idxROW, 16)) _
.Interior.ColorIndex = xlNone 'その行のA列~P列は塗りつぶしなし
Else '記号が合致したセルの色に着色
ActiveSheet.Range(Cells(idxROW, 1), Cells(idxROW, 16)) _
.Interior.ColorIndex = Cells(Kekka, 14).Interior.ColorIndex
End If
Next idxROW
Application.ScreenUpdating = True
End Sub
No.5
- 回答日時:
#02です。
ご要望を理解しました。以下のマクロはO12以下に入力した記号でN4:N7の範囲を検索し、記号が合致したら(N4:N7の)セルの色で着色します。ですからN4:N7のセルは着色して動かしてみてください。(この仕様のほうが汎用的と思いましたが、色は固定でよいなら補足してくださればなおします)
シートに設定した条件付き書式はすべて解除し、O12:031の式も削除してからお試しくださいね。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kekka
If Target.Column = 15 And Target.Row >= 12 Then 'O列はA列から数えて15番目,12行以降が処理対象
Kekka = Application.Match(Target.Value, Range("$N$1:$N$7"), 0) 'N1:N7の範囲で記号を検索
If IsError(Kekka) Then '記号が合致しないとき
ActiveSheet.Range(Cells(Target.Row, 1), Cells(Target.Row, 16)) _
.Interior.ColorIndex = xlNone 'その行のA列~P列は塗りつぶしなし
Else '記号が合致したセルの色に着色
ActiveSheet.Range(Cells(Target.Row, 1), Cells(Target.Row, 16)) _
.Interior.ColorIndex = Cells(Kekka, 14).Interior.ColorIndex
End If
End If
End Sub
No.4
- 回答日時:
#1です。
エクセル2003では記号でもできました。
「セルの値が」 「次の値に等しい」 「="△"」
としてますか?
とりあえず,4個までなので拡張性を考えると#2さんのようなマクロしかないかな。
この回答への補足
返答ありがとうございます。
ためしてみたのですが、こちらもやっぱりうまくいきません。
この実際に試しているエクセルのデータをアップロードしましたので、もしよろしければどうかお願いします。
passは1111です。
www.uploda.net/cgi/uploader4/index.php?dlpas_id=0000004069.zip
No.3
- 回答日時:
IF関数を使って、記号を元に条件になる数値を書き出すセルを作成し、書き出されたセルの数値を元に条件付き書式を設定すればよいのでは?
たとえばA列に◎が入ったら1、△が入ったら2、□が入ったら3、×が入ったら4と書き出すIF関数をB列に入力します。
条件付き書式はB列のデータを元に設定すればよろしいでしょう。
この回答への補足
すいません、先ほどアップしたエクセルのファイルですが、説明忘れていました。
1~4の列に日付を入れるとステータスに△などの記号が入るようになっています。
ステータスに入った記号を受けて行の表示を自動で変えたいと思っているのです。
No.2
- 回答日時:
ならばマクロでやってみませんか?
あまり汎用的ではないですが以下のマクロを、そのシートのマクロとしてペーストしてみて下さい。O12セルが変わるたびに色が着きます
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$12" Then '対象のセルが変わったらこの行を修正
Select Case Target.Value
Case "△"
ActiveSheet.Range("O:O").Interior.ColorIndex = 8 '着色する列は("x:x")を修正
Case "□"
ActiveSheet.Range("O:O").Interior.ColorIndex = 46
Case "○"
ActiveSheet.Range("O:O").Interior.ColorIndex = 13
Case "◎"
ActiveSheet.Range("O:O").Interior.ColorIndex = 5
Case Else
ActiveSheet.Range("O:O").Interior.ColorIndex = xlNone
End Select
End If
End Sub
ColorIndexで色を指定しますが、紫、青はかなり濃い色なのでラベンダー(=39)、薄い青(=41)、薄い水色(=34)などの色を使った方が良いかもしれません。
マクロをペーストするには該当のシートを開いた状態で、alt+F11でVBE画面を開いて、F7キーを押すとコード入力画面が開きますから、そこにペーストして下さい
この回答への補足
皆様、いろいろありがとうございます。
いろいろとためしてみたのですが、やっぱりうまくいきません。
一応、作っているエクセルのデータをアップロードしました。もしよろしければどうかお願いします。
passは1111です。
www.uploda.net/cgi/uploader4/index.php?dlpas_id=0000004069.zip
No.1
- 回答日時:
以下のURLに4つの場合の例が載っています。
貴方の場合,数字ではないので,入力時に入力値の制限を組み合わせれば,とりあえずこの場はしのげるのでは?
----以下URLより一部引用-------
Excel の条件付き書式では、3 つの条件を使用できます。ただし、セルのデフォルトの書式設定を考慮すれば、最小から最大まで条件を正しく設定することで、実際には 4 つの条件を使用できます。たとえば、次のようにデータに色を追加するとします。
参考URL:http://office.microsoft.com/ja-jp/assistance/HA0 …
この回答への補足
すいません、御教授いただいた方法では、
セルの値は数値であることが条件のようです。
セルには記号がはいるのでこの方法では出来ないようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) IFERROR(IF()IF())のような形の構文が作れません 2 2023/02/05 17:51
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) Excel 数式を使用した条件付き書式が、一つのセルにしか反映されない 3 2022/06/08 23:20
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Excel(エクセル) エクセルでA1に黄色のハイライトをつけたらB1に1,000という数値を返したいです。 4 2023/03/17 00:24
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Excel(エクセル) 条件付き書式 一致する曜日の列にある○のセルに色を付けたい 2 2022/04/19 05:40
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報