VBプログラマ質問スレ（Ver.6.0 まで） part61
■ このスレッドは過去ログ倉庫に格納されています
0661デフォルトの名無しさん
2013/02/11(月) 19:46:25.49Err.Raise vbObjectError + 1001
End Sub
Private Sub Command1_Click()
On Error GoTo myerror
Call Hoge
Exit Sub
myerror:
Dim e
e = Err.Number - vbObjectError
MsgBox "Errorだよ" & e
End Sub
■ このスレッドは過去ログ倉庫に格納されています