質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.92%

変更イベント時に、セルに色を塗るマクロ

解決済

回答 3

投稿

  • 評価
  • クリップ 0
  • VIEW 304

koyamashinji

score 19

セルC20の変更イベント時に、セルF1を黄色に塗るマクロを作成しています(下記)

1回目に、セルC20に変更を加えた際は、セルF1の無事塗りつぶしできたのですが、
一度セルF1の色をクリアにし、
2回目に、セルC20に変更を加えると、セルF1の塗りつぶしはされず、何も起こりません

調べると、1回目の処理後、Application.EnableEvents = Falseになったまま
C20変更のイベント発生が発生していないようです。

そのため、イベント認識するように、
下記のように■に
Application.EnableEvents = Trueを記述しましたが、
どうしても変更イベントが発生しません

修正すべき点を教えて頂けないでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)

        Application.EnableEvents = TrueIf Target = Range("C20") Then
        Application.EnableEvents = True  ■

        Range("F1").Interior.Color = RGB(255, 255, 0)

        Application.EnableEvents = False
    End If

    If Application.EnableEvents = False Then
        Debug.Print "False"
    Else
        Debug.Print "True"
    End If


End Sub

`

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

checkベストアンサー

+1

サンプルを拝見しました・・。

素人考えですが Application.EnableEvents = Falseなどはメゾットなので

if thenで判定できないのではないでしょうか・・・。

その証拠にif elseでmsgbox(debug.printも反応しない)を入れて判定しても反応しないためです。

そもそも特定のセルのchangイベントを判定してF1の色分けをおこなっているのですから

イベント自体をON・OFFする意味がわかりませんが・・。

また、各イベントは、通常処理で影響しないようにTrueにして戻して終わるのがセオリーのような気がします。

(処理高速化でOFFにする場合もありますが、特定のセルのイベントを制御する処理ではあまり意味がないようなきがします)

下記のようなコードを実行前後に入れることはよくあります。

Sub マクロ開始()
Application.ScreenUpdating = False       '画面描画を停止
Application.EnableEvents = False        'イベントを抑止
Application.DisplayAlerts = False       '確認メッセージを抑止
Application.Calculation = xlCalculationManual '計算を手動に
End Sub

Sub マクロ終了()
Application.StatusBar = False          'ステータスバーを消す
Application.Calculation = xlCalculationAutomatic '計算を自動に
Application.DisplayAlerts = True        '確認メッセージを開始
Application.EnableEvents = True         'イベントを開始
Application.ScreenUpdating = True       '画面描画を開始
End Sub

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/07/24 06:42

    Application.StatusBar = False          'ステータスバーを消す

    ここはtrueでした。

    キャンセル

  • 2020/07/24 18:33

    横から失礼します。回答の内容で認識が誤っていると思われる箇所があったため、コメントさせて頂きました。

    > Application.EnableEvents = Falseなどはメゾットなので

    `EnableEvents`は一般的には「メソッド」ではなく「プロパティ」と呼ばれるもので、`EnableEvents`の場合、値の取得と設定が可能です。

    値の取得が可能ということは、`Application.EnableEvents = False`は`True = False`または`False = False`と評価できる式となるため、If の条件として使用できます。

    キャンセル

  • 2020/07/25 16:29

    プロパティですか。勉強になります。

    キャンセル

+1

ChangeイベントでApplication.EnableEvents = Falseをしてイベント処理を終了しているので、以降のイベントがすべて発生しなくなってしまいます。

Application.EnableEvents = Falseにする必要は無いと思いますが、なにか理由がありますか?

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

+1

最後にApplication.EnableEvents = Falseをしているため、
それ以降Worksheet_Changeも反応しなくなっています。

そのため頭にApplication.EnableEvents = Trueを入れても反応しません。
※そもそもWorksheet_Changeが動かないのでTrueにならない

いったんイミディエイトウィンドウででも
Application.EnableEvents = Trueを実行すればそれ以降は動きますが、
このままではまた動かなくなります。

Application.EnableEventsをすべて削除すれば次回からは普通に動きます。
別の場所でApplication.EnableEvents=Falseで終わるものがあるなら、
Application.EnableEvents=Trueで終わるように変更してください。
-----
他にもWorksheet_Changeがあったりすると影響を受けて無限ループになるので、
その間だけFalseにして、最後にTrueに戻します。

Private Sub Worksheet_Change(ByVal Target As Range)

        Application.EnableEvents = False

    If Target = Range("C20") Then

        Range("F1").Interior.Color = RGB(255, 255, 0)

    End If

    If Application.EnableEvents = False Then
        Debug.Print "False"
    Else
        Debug.Print "True"
    End If

        Application.EnableEvents = True

End Sub

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.92%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る