エクセルのVBプログラムについて

締切済

質問者：kei0214
質問日時：2015/01/16 13:29
回答数：3件

インターネット上にあった下記のVBプログラムをエクセルで使用しているのですが、
セルの変化を数値入力後、「エンター」を押さなければ認識しません。

『 ='Sheet2'!N13 』のように他のシートから数値を取り、その変化で、
メッセージボックスを起動させたいのですが、上手くいかないのです。

何方か、対処方法、宜しく御願いします。

：

次のサンプルは、値を変更したセルがセルA1～B5に含まれる場合にのみ、
メッセージボックスを表示します。
対象とするワークシートのシートモジュールに記述してください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B5")) Is Nothing Then
Exit Sub
Else
MsgBox "セルの値が変更されました"
End If
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： WindFaller
回答日時：2015/01/16 22:46

こんばんは。

少し、質問に疑問があります。
>『 ='Sheet2'!N13 』のように他のシートから数値を取り、その変化で、
>メッセージボックスを起動させたいのですが、上手くいかないのです。

>セルの変化を数値入力後、「エンター」を押さなければ認識しません。
これって、Sheet2のN13が自動的に、値が変動するのでしょうか？
言い換えると、Enterなしで、イベントを感知するものではありませんか？

私の勘違いでなければ、かなり、昔からある質問です。Microsoft にも載っていた質問です。昔ですと、DDEから入ってくる値を監視するという類のものです。
今は、ActiveX コントロールにそういうものがありますね。

そういう場合は、Class 側から、新しいイベントを作ってあげ、APIタイマーで常に、セルを監視するそうです。しかし、古い方法（2000以降)の方法としては、=Now()を見えない所に置き、Worksheet_Calculateイベントを取ります。2000より以前ですと、OnCalculate メソッドを使っていました。

どういうものか、もう少し詳しく教えてください。
もし、私の書いている内容が的外れなら、無視して構いません。

- 0
- 件

通報する

この回答へのお礼

DDE、ActiveX コントロール、まだ、不勉強な未知の領域のものなので、
セルや値の変化をどのように処理しているのか、申し訳ない状態なのですが、

今回の事で、計算式によって起動するものと、セルの変化によって起動する
ものがあることを理解しました・・・

現状は、Worksheet_Change をWorksheet_Calculate に変化させ、
無事、起動しております。画面の左下の準備完了の表示が繰り返し、点滅するため、
プログラムが絶えずセル、計算式の変化の監視状態にあるのかもしれませんが、
この件に関しての不具合、負荷などがなければ何とかなりそうです。

コメントありがとうございました。

通報する

お礼日時：2015/01/23 10:29

No.2

回答者： dogs_cats
回答日時：2015/01/16 15:02

シート２のN13の値変更でシート１にメッセージを表示したいというのであれば下記方法で可能です。

sheet2のシートモジュールに下記をコピペで可能です。
シートモジュールと標準モジュールの違いを理解して下さい。
http://vbae.odyssey-com.co.jp/column/no15_1.html
上記サイトに記載していますが、VBAprojectのsheet2をWクリックするとsheet2のシートモジュールが表示さます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("N13")) Is Nothing Then
Exit Sub
Else
Worksheets("sheet1").Activate
MsgBox "セルの値が変更されました"
End If
End Sub