![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセル自動実行のマクロを作成中にうまく動かないので
サンプルをコピーして、変更してみたのですが
そのサンプルも動いません、マクロとは違う何か悪いのでしょうか?
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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
Excel2010 イベントプロシージャが動かない
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
Worksheet_Change(ByVal Target As Range)の複数の条件
Visual Basic(VBA)
-
5
Worksheet.Change イベントを他のシートにも反映させる方法?
Visual Basic(VBA)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
8
エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は?
Excel(エクセル)
-
9
Calculateイベントでセルを指定したい
Word(ワード)
-
10
Excel 2007でセルの値で条件判断し中央揃えする方法
その他(Microsoft Office)
-
11
”戻り値”が変化したときに、マクロを実行したい
Visual Basic(VBA)
-
12
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
Excelでのコメント表示位置
Excel(エクセル)
-
17
イベントが発生しない vba
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Javascriptの値をJava(JSP)へ渡...
-
split関数で区切り文字がない場合
-
eclipseでスタックサイズを変更...
-
「ワークスペースをビルド中」...
-
jasper.exceptionとは?
-
JAVAにのeclipseに関する質問で...
-
エクリプスで実行時、最新クラ...
-
Javaで年月の取得(YYYYMM形式で)
-
ExcelVBA グラフの軸ラベル ユ...
-
XPathFactory
-
eclipseのjavaを実行できない
-
コミット前の更新データをチェ...
-
エクセルマクロエラー'Global'...
-
Eclipse(JAVA)のデバッグで他...
-
バイナリーコードと、ソースコ...
-
Java で開発できるマイコンはあ...
-
Eclipseで実行>Javaアプリケー...
-
Tableadapterのupdateメソッド...
-
VB実行中に一つ前の動作に戻る機能
-
環境変数設定で
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
split関数で区切り文字がない場合
-
Javascriptの値をJava(JSP)へ渡...
-
Eclipse(JAVA)のデバッグで他...
-
「ワークスペースをビルド中」...
-
JAVAにのeclipseに関する質問で...
-
eclipseでスタックサイズを変更...
-
jasper.exceptionとは?
-
Javaで年月の取得(YYYYMM形式で)
-
コミット前の更新データをチェ...
-
eclipseのjavaを実行できない
-
Javascriptのパーミッション
-
Worksheet_Changeが動かない
-
Eclipse 実行→Javaアプリケー...
-
eclipseで「サーバーで実行」表...
-
javascriptで、style undefined...
-
エクリプスで実行時、最新クラ...
-
環境変数設定で
-
Struts2でアプリが実行できません
-
Eclipseで実行>Javaアプリケー...
-
Spyder上のPythonでinputが実行...
おすすめ情報