「休」と入力した行を黄色＆網掛けの塗りつぶしにしたいです。

Question

###月の予定表を作成したいと思っています
お世話になっております。２回目の質問です。ご覧いただいてありがとうございます。

ネットや参考書を見て参考にして、あるセルに「休」と入力したらその行が黄色&網掛けになるマクロを作成したいのですが、理想通りのものができません。

理想：「休」と入力したそばから、その行が黄色＆網掛けになる。
現状：「休」と入力しても変化はなく、（ボタンにマクロの登録をしておいて）ボタンを押すと実行され、その行が黄色になる。（網掛けについては調べてもわかりませんでした）

Sub Workbook_Open()

 Dim umomo As Range
 Application.ScreenUpdating=False
 Cells.Interior.ColorIndex=xlNone

  For Each umomo In Range(Cells(1.1),Cells(Rows.Count,1).End(xlUp))
      If umomo.Value="休" Then umomo.EntireRow.Interior.ColorIndex=6
  Next umomo

  Application.ScreenUpdating=True

End Sub

VBAを使用せず、条件式書式でも試みましたが、なかなか思い通りに動きません（なぜか一つ上の行が色変わったり・・・）。

まるっきり違う案でも少しの修正でもなんでも、教えていただけたら大変助かります。

よろしくお願いいたします。

Answer 1

条件付き書式でできますよ。

書式を適用したいセルを選択
条件付き書式
新しいルール
指定の値を含むセルだけを書式設定
セルの値 次の値に等しい ="休"

Comments

[umomo]

ご回答ありがとうございます！
試しましたが、指定のセルのみ書式が変わり、そのセルを含む行全体は変化しませんでした。
条件付き書式でもできないか、引き続き取り組んでみます。
ありがとうございます！！

[Zuishin]

一つのセルの内容に基づいて複数セルの書式を変化させるのは次のようにします。

色が変わる可能性のあるすべての領域を選択
数式を使用して、書式設定するセルを決定
次の数式を満たす場合に値を書式設定
=$A1="休"

これで A 列に「休」と書くと、最初に選択した範囲で、休と書いた行の書式が変わります。

[umomo]

更に教えていただきありがとうございます！試してみます！

Answer 2

条件付き書式でできます。

1. A1セルをアクティブにして全セル選択(Ctrl+A等)

※アクティブセルと選択範囲は条件付き書式追加時に影響します
2. ホーム - 条件付き書式 - 新しいルール
3. 「数式を使用して、書式設定するセルを決定」を選択して以下の設定
数式テキスト欄「=$A1="休"」
※実際はA列ではなければ適時書き換えてください
※ただ$記号には大事な意味がある(相対セル参照ではなく絶対セル参照にする)ため書き損じないように。
書式は適当にどうぞ

あとは適当な行のA列に「休」と入れて行全体に書式が適用される動作確認してみてください。

Comments

[umomo]

細かな解説をつけていただき誠にありがとうございます。初心者ですので大変有難いです。試してみます！

[umomo]

見事、理想通りに実行できました！！！ありがとうございます！やったー
目標はVBAマクロで動かすことなので、引き続き足掻いてみます！

Answer 3

条件付き書式の方が軽いと思いますが、VBA 必須というなら、以下が参考になるかもしれません。

Excel VBA:特定のセルの値が変更されたとき(更新後処理イベント)だけVBAのプログラムを実行する方法

Comments

[umomo]

ありがとうございます！参考にします！

Answer 4

VBAを使いたいなら
excel VBAにはマクロの記録という機能が有りますよ
excel2013は開発タブの中に
以前のはツールに
マクロの記録を実行して終了すると
実行した処理が自動的にｺｰﾄﾞとして標準ﾓｼﾞｭｰﾙに出力されます（VBA編集画面のﾌﾟﾛｼﾞｪｸﾄに追加されていく)
無駄なｺｰﾄﾞも追加されていきますが慣れていけば徐々にいらないｺｰﾄﾞを削っていけるようになります
網掛け？もﾏｸﾛの記録中に書式で設定していけば自動的にｺｰﾄﾞに記録されます

Comments

[umomo]

ご回答ありがとうございます。今後の勉強のアドバイスにもなり大変ありがたいです！試してみます。

Answer 5

Workbook_Openではなく
Worksheet_Changeを利用すると「シートの値が変わった時」何かを処理させることができます。

よって、最終的に以下のようになります。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "休" Then
    
        Rows(Target.Row & ":" & Target.Row).Select
        
        With Selection.Interior
            .Pattern = xlGray75
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        
    End If
End Sub

Comments

[umomo]

ご回答ありがとうございます！試してみます！！

[umomo]

aglkjggg様
先日は早速のご回答ありがとうございました。重ねての質問失礼します。
３行目の　Rows(Target.Row & ":" & Target.Row).Select　の　Target.Rowの理解で躓いています。
ネット上で、「Target.Rowは、変更したセル範囲の左上セルの行番号を取得するもの」と解説している記事を見かけたのですが、どのように使うのかいまいち理解できていません。
Target.Rowの使い方について、教えていただけると大変助かります。よろしくお願い致します。

[aglkjggg]

Rows("1:1").Selectとすると1行目がA列～最後の列まで　全て選択されます
Rows("2:2").Selectとすると2行目がA列～最後の列まで　全て選択されます
Rows("3:3").Selectとすると3行目がA列～最後の列まで　全て選択されます
...
Rows(Target.Row & ":" & Target.Row).Selectとすると編集したセルの行で A列～最後の列まで　全て選択されます

2行目のifで「休」とした場合のみにしておりますので、
今回のプログラムでは「休」と入力されたセルだけが対象となります。

また、私の回答したプログラムは「複数セルを同時に編集した場合」を考慮していません。

複数セルを同時に編集した場合はエラーとなります。

[umomo]

ご回答ありがとうございます！理解が深まりました。注意点も挙げてくださり、助かります。引き続き、勉強します。