- ベストアンサー
worksheet_changeがループする
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
下記ページの「Changeイベント」が参考になります。 Excel(エクセル) VBA入門：ワークシートのイベント http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html
関連するQ&A
- linkとWorksheet_Change
LINK してあるセルを ターゲットにして Worksheet_Change をとっても 反応しない。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub Msg = MsgBox("bが変更されました。", vbOKCancel) tensou この$B$2は 他の部分からデータを得ています。時間でこのセルの値が自動で変化するのですが Worksheet_Change 起きないのか、捉えられないのか、分かりかねますが その下$B$3に ＝$B$2 もしくは ＝Value（$B$2） で 飛ばして Target.Address <> "$B$3"にしても 同じ。 このLINKした セルの Worksheet_Change イベントを ひらう方法を お教え願えませんでしょうか IF 分を ＝で置き換えても同じでした。
- ベストアンサー
- Visual Basic
- Worksheet_Change 有限？ループする
これって1回だけ発生させるのは無理なのですか？ Ａ列のどこかの行の値が変更されたなら、イベントを発生させたいのですが Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Debug.Print i i = i + 1 Target.Value = "aaa" End If End Sub これで見ると、１９９回コードが実行されてます。 イミディエイトウインドウに199まで記載されます。 Ａ列の値が変更されるたびにイベントが発生しているのですが 199回も発生しなくてよいから1回だけ発生させるにはどうすればいいでしょうか？ 実際は、 Target.Value = "aaa" の下にもコードが続いてるので、 Target.Value = "aaa"が入力されてもイベントが発生せず、 コードを続きから実行させる方法が知りたいです。
- ベストアンサー
- オフィス系ソフト
- WorkSheet_Changeを2つ反映させる
下記のコードをWorkSheetで2つ反映させるにはどうしたらいいでしょうか？どちらか一つなら反映するのはわかりますが、どう名前を変更すればいいのかお教え願えませんでしょうか？ windows7・SP1 Office2010 Private Sub WorkSheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub '検査範囲 Application.EnableEvents = False '再帰実行の停止 If Range("C1").Value <> Sheets("祝祭日").Range("A1").Value Then MsgBox ("祝日の設定を反映するため年度を同じにしてください。") End If Application.EnableEvents = True End Sub Private Sub WorkSheet_Change(ByVal Target As Range) Dim MyRow As Long Dim MyCol As Integer MyRow = Target.Row MyCol = Target.Column With Worksheets("メイン・1").Select If MyRow = 1 And MyCol = 7 Then If Target = 4 Then 'または If Target = 1 Then メインデータの復元 '動かしたいマクロ名 End If End If End With End Sub
- ベストアンサー
- Visual Basic
- VBA/Worksheet_Changeがうまくいかない
エクセル2000です。 以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetをクリアした後、TargetをダブルクリックしてからEnterキーを押せばRange("F5").MergeAreaがクリアされるのですが、いちいちそうさせるわけにもいきません。 どうしたらよいのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub If Target.Value <> "" Then Range("F5").Value = Range("D42").Value Else Range("F5").MergeArea.ClearContents End If End Sub
- ベストアンサー
- オフィス系ソフト
- 「Worksheet_Change」で２つの操作を
お世話になります。 当方、エクセルの超初心者です。 仕事で、ある作業表の作成を任されたのですが、一部が思い通りに動作しません。 最初は「例１」のような記述によりエラーしました。 【例１】 Private Sub Worksheet_Change(ByVal Target As Range） （内容１） End Sub Private Sub Worksheet_Change(ByVal Target As Range） （内容２） End Sub その後、過去の回答にあった類似案件を参考に「例２」のように書き換えましたが、 実行されるのは１つ目のみで、２つ目の内容は無視され、困っております。 【例２】 Private Sub Worksheet_Change(ByVal Target As Range） （内容１） （内容２） End Sub ちなみに実データは以下の通りです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Intersect(Target, Range("k6:k55")) Is Nothing Then Exit Sub If Target.Value = "" Then Target.Value = "○" Else Target.Value = "" If Target.Count <> 1 Then Exit Sub If Target.Column <> 2 Then Exit Sub If Target.Row < 6 Or Target.Row > 45 Then Exit Sub Call ShowCalendarFromRange2(Target) End If End Sub 見様見真似で作ったため、恥ずかしながら基本が全く理解できていません。 恐らく簡単なミスだと思うのですが、自力では解決方法を探し出せませんでした。 何とか２つの内容が実行できないものでしょうか。 どうか、お知恵をお貸し下さい。
- 締切済み
- その他MS Office製品
- Worksheet_Changeが動かない
エクセル自動実行のマクロを作成中にうまく動かないので サンプルをコピーして、変更してみたのですが そのサンプルも動いません、マクロとは違う何か悪いのでしょうか？ 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
- ベストアンサー
- その他MS Office製品
- WorkSheet _Change を使って
たびたびお世話になります。 worksheet_changeを使うマクロを作成しています。 sheet１で入力されたデータがsheet2にあるデータベースの文字と一致した場合、sheet１の該当セル（入力した部分）の色を変えます。 もしそのセルの内容が変更、削除された場合は塗りつぶしなしに戻します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim sTitle As String sTitle = Target.Value If sTitle = "aaa" Then Target.Interior.ColorIndex = 7 Else Target.Interior.ColorIndex = xlNone End If End Sub このコードで、「aaaという文字を入れたら色を変える／削除・変更されたらは塗りつぶしなし」という動作はできました。 しかしその後、aaaに当たる項目が増え、項目自体を変更する可能性も増えたので、上記のように別シートにデータベースを作ることにしたのです。 このコードを基にしてプログラムを組んだのですが、うまく参照が出来てないようでコンパイルエラーになってしまいます。 アイディアでも良いのでアドバイスをお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡ／シートのチェンジイベントを発生させない方法？
Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "イベント発生" End Sub このワークシートがアクティヴになってるときに手入力された場合以外、チェンジイベントを発生させなくするにはどのような方法があるでしょうか？ 標準モジュール記載の他のマクロでセルが変更された場合を無視したいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- WorkSheet _Change について
いつもお世話になっています。 今、セルにある特定の文字列が入力されたら、セルの色を変えるという処理を作成しています。 Private Sub Worksheet_Change(ByVal Target As Range) Dim sTitle As String sTitle = Target.Value If sTitle = "aaa" Then Target.Interior.ColorIndex = 16 End If End Sub コードはこんな感じです。（動作確認済み） たしかに特定の文字列を察知してシートの色を変えることはできるんですが、今作成しているものは随時セルの中身が更新されるのです。 そこで、別の文字列が入力されたら（もしくは文字列が削除されたら）もとの白色に戻る、という処理はできますでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excel VBA イベントプロシージャを２つ記述する（基本です）
基本的な事なのですが、Excelのイベントプロシージャで２つプログラムを作るにはどうやって記述すればよいのでしょうか？ 具体的には、worksheetのchangeイベントで、セルC5の値を変えた時と、セルG7の値を変えた時の２通りのマクロを作成したいのです。 Private Sub Worksheet_Change(ByVal Target As Range) C5を変えた時の処理 End Sub Private Sub Worksheet_Change(ByVal Target As Range) G7を変えた時の処理 End Sub このように書けばよいのでしょうか？そうするとTargetがかぶっておかしくなる気がします。。 お願いします。
- ベストアンサー
- オフィス系ソフト
お礼
わかりました。ありがとうございます。