変化するセルが変更されたら実行、というVBAを組みたい

たとえば、このセルが変更されたら実行、というのは

Private Sub WorkSheet_change (Byval Target As Range)
If(Target.Address = "$D$3") Then
call ***
End If
End Sub

のようにしますよね？
この場合、指定したセルは「D3」ですが、たとえば、
A列、B列、C列、D列のアクティブの行のセルが変更されたらコード実行、
というようにするにはどうしたらいいのでしょうか？

No.3 ベストアンサー 回答者： chipmogura 回答日時： 2004/04/02 14:02

ChangeプロシージャのTargetには内容が変更されたセルの

位置情報が入っています。
しかし、ActiveCellには現在カーソルのある（太枠表示）セルの
位置情報が入っています。
Activeプロシージャは、Enterキーが押されたり、他のセルがクリックされたり
した時に発生します。ということは、ActiveCellは常に「Changeイベントが発生したセル」とは
異なっています。
よって、メッセージボックスは表示されません。

> A列、B列、C列、D列のアクティブの行のセルが変更されたらコード実行
「セルが変更」されるとは、
「内容が変更されたセルからフォーカスが別のセルに移」
らないとなりません。つまりアクティブセルは常に
「変更を加えたセル」以外になりますので、
ちょっと意味がわからないのですが、
下記のようではダメでしょか？？

' A列～D列で変更があった場合
Dim r&, c&
c = target.Column
If 1 =< c And c <= 4 Then
MsgBox r
End If

' A列～D列の３行目から５行目のセルで変更があった場合
Dim r&, c&
r = Target.Row
c = target.Column
If (3 <= r And r <= 5) and (1 =< c And c <= 4) Then
MsgBox r
End If

などなど...

この回答へのお礼

回答ありがとうございます。
どうやら無事動いているようです。

追加質問なのですが、

Dim r&, c&
c = Target.Column
Dim w As Integer
Dim Mark As String

w = ActiveCell.Row
Mark = Cells(w - 1, 2)
If 2 <= c And c <= 16 Then
If Mark = "" Then
Call A
ElseIf Mark = "休" Then
Call B
End If
End If

とあり、Aの方は無事ちゃんと動きました。
Bの方が以下のようになっています。

Dim w As Integer
w = ActiveCell.Row
w = w - 1
Cells(w, 11) = "あ"
Cells(w, 14) = "い"

これで無限ループになってしまうのです。
なぜなのでしょうか？
よろしくお願いします。

お礼日時：2004/04/02 14:40

No.4 回答者： chipmogura 回答日時： 2004/04/02 17:25

うむむ、ハマりましたね、ドツボに。

> Cells(w, 11) = "あ"

セルに値を代入していますね。
ということはこの時点で「Changeイベント」が発生して、
「Cahngeプロシージャ」に制御が飛び込んできますが
そこでまたCall B が発生して、
セルに値を代入してChangeイベントが発生して...ひい～っ！
ということではないでしょうか！？。

どのような仕様のプログラムかわからないのでなんともいえませんので
とりあえず手がかりを提示しておきます。
・ひとつの案
Changeイベントを拾わずに、SelectionChangeイベントにする。
具体的には、今 Worksheet_Change()プロシージャに書かれているコードを
Worksheet_SelectionChange()プロシージャに移し変える。
・もうひとつの案
フラグ用にパブリック変数を作り、Call B が発生するときは
フラグを立てて、対象範囲を処理中はChangeプロシージャに再度飛び込んできても
無処理で抜けるようにする。

SelectionChangeイベントを使う方法は、作成するプログラムの目的や仕様に
よってはうまくいかないかもしれません。
また、フラグで制御は結構面倒くさいんですが...（ワラシこれちか知ゅらないの、たはは）
こういった問題で別に質問を立てたほうが
色々なアイデアを出してくれる「すごい」人がいるかもしれませんねぇ

この回答へのお礼

回答ありがとうございます。
ハマってました…（笑）

ifやら何やら使い何とかぬけだしました（＾＾；
ありがとうございました。

お礼日時：2004/04/02 17:38

No.2 回答者： kmb01 回答日時： 2004/04/02 14:01

if文のところにブレークポイントを設定して実行時の値を確認してください

この回答へのお礼

すいません、＃３の方の回答でうまくいきそうです。
ありがとうございました。

お礼日時：2004/04/02 14:37

No.1 回答者： kmb01 回答日時： 2004/04/02 12:04

Dim r&, c&

r = Target.Row: c = Target.Column
If r = ActiveCell.Row And c >= 1 And c <= 4 Then

みたいなかんじですかね

この回答へのお礼

回答ありがとうございます。
こういうことでいいのでしょうか？

Private Sub worksheet_change(ByVal target As Range)
Dim r&, c&
r = target.Row: c = target.Column
If r = ActiveCell.Row And c >= 11 And c <= 16 Then

MsgBox r


としてみたんですが、メッセージボックスが表示されませんでした。

お礼日時：2004/04/02 13:06