エクセルＶＢＡで Cancel=Trueの使い方

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Cancel = True
MsgBox "キャンセルしました"
End Sub

Private Sub Worksheet_Deactivate()
Cancel = True
MsgBox "キャンセルしました"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cancel = True
MsgBox "キャンセルしました"
End Sub

以上のように使ってみましたが、どれも「キャンセルしました」とメッセージは出るものの、直前の操作（入力、シート切替、セル移動）はキャンセルされませんでした。
どこが間違っているのでしょうか？

No.5 ベストアンサー 回答者： shishishishi 回答日時： 2004/11/06 02:25

> セルへの入力を取り消す場合でいいです。

> たとえば、A１に５と入っていたのに３を入力されたので、５（というか以前の値）にもどす。

それでしたらこれが一番簡単な方法ではないでしょうか？3が入力されたらUndoしちゃうんです。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = 3 Then
Application.Undo
'MsgBox "キャンセルしました"
End If
End Sub

この回答へのお礼

これこそ求めていた答えです。
ありがとうございました。

お礼日時：2004/11/06 22:23

No.6 回答者： taocat 回答日時： 2004/11/06 07:34

No5shishishishi殿

そうか、Undoがありましたね。
思い出させてくれて感謝します。
これからも目から鱗の回答期待しております。

それから、この質問あってのこと、
ということでerror123さんにも感謝せねば。

この回答へのお礼

> ということでerror123さんにも感謝せねば。

あははは。
質問して感謝されちゃった♪

お礼日時：2004/11/06 22:24

No.4 回答者： taocat 回答日時： 2004/11/05 20:23

こんばんは。

簡単の為に、
Ａ１に、３を入力したらそれをキャンセルして、
Ａ１の値を元に戻すコードです。


Option Explicit

Dim W

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 3 Then
MsgBox "３は入力禁止。キャンセルします"
Application.EnableEvents = False
Target.Value = W
Target.Activate
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
W = Target.Value
End If
End Sub
　

上記のコードをSheet1（どのSheetでも可）のモジュールにコピペし、

（１）先ず、Ａ１に、３以外の数字を入力
（２）次に、３を入力すると「３は禁止」のメッセージ
（３）その後、Ａ１の値が元に戻る
　

こんなんでええですか？
　

この回答へのお礼

ありがとうございました。

お礼日時：2004/11/06 22:22

No.3 回答者： taocat 回答日時： 2004/11/05 07:21

おはようござりまする。

＞Worksheet_Changeイベントをキャンセルするには
＞どのようにコーディングしなければならないのでしょうか？

ただ単にWorksheet_Changeイベントをキャンセルするコードと言われても、意図するキャンセルの動作が具体的に分からないとコーティングはできませぬ。

例えば、
どのセルに対して、どういった条件の時に、
また、単に入力値を取り消すだけでいいのか等々、

この回答への補足

お返事ありがとうございます♪

セルへの入力を取り消す場合でいいです。
たとえば、A１に５と入っていたのに３を入力されたので、５（というか以前の値）にもどす。

よろしくお願いしま～す。

補足日時：2004/11/05 10:48

No.2 回答者： taocat 回答日時： 2004/11/04 15:25

snoopy64さんの回答にちょと補足しますと。

例を挙げるとブックを閉じる（×ボタン等）前には
下記のイベントが発生するわけですが、
引数を見てみると、Cancelがありますよね。
こういう場合に、Cancel=Trueが使えるわけです。
下記のコードをThisWorkbookに貼り付けて
ブックの閉じるボタン（×）をクリックしてみてください。


Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "×ボタンが押されましたが、その動作をキャンセルします"
Cancel = True
End Sub

で、質問のように引数にCancelがない場合は
その動作を自分でコーディングしなければなりません。


それから、老婆心で一言。
変数の宣言は必ずするようにしましょう。
Option Explicitステートメントは必須です。
これがあれば、CANCEL=TRUE、のところで
変数未定義のエラーが発生し質問も別なもの
になったかも知れませんね。
以上。

この回答へのお礼

>　引数を見てみると、Cancelがありますよね。
>　こういう場合に、Cancel=Trueが使えるわけです。

大変良くわかりました♪

> で、質問のように引数にCancelがない場合は
> その動作を自分でコーディングしなければなりません。

そうなんですか。では、たとえばWorksheet_Changeイベントをキャンセルするにはどのようにコーディングしなければならないのでしょうか？

お礼日時：2004/11/04 16:36

No.1 回答者： snoopy64 回答日時： 2004/11/04 13:54

キャンセルできるイベントとできないイベントがあって、できるイベントでは引数にCancelがあります。

・・・って理解してます。

この回答へのお礼

な～るほど！

Cancel As Boolean　ってのが「引数」なのかな？
ありがとうございました。

お礼日時：2004/11/04 16:31