エクセル自動実行のマクロを作成中にうまく動かないので
サンプルをコピーして、変更してみたのですが
そのサンプルも動いません、マクロとは違う何か悪いのでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim intColor As Integer
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B2:B11")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is <= 20
intColor = 3
Case 21 To 40
intColor = 46
Case 41 To 60
intColor = 9
Case 61 To 80
intColor = 10
Case Is > 80
intColor = 5
End Select
Target.Font.ColorIndex = intColor
Application.EnableEvents = True
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは。
Application.EnableEvents = False
が実行されたあとにエラーが発生し、
Application.EnableEvents = True
が実行されることなく、Falseになったままに
なっているのでは無いでしょうか?
以下を実行してTRUEに戻してみてください。
Sub test()
Application.EnableEvents = True
End Sub
No.2
- 回答日時:
#1です。
コードを良く見ると、
Application.EnableEvents = False
が実行されたあとに
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B2:B11")) Is Nothing Then Exit Sub
の2行で条件一致すると
Application.EnableEvents = True
が実行されずに
Exit Sub
されます。
以下のようにしたらどうでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intColor As Integer
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B2:B11")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is <= 20
intColor = 3
Case 21 To 40
intColor = 46
Case 41 To 60
intColor = 9
Case 61 To 80
intColor = 10
Case Is > 80
intColor = 5
End Select
Application.EnableEvents = False
Target.Font.ColorIndex = intColor
Application.EnableEvents = True
End Sub
ただ、ColorIndexを変更してもWorksheet_Changeイベントは発生しない
ようなので、
Application.EnableEvents = False
Application.EnableEvents = True
で囲む必要は無いような気がします。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
Excel2010 イベントプロシージャが動かない
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
イベントが発生しない vba
Visual Basic(VBA)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
7
”戻り値”が変化したときに、マクロを実行したい
Visual Basic(VBA)
-
8
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
9
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
10
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
11
Worksheet_Change(ByVal Target As Range)の複数の条件
Visual Basic(VBA)
-
12
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
13
すでにコピーした情報を貼り付けたらイベントを発生
PowerPoint(パワーポイント)
-
14
エクセルエラー13型が一致しませんの直し方教えて下さい。
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Eclipse(JAVA)のデバッグで他...
-
「ワークスペースをビルド中」...
-
split関数で区切り文字がない場合
-
jasper.exceptionとは?
-
JAVAにのeclipseに関する質問で...
-
eclipseでスタックサイズを変更...
-
eclipseのjavaを実行できない
-
NoClassDefFoundError: javax/m...
-
Javascriptの値をJava(JSP)へ渡...
-
コミット前の更新データをチェ...
-
Javaで年月の取得(YYYYMM形式で)
-
Google Colabでimport soxが出...
-
Spyder上のPythonでinputが実行...
-
[JAVA]evalで文字列を計算式に!
-
javascriptで、style undefined...
-
スレッドの状態遷移について。。。
-
Eclipseで実行できてコマンドプ...
-
エクリプスで実行時、最新クラ...
-
COBOLで言う外PERFORM
-
eclipseが使えません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
split関数で区切り文字がない場合
-
JAVAにのeclipseに関する質問で...
-
Eclipse(JAVA)のデバッグで他...
-
「ワークスペースをビルド中」...
-
Javascriptの値をJava(JSP)へ渡...
-
eclipseでスタックサイズを変更...
-
コミット前の更新データをチェ...
-
Javaで年月の取得(YYYYMM形式で)
-
Eclipseで実行>Javaアプリケー...
-
eclipseのjavaを実行できない
-
jasper.exceptionとは?
-
eclipse実行ができない
-
Eclipse 実行→Javaアプリケー...
-
環境変数設定で
-
バイナリーコードと、ソースコ...
-
javaからVBAを実行する方法を教...
-
Javaについての質問です。 コン...
-
Worksheet_Changeが動かない
-
エクリプスで実行時、最新クラ...
-
Javascriptのパーミッション
おすすめ情報