質問: いつもお世話になります。 ExcelのVBAについてコードのサンプルを募集します。 呼び出されたシートの特定のセルが変更されたときに呼び出されるプロシージャを記述したいのですが、 「F6~F244の間で、かつ偶数のセル」が変更された際に、処理を行いたい場合どのような記述がよいでしょうか? よろしくお願いします。
回答: こんな感じでどうでしょう。 指定セルが変更されるとメッセージボックスを表示します。 ``` Sub Worksheet_Change(ByVal Target As Range) Dim r0, r1 As Integer r0 = 6 r1 = 244 If Target.Column = Range("F:F").Column And Target.Row >= r0 And Target.Row <= r1 And Target.Row Mod 2 = 0 Then MsgBox "セルの値が変更されました" End If End Sub ```