• 締切済み

Dim Error GoTo ErrMsgの意味

Dim Error GoTo ErrMsg 調べては見たもののどういう意味だか解らないのです。 パーツの意味を教えて頂けませんか。 宜しくお願い致します。

noname#233045
noname#233045

みんなの回答

回答No.1

Dim Error GoTo ErrMsg ではなくて On Error GoTo ErrMsg ではありませんか？ エラー処理については、例えば下記などを参照ください。 https://www.sejuku.net/blog/35484

noname#233045
質問者

お礼

仰る通りです。 ページのご紹介有難うございます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • On Error GoTo　でエラーが発生する

    Sub Macro1() On Error GoTo ErrorTrap1 　　　　'-エラーの発生するコード　１ ErrorTrap1: On Error GoTo 0 　　　Do 　　　On Error GoTo ErrorTrap2 　　　　　　'-エラーの発生するコード　２ 　　　On Error GoTo 0 　　　Loop ErrorTrap2: End Sub しかし、以下のようにSubで二つに分けるとエラーは出ません。 Sub Macro1() On Error GoTo ErrorTrap1 　　　　'-エラーの発生するコード　１ ErrorTrap1: On Error GoTo 0 Call Macro2 End Sub Sub Macro2() 　　　　Do 　　　　　On Error GoTo ErrorTrap2 　　　　　　'-エラーの発生するコード　２ 　　　　On Error GoTo 0 　　　　Loop 　　ErrorTrap2: End Sub 「On Error GoTo 0」がうまく解除できていないのかと思い、いろいろ試してみました。 しかし、どういった理由かはわかりませんでした。 「On Error GoTo」は、Subでは、ひとつしか使えないのでしょうか。

  • エクセルVBA 「On Error GoTo 0」について

    「On Error GoTo 」ステートメントの意味は、だいたい理解しています。 「On Error GoTo 0」 ステートメントについて、ご教授お願いします。 参考書には「エラーのトラップ処理を無効にする」と載っていましたが、よくわかりません。 具体的にどのような使い方をするのか、簡単なコードで説明していただければ幸いです。 よろしくお願いします。

  • [Excel2003] On Error GoTo について教えてください。

    エラー処理について教えてください。 以下の様なマクロで、インプットボックスに 数字以外を入力した場合のエラー処理ですが、 次のような手順で進めると 「型が一致しません」とエラー表示されてしまいます。 どこがいけないのでしょうか？ 　　【手順】 　　・マクロ実行 　　・インプットボックスへ数字以外の文字を入力 　　・「OK」クリック 　　・再びインプットボックス出現 　　・もう一度数字以外の文字を入力 　　・「OK」クリック←ここでエラー表示！ Sub TEST() Dim Tuki As Integer On Error GoTo INPT INPT: Tuki = InputBox("何月分ですか？" & vbCrLf & _ "数字を入力してください。", "集計月入力", 1) If Tuki = 0 Or Tuki > 12 Then MsgBox "１から１２の数字を入力してください。" GoTo INPT End If On Error GoTo 0 End Sub

  • goto を使わずに

    ＶＣ＋＋でプログラムを作ったんですが、上司からgotoは使うなとの指示があり困ってます。 なにせ、まだまだＶＣ＋＋になれてないし、かなりの初心者です。 Ｃ言語は学生のころ習いました。 if(a==0x0030){ //0による除算を回避するために0は入力不可とする(0ディバイト) int ret; //エラー画面出力 ret=AfxMessageBox("0は入力不可です。",MB_OK|MB_ICONEXCLAMATION);//入力が0の場合エラーを表示 goto end; } ・ ・ ・ end: //エラーがあった場合ここにとんで最初からやり直される ; } こんなかんじなのですが、なにか解決法ありませんか？

  • Gotoを使わずに済みますか？

    VBA超初心者です。ヘルプだけで学習していますが、よくわかりません。印刷する時に、GT4かGU4の値が0の場合はエラーメッセージが出て終了し、いずれも0以外ならばその数値を印刷の開始と終了ページとして取得するプログラムを作ってみましたが、何度やってもうまくいかず、やむなく昔ベーシックで習ったGotoを使ってみました。 しかし、過去ログを見ると、Gotoは使わないほうが良いとの事。 この文でGotoをなくす方法をご教授下さい。お願いします。 Sub 印刷() 開始ページ = Range("GT4").Value 終了ページ = Range("GU4").Value If Range("GT4") = 0 Then GoTo 10 If Range("GU4") = 0 Then GoTo 20 入力結果 = MsgBox((開始ページ) & "ページから" & (終了ページ) & "ページを印刷しますか？", vbYesNo) If 入力結果 = vbYes Then ActiveWindow.SelectedSheets.PrintOut From:=開始ページ, To:=終了ページ, Copies:=1, Collate _ :=True GoTo 30 10: MsgBox ("未入力の項目があ～る！") GoTo 30 20: MsgBox ("入力ミスがあります！") 30: End If End Sub

  • VBAでon error goto文がきかない

    エラーが発生しているにもかかわらずon error gotoが実行されません。 ファイルの存在チェックで存在したときは消すようにプログラムしたはずなのに。同僚いわく「何かＯＳのファイルが壊れているのでは？」とのこと。ＯＳの再インストールでもすればいいのでしょうか？できれば参照設定かなんかでファイルをアサインしてon error gotoが実行されるようにしたいのですが・・・ムリですか？

  • 「エラーの宣言」「エラーの定義」

    Sub Sample() Dim i As Long On Error GoTo test i = "a" test: i = 1 End Sub こういうのって、 On Error GoTo test の部分は「エラーの宣言」って言いますか？ 「エラーの定義」でしょうか？

  • Access VBA にて on error goto がたまに機能し

    Access VBA にて on error goto がたまに機能しないPCがあるます。 具体的には、on error gotoのコーディングを無視して、エラーのポップアップが表示される 何か対応する方法は、ありますか？ 環境 ネットーワークにあるmdbをドライブに接続して、Accessを起動しています。 　　Windows2000(sp4)+Access2000(sp3) 他のPCでは、問題ありません。PCは、イメージをクローンして作成していますので、同一です。 ※コーディングイメージ Private Sub 稼働時間_AfterUpdate() on error goto ERR_稼働時間 Dim errcnt as integer errcnt = 0 DoCmd.GotoRecord A_FORM,"時間入力",A_NEXT <----- エラーのポップアップが表示される if errcnt = 1 Then DoCmd.GotoRecord A_FORM,"時間入力",A_PREVIOUS end if exit sub ERR_稼働時間: errcnt = errcnt + 1 resume next end sub

  • これらはどういう意味ですか？

    On Error GoTo ErrorHandler Me!開始日 Dim cnn As ADODB.Connection Dim rst As New ADODB.Recordset よろしくお願いします♪

  • Dim は何の略ですか？

    エクセルで変数の型宣言をするとき、例えば Dim　変数　As　Integer と書きますが、このDimは何の略でしょうか？ 宣言はdeclarationだし、Dimから考えられるのは Dimensionですが、これは次元とかの意味で少し 違うような気がするのですが。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する