| |
こんばんは。
>解決策をご教示頂ければ大変嬉しく思います。よろしく願います。
これは、
>
Option Explicit 'これを付けて変数宣言を義務付ける癖を付けてください
>Sub 再開回答()
> 'パスワードで個別データを呼出す
> Dim bangohanni As Range, bango As Single
> Dim DT As Worksheet
Dim mg As String
Dim ans As Long
Dim retu As Variant
Dim DT表示 As Long
> 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 "該当する番号はありませんよ！確認してください"
Resume saikai
>End Sub
Resume saikai
↑ここを変更すれば、作動はします。
が、わかりづらいでしょう？
Do Loop を使えば、もっとわかりやすく記述ができます。
On Error 〜 ステートメントに関しては、
使ってもよいです。使い方を覚えるのも有意義だと思います。
|
|
ichinose
- 12/4/13(金) 20:11 -
