none
メッセージボックスについて2つの機能を実行させたい RRS feed

  • 質問

  • メッセージボックスを2行以上で表示して、自動的に閉じる方法はありますか?

    次の2つのサイトの方法を合体して実行したらエラーが出ました。

    文字列をテキストボックスに複数行で表示させる方法

    http://www.accessclub.jp/samplefile/samplefile_152.htm

    自動的に閉じるMsgBox

    http://officetanaka.net/excel/vba/tips/tips21.htm





    • 編集済み kuro1962 2015年12月22日 2:39
    2015年12月22日 2:30

回答

  • こんにちは。

    以下で出来ないでしょうか。

    Sub Hoge()
        Dim obj As Object
        Set obj = CreateObject("WScript.Shell")
        obj.Popup "1行目" & vbCr & "2行目", 1, "Hoge"
        Set obj = Nothing
    End Sub
    

    • 回答としてマーク kuro1962 2015年12月23日 6:00
    2015年12月22日 3:22
    モデレータ
  • Excel 2013は了解です。

    同じ適用範囲内で宣言が重複しています。

    これはどのように実現してよいかわからないのではなく、デバッグのお話しです。
    基本的なコードの組み方で、エラーメッセージの通りだと思うのですが、どこが重複しているのかわからないということでしょうか? エラーを取ることはプログラミングの大切な要素です。エラーを取るということはその言語の文法を理解していないとできないことですし、エラーを取ることによってプログラミング力が上がっていきます。
    もう一度重複箇所を確認され、もしわからなければ公開して良い範囲でその問題のコードを教えて下さい。

    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2015年12月23日 6:01
    2015年12月22日 4:16
    モデレータ

すべての返信

  • VBAはExcelでしょうか? Accessでしょうか? それとも他のソフトにおいてでしょうか?
    そのソフトのバージョン(例えばExcel 2013等)も教えて下さい。
    また、どのようなエラーが表示されていますか?


    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    2015年12月22日 2:42
    モデレータ
  • Excel 2013です。

    コンパイル エラー:

    同じ適用範囲内で宣言が重複しています。

    • 編集済み kuro1962 2015年12月22日 2:56
    2015年12月22日 2:52
  • こんにちは。

    以下で出来ないでしょうか。

    Sub Hoge()
        Dim obj As Object
        Set obj = CreateObject("WScript.Shell")
        obj.Popup "1行目" & vbCr & "2行目", 1, "Hoge"
        Set obj = Nothing
    End Sub
    

    • 回答としてマーク kuro1962 2015年12月23日 6:00
    2015年12月22日 3:22
    モデレータ
  • Excel 2013は了解です。

    同じ適用範囲内で宣言が重複しています。

    これはどのように実現してよいかわからないのではなく、デバッグのお話しです。
    基本的なコードの組み方で、エラーメッセージの通りだと思うのですが、どこが重複しているのかわからないということでしょうか? エラーを取ることはプログラミングの大切な要素です。エラーを取るということはその言語の文法を理解していないとできないことですし、エラーを取ることによってプログラミング力が上がっていきます。
    もう一度重複箇所を確認され、もしわからなければ公開して良い範囲でその問題のコードを教えて下さい。

    ★良い回答には回答済みマークを付けよう! MVP - .NET  http://d.hatena.ne.jp/trapemiya/

    • 回答としてマーク kuro1962 2015年12月23日 6:01
    2015年12月22日 4:16
    モデレータ
  • 遅くなりましたが、ありがとうございました。

    大変助かりました。

    2015年12月23日 6:00
  • 遅くなりましたが、大変勉強になりました。

    ありがとうございました。

    2015年12月23日 6:02