[[20100617103134]]　『入力規則違反でなにが選択されたか知りたい』（やまぞ）　ページの最後に飛ぶ

『入力規則違反でなにが選択されたか知りたい』（やまぞ）

 お世話になります。エクセル2003、XPの環境です。
 入力規則に反する値が入った時に出たメッセージが出たと判断する方法と、
 メッセージに対して何を選択したかを調べる方法がわかりません。
 いい方法があれば教えて下さい。
 例えば、999までの整数と入力制限されたセルに1000を入れたときに
 1.エラーメッセージが出たにとわかる方法
 2.エラーメッセージに対して"再試行"、"キャンセル"のどちらを選んだかを調べる方法
 以上　よろしくお願いします。

 難しいことはわからないので、MsgBoxで同じようなものを作ってみましたが。。。
　
 お遊び程度に見てみてくださいｂ
　
Private Sub Worksheet_Change(ByVal Target As Range)
Dim flg As Integer
Dim mystr As String
    With Target
        If .Count > 1 Then Exit Sub
        If Intersect(.Cells, Me.Range("A1:A10")) Is Nothing Then Exit Sub
        If .Value < 1 Or .Value > 999 Then
            flg = MsgBox("入力した値は正しくありません。" & vbCrLf & vbCrLf & _
                        "ユーザーの設定によって、セルに入力できる値が制限されています。", vbRetryCancel, "Microsoft Excel")
            Select Case flg
                Case 2: mystr = "[キャンセル]ボタン"
                Case 4: mystr = "[再試行]ボタン"
            End Select
            MsgBox "入力された値は  " & .Value & vbCrLf & _
                    "押されたボタンは　" & mystr & "  です。"
        End If
    End With
End Sub
　
 （キリキ）（〃⌒o⌒)b

 キリキ様
 ありがとうございます。
 １つの方法にとらわれるとだめなんですね。
 試してみます。
 ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20100617103134]] 『入力規則違反でなにが選択されたか知りたい』（やまぞ） ページの最後に飛ぶ

[[20100617103134]]　『入力規則違反でなにが選択されたか知りたい』（やまぞ）　ページの最後に飛ぶ