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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- その他(Microsoft Office) Excel2003,2007の作業です 2 2023/05/17 09:58
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
【VBA】指定したセルと同じ値で...
-
特定行の色を変えたい(FlexGrid)
-
VBAでセルをクリックする回...
-
EXCELのVBA-フィルタ抽出後の...
-
スプレッドシートの数値列に対...
-
VBAの計算で@が出てしまう件
-
セル色なしの行一括削除
-
3桁または4桁の数値を時刻に...
-
”戻り値”が変化したときに、マ...
-
TODAY()で設定したセルの日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報