| |
早速ですが下記コードは Application.InputBoxにパスワートを入力し格納済データを呼び出し再処理するためのものですが実行テストのため
1.偽パスワード「１１１１」のときはエラートラップで「該当する番号は〜」
と意図とおりに作動しましたが
2.つづいて偽パスワード「２２２２」を入れたらエラートラップが効かずエラーメッセージ「worksheetfunction.Macth〜」が出て止まってしまいました。
解決策をご教示頂ければ大変嬉しく思います。よろしく願います。
Sub 再開回答()
'パスワードで個別データを呼出す
Dim bangohanni As Range, bango As Single
Dim DT As Worksheet
set DT=Worksheets("DT")
Application.DisplayAlerts = False
mg = "中断した回答の再開ですよね (?_?) "
ans = MsgBox(mg, vbYesNo)
If ans = vbNo Then
Exit Sub '処理パス
End If
saikai:
Set bangohanni = DT.[e3:iv3]
bango = Application.InputBox(prompt:="パスワードを入力してください！", _
Title:="パスワード入力", Type:=1)
If bango = False Then
MsgBox "パスワードを確認してやり直してください (?_?)"
Exit Sub
Else
On Error GoTo errmsg:
retu = WorksheetFunction.Match(bango, bangohanni, 0)
DT表示 retu + 4 'DT呼出表示する
MsgBox "回答が完了したら「Ank回答」をクリックしてください"
End If
Application.DisplayAlerts = True
Exit Sub
errmsg:
MsgBox "該当する番号はありませんよ！確認してください"
GoTo saikai
End Sub
|
|
悩める老人
- 12/4/13(金) 14:39 -
