
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
個人的にはNo.1さんと同じく条件付き書式がいいと思います。
ただ任意のタイミングで色づけするといった事情もあるかと思いますので、簡単に作ってみました。
Sub test()
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
If Cells(i, "A").Value = "A" Then Rows(i).Interior.ColorIndex = 6 '黄
If Cells(i, "A").Value = "B" Then Rows(i).Interior.ColorIndex = 3 '赤
If Cells(i, "A").Value = "C" Then Rows(i).Interior.Color = RGB(0, 255, 255) '水色
If Cells(i, "A").Value = "D" Then Rows(i).Interior.Color = RGB(0, 0, 255) '青
Next
End Sub
No.2
- 回答日時:
エクセル2007以上なら条件付き書式設定(条件数がほぼ無制限)ですが、エクセル2003以下ならマクロ(VBA)になります。
一例です。
対象シートタブ上で右クリック→サンプルコード貼り付けてお試しください。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <> 1 Then End
For Each a In Target
Select Case a.Value
Case "A": wk = 3 '赤
Case "B": wk = 4 '緑
Case "C": wk = 5 '青
Case "D": wk = 6 '黄
Case Else: wk = xlNone '塗りつぶしなし
End Select
Range(a, _
Cells(a.Row, Columns.Count).End(xlToLeft)).Interior.ColorIndex = wk
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
エクセルvbaで、別シートの最下...
-
Excelで指定した日付から過去の...
-
特定のセルが空白だったら、そ...
-
特定の文字を条件に行挿入とそ...
-
【VBA】シート上の複数のチェッ...
-
任意フォルダから画像をすべて...
-
【Excel】指定したセルの名前で...
-
VBA実行後に元のセルに戻りたい
-
Excel VBA、 別ブックの最終行...
-
VBAでセル同士を比較して色付け
-
エクセルvba:自己セルの情報取...
-
Excel VBAで、 ヘッダーへのセ...
-
VBA ユーザーフォーム ボタンク...
-
Excel VBAで比較して数値があっ...
-
VBAでセルをクリックする回...
-
ExcelのVBAで数字と文字列をマ...
-
スプレッドシートをGASでセル保...
-
vba 隣のセルに値がある行だけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
特定行の色を変えたい(FlexGrid)
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
VBA実行後に元のセルに戻りたい
-
Application.Matchで特定行の検索
-
”戻り値”が変化したときに、マ...
-
VBAでセルをクリックする回...
-
任意フォルダから画像をすべて...
-
Excel VBAで、 ヘッダーへのセ...
-
TODAY()で設定したセルの日付...
-
【Excel VBA】指定行以降をクリ...
-
Excel vbaで特定の文字以外が入...
-
ExcelのVBAで数字と文字列をマ...
-
Excel VBA、 別ブックの最終行...
-
DataGridViewの各セル幅を自由...
-
VBA ユーザーフォーム ボタンク...
-
連続する複数のセル値がすべて0...
おすすめ情報