Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10449 / 76734

←次へ　｜　前へ→


	【71831】エラートラップが効かない

悩める老人 - 12/4/13(金) 14:39 -


	引用なし

	パスワード

早速ですが下記コードは 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

5 hits

▼

【71831】エラートラップが効かない 悩める老人 12/4/13(金) 14:39

≪