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も見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
【Excel】入力した数字分、セルを塗りつぶす方法について
Excel(エクセル)
-
数値の数だけセルに色を付けたい
Excel(エクセル)
-
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
-
4
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
5
エクセルVBA:リストに登録した単語と一致する文字色のみを、変更する方法
Excel(エクセル)
-
6
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
7
【Excel】入力した数字分、別シートのセルを塗りつぶしたい
その他(Microsoft Office)
-
8
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA For to
-
特定のセルが空白だったら、そ...
-
クリックされたセルの位置を取...
-
Excel vbaで特定の文字以外が入...
-
Excel VBA、 別ブックの最終行...
-
同じマクロのプログラムなのに...
-
Excelのプルダウンで2列分の情...
-
”戻り値”が変化したときに、マ...
-
セルS2に入力した「月」と一致...
-
Excel ユーザーフォームをモー...
-
Excelで指定した日付から過去の...
-
Excel2003 複数セル1列の入力済...
-
ExcelVBAを使って、値...
-
エクセル マクロで セルの範...
-
エクセルVBAでコピーして順...
-
【VBA】指定したセルと同じ値で...
-
セルに画像挿入すると、右セル...
-
TODAY()で設定したセルの日付...
-
Excel VBA マクロ ある列の最終...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
VBAの計算で@が出てしまう件
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
VBA ユーザーフォーム ボタンク...
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
-
VBAを使用した時間管理
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
おすすめ情報