• 締切済み

VBAのエラー発生場所をメッセージBOXに表示

ap_2の回答

  • ap_2
  • ベストアンサー率64% (70/109)
回答No.3

いやいや、ないこともないんですよ・・・ '先頭の数字は消さないでね! Sub hoge() 3 On Error GoTo ErrHnd 4 Err.Raise 9999, "test" 5 ErrHnd: 6 MsgBox VBA.Erl & " : " & Err.Number & Err.Source End Sub VBA.Erl が 4 (Error発生行の先頭の数字)を表示します。 手入力したソレが「何行目」と一致するとは限りませんが。 使うことはないです。

関連するQ&A

  • VBAコーディング中のエラー時にメッセージボックスを表示させない方法

    VBAコーディング中のエラー時にメッセージボックスを表示させない方法  今日は,質問させていただきます.どうぞよろしくお願いいたします. VBAコーディング中に,エラー行があると毎回,メッセージボックスが 表示されると思うのですが,VBのようにエラーを強調表示させるだけで メッセージボックスを表示させないようにする方法は無いものでございましょうか..?  毎回コーディングを中断してリターンキーや,マウスを持ってクリックしに行くのが 非常に効率が悪いです...  もしお詳しい方がいらっしゃいましたら,どうぞよろしくお願いいたします

  • メッセージボックスの表示

    エクセル2000のVBAでメッセージボックスを表示させたいのですが、OKボタンを押して閉じるのではなく、VBAの記述でメッセージをオープン、クローズがしたいのですが、方法がわかりません。 何がしたいかというと、 FOR~NEXTなどの処理で今何件処理しているかをリアルタイムで表示させたいのです。 どなたか知っている方がいれば教えてください。

  • accessで未入力の場合にメッセージボックスを表示したい

    アクセスのフォーム(テキストボックス)が、未入力の場合メッセージボックスを表示したいです。 【追加条件】 1.テーブルで”入力規則”、”エラーメッセージ”は使わない。 2.vbaは使わない。 3.マクロの”条件”のみで処理する。 ---------------------------------------------------- vbaを使っての方法はあるみたいですが、マクロだけで入力判定をして、未入力の場合にメッセージボックスを表示する方法はないでしょうか?

  • VBAのメッセージボックスで%表示

    お世話になります。 VBAにて、算出されたある数字をメッセージボックスで %表示したいのですが、エクセルシートであれば、表示させる セルを決め、そのセルの表示形式を「パーセンテージ」にすれば いいのですが、メッセージボックスで表示させたいのです。 可能なのかどうか分かりませんが、ご教示頂きたく宜しく お願い申し上げます。

  • VBAにてメッセージボックスを最前面に表示させる

    エクセルVBAにて、指定時刻になったらメッセージボックスを、最前面に表示させるプログラムを作成中です。 時刻の指定は、ontimeメソッドの使用でできました。 しかし、最前面(他のアプリケーションを開いていても、メッセージボックスが手前に表示される)がどうしてもできません。。 VBだとAPI関数を使って、フォームを常に最前面表示はできました。 メッセージボックスで、このような表示方法は実現可能なのでしょうか? どなたか教えて下さい。よろしくお願いします。

  • メッセージボックス表示

    VBAでメッセージボックスの表示方法で教えてください。 あるセル、例えばA1に”111”と入力されたらメッセージボックスで ”○○”と出したい場合はどうしたらいいですか。 あと、A1からA3に”111”と入力された場合の複数セルの場合も教えてください。

  • EXCEL VBAでのアプリケーション定義エラーについて

    VBA初心者です。失礼します。 データのあるシートから別シートに、1行ずつ挿入しながらレポートを作成しようとしています。 すると、700行目までいってコピーして挿入しようとするといきなり「アプリケーション定義またはオブジェクト定義のエラーです。」と出てしまいます。 また、元データの並び替えを行うと650行目あたりで同じエラーが表示されます。 エラーの発生する値は並び替えごとに違います。 データを見ても、null値が入っているわけでもなく、他のものとなんら変わりはありません。 データの数を少なくすると最後まで問題なく処理されるのですが…。 負荷が掛かりすぎて上記のようなエラーがでるのでしょうか? しかし行数は700行ですし、列数も10列くらいしかありません…。 どうしても分からずこちらにきてしまいました。 どうぞご指導をよろしくお願いします。

  • Excel VBAメッセージボックスの表示位置が右下になってしまう

    ExcelのVBAでメッセージボックスを作成しましたが、 表示される位置がなぜが画面右下の端っこになってしまいます。 通常通り画面中央にメッセージボックスが表示されるにはどうすればよいでしょうか? またこうなってしまった原因はなんでしょうか? VBA初心者です。よろしくお願いします。

  • メッセージボックスのOKボタンをVBAでクリックさせたい

    EXCELの1つのブックに2つのマクロを組んでいます。 普段は1つ目のマクロを実行したあと、処理結果を確認してから 2つ目のマクロを動かしています。 ※1つ目のマクロ終了時に、完了のメッセージボックスが出ます。 この2つのマクロを、自動で処理するためのマクロを 作ろうとしていて、 1.1つ目のマクロを実行 2.処理完了のメッセージボックスのOKをクリック 3.2つ目のマクロを実行 という流れで処理しようと思っています。 今、メッセージボックスのOKボタンをVBAでクリックする方法がわからなくて 調べているのですが、お分かりになる方いらっしゃいましたら 教えていただけませんでしょうか。 例えば、1つフラグを作って、そのフラグが立っている時は メッセージボックスを出さないような制御は出来るのですが、 今回は、メッセージボックスをクリックする方法が 知りたいと思っています。 よろしくお願いいたします。

  • エラーが発生した場合は VBA

    Sub Sample() On Error GoTo Err1 Dim i As Integer i = "あ" '←ココで構文エラーとなる。 MsgBox "あ" Debug.Print "無事終了します" Exit Sub Err1: Debug.Print "エラーになりました" i = 1 Resume Next 'エラーの発生した次の行から処理を続行します。 End Sub このようなエラー処理で エラーが発生した場合は MsgBox "あ" ではなく i = "あ" '←ココで構文エラーとなる。 に戻る事は出来ないのでしょうか?