- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ExcelVBAのChangeイベントについて）
ExcelVBAのChangeイベントについて
このQ&Aのポイント
- VBAのWorkSheet_Changeイベントを使用して、特定の行の変更を検知するコードを作成したいです。
- 行数４行のうち、１行目に変更があった場合にコードが実行されるようにしたいです。
- 行数１０行目、１４行目、１８行目、２２行目、２６行目など、１０の倍数行にはコードが実行されないようにしたいです。
- merrykun2006
- お礼率37% (16/43)
- Visual Basic
- 回答数4
- ありがとう数3
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
１０・１４・１８・２２・２６・・・・ 以外は実行されない Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Row < 10 Or .Row Mod 4 <> 2 Then Exit Sub MsgBox .Row & "行目、実行します。" End With End Sub
その他の回答 (3)
- imogasi
- ベストアンサー率27% (4737/17069)
回答No.3
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 10 And ((Target.Row - 9) Mod 4 = 1) Then MsgBox Target.Row '本番ではMsgBox の代わりに、処理のコードを書く End If End Sub などどうですか。 ーー テストで、１行目ー３０行目までのセルに入力すると 第１０，１４，１８，２２、２６，３０の行で、入力すると、Msgbox表示が現れました。
- kkkkkm
- ベストアンサー率66% (1725/2595)
回答No.2
No1です。 起点を忘れてました。 If (Target.Row - 10) / 4 = Int((Target.Row - 10) / 4) And Target.Row >= 10 Then
- kkkkkm
- ベストアンサー率66% (1725/2595)
回答No.1
> １０・１４・１８・２２・２６と「１０＋４の倍数」は 実行されないコードを 実行されるですよね。 If (Target.Row - 10) / 4 = Int((Target.Row - 10) / 4) Then End If
