締切済み

Dim Error GoTo ErrMsgの意味

2018/06/07 19:31

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

noname#233045

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

みんなの回答

GreatDragon
ベストアンサー率46% (186/402)

2018/06/07 21:47 回答No.1

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

質問者

お礼 2018/06/07 22:16

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

関連する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
AIは使う人の年齢や市場にも影響する？人工知能の可能性

OKWAVE コラム
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ですが、これは次元とかの意味で少し違うような気がするのですが。
ExcelのVBAでGoToの代わりに…

お世話になっていますよく、gotoは悪名高いとか、使わないほうが良いとか言われていますが、何故なのでしょう？？使わないようにしようと思っても、別の方法がわからず使ってしまっています。例えば、「aaa」というシートがあるかどうか調べ、なければ作成するとした場合、 Dim myWS As Object For Each myWS In Worksheets If myWS.Name = "aaa" Then GoTo 1 Next Worksheets.Add ActiveSheet.Name = "aaa" 1 次の処理というように書いていますが、これをgotoを使わないで…となるとどのように書いたら良いのでしょうか？
dim を解放

ＶＢスクリプト　です。 DIMで宣言された変数を解放するにはどうすればいいでしょうか？ DIM　myfilename myfilename="ああああああ" このときmyfilenameには「ああああああ」が入っていますが、これを空。初期状態に戻すにはどうすればいいでしょうか？ redim filename としたら（）がないとか言われてエラーでした。　（）つけてもエラーでしたけど。今　http://www.okweb.ne.jp/kotaeru.php3?q=281720 の疑問を解決しようとVBスクリプトで作成していきづまってるところです。
On Error GoToで飛んだ元の位置が知りたい

タイトル通りですが、ＶＢ６でOn Error GoTo XXXとしておくと、エラー発生時、XXXのラベルから実行されます。この時、どこから、このエラー処理(XXX)に飛んできたかを知ることは出来ないのでしょうか。要はエラーの発生した場所（ステートメント）を知りたいのですが、どのようにすれば、知ることが出来るでしょうか。現在は、怪しいところに目つけて、そこから１ステップずつ実行しているのですが、効率が悪いので、簡単に知る方法があればと思い質問しました。
GOTOトラベルは

既に予約済みのプランについても無効になるのでしょうか。もちろん年末年始あたりの予約は前もってとっている人が多いので、これを抑えないとGOTO一時停止の意味がないのでそうなのだとは思いますが、実際はどうなのでしょうか？
goto文が思うようにいかない

goto文をつくプログラムを組んだのですが、動作が思うようになりません。《ソースコード》 #include <stdio.h> void main() { int c; char shin2[50]; start: printf("文字を入力してください"); fgets(shin2, sizeof(shin2), stdin); printf("続けるなら0,終わるならそれ以外を入力"); scanf("%d",&c); if(c==0)goto start; } 説明のため省略した部分があるので意味のないソースコードになっています。最後のscanfで0を入力して、goto文でラベルstartに移ったあとのfgetsが、値を入力する前に次に移ってしまいます。これはなぜでしょうか？回答よろしくお願いします。
ＧＯＴＯキャンペ－ンと帰省

帰省のための交通費などＧＯＴＯキャンペ－ンを利用できるのか何卒よろしくお願い申し上げます。
Const　に　dim　は使えない？

標準モジュールに ''''''''''''''''''''''''''''''''''''''''''' Dim Const moji As String = "a" Sub test1() MsgBox moji End Sub Sub test2() Dim Const moji As String = "a" MsgBox moji End Sub ''''''''''''''''''''''''''''''''''''''''''' とするとエラーになりますが ''''''''''''''''''''''''''''''''''''''''''' Public Const moji As String = "a" Sub test3() MsgBox moji End Sub ''''''''''''''''''''''''''''''''''''''''''' なら大丈夫です。 Const に対してdimは使えないのでしょうか？
MicroSoft BasicのDim文とVisualBasicのDim文の違い

私が20年前にMicroSoft Basicを使っていたときは、DIM文はDIMENSIONの略で配列型変数の宣言に使っていました。最近VisualBasicの勉強を始めたのですが、変数の宣言はすべてDim文になっており、昔のMS BasicのDim文と意味合いが変わっているのに驚いています。ここで質問させてください。・なぜ配列を意味するDimension文が変数の宣言なのか？・どのバージョンのBasicからDim文の意味が変わったのか？私が使用していたのはNEC N-Basic,N-88Basic,N-98Basicです。
二つのエラーを発生させたい

ひとつのプロシージャー内で、二つのエラートラップを仕掛ける事は出来ないのでしょうか？ Sub エラーが発生した時にエラーが発生したら() Dim i As Long On Error GoTo Err1 i = "a" Exit Sub Err1: MsgBox "Err1のエラー：　" & Err.Description On Error GoTo Err2 i = "b" Exit Sub Err2: MsgBox "Err2のエラー：　" & Err.Description End Sub を行うと、 i = "b" で2回目のエラーが発生した時は、実行時エラーになってしまいます。 i = "b" で2回目のエラーが発生した時に、「Err2のエラー：　型が一致しません。」と表示させるにはどうすればいいでしょう？ Sub エラーが発生した時にエラーが発生したら() Dim i As Long On Error GoTo Err1 On Error GoTo Err2 i = "a" Exit Sub Err1: MsgBox "Err1のエラー：　" & Err.Description i = "b" Exit Sub Err2: MsgBox "Err2のエラー：　" & Err.Description End Sub にすると、 i = "a" のエラーで、「Err2のエラー：　型が一致しません。」へ移動してしまいます。
AccessVBAで「dim dbs as database」がエラーになる

済みませんが、非常に基本的なことを聞かせていただきたいと思います。 AccessのVBAで関数を実行すると、いきなりエラーになりました。 dim dbs as database　の文でエラーになり、「コンパイルエラー　ユーザ定義型が定義されていません」というエラーメッセージが出ました。 databaseが定義されているような感じです。どうすれば宜しいでしょうか？

Dim Error GoTo ErrMsgの意味

みんなの回答

お礼 2018/06/07 22:16

関連するQ&A

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

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

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

AIは使う人の年齢や市場にも影響する？人工知能の可能性

goto を使わずに

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

VBAでon error goto文がきかない

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

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

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

Dim は何の略ですか？

ExcelのVBAでGoToの代わりに…

dim を解放

On Error GoToで飛んだ元の位置が知りたい

GOTOトラベルは

goto文が思うようにいかない

ＧＯＴＯキャンペ－ンと帰省

Const　に　dim　は使えない？

MicroSoft BasicのDim文とVisualBasicのDim文の違い

二つのエラーを発生させたい

AccessVBAで「dim dbs as database」がエラーになる

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

Dim Error GoTo ErrMsgの意味

みんなの回答

お礼 2018/06/07 22:16

関連するQ&A

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

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

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

AIは使う人の年齢や市場にも影響する？人工知能の可能性

goto を使わずに

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

VBAでon error goto文がきかない

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

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

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

Dim は何の略ですか？

ExcelのVBAでGoToの代わりに…

dim を解放

On Error GoToで飛んだ元の位置が知りたい

GOTOトラベルは

goto文が思うようにいかない

ＧＯＴＯキャンペ－ンと帰省

Const に dim は使えない？

MicroSoft BasicのDim文とVisualBasicのDim文の違い

二つのエラーを発生させたい

AccessVBAで「dim dbs as database」がエラーになる

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

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

Const　に　dim　は使えない？

カテゴリ
一覧

専門家に質問してみよう
専門家登録