戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
「こんにちは」をExcel枠なしで表示させたい

    [196570] 「こんにちは」をExcel枠なしで表示させたい-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ かん -(2025/04/30(13:04))
    □U R L/

      次のことしたいのですが、教えてください。
      1.自動実行する(Workbook_Open)。
      2.msgboxを使い、"こんにちは"と表示させる。
      3.そのmsgboxの背景にExcel枠を表示させない。
      4.msgboxの「ok」をクリックしたあともExcel枠を表示させないで終了する。
      5.すでに別のExcelが表示されていた時はそのExcelに影響を与えないよう配慮する。
       別のExcelはそのまま残り、"こんにちは"と表示したExcelだけが消えるようにする。

      特に3,4,5がうまくいきません。


      ++++++++++++++++++++
      OS      ⇒Windows 11
      Version⇒Excel 2019
      ++++++++++++++++++++




    [196572] Re[1]: 「こんにちは」をExcel枠なしで表示させたい-

    記事引用/メール受信=OFF■

    □投稿者/ OK -(2025/04/30(18:21))
    □U R L/

      Application.Visible = False

      でアプリケーション事態を非表示にできますが、当然他のブックが
      開いていたらそれも非表示になります。

      また、アプリケーションが非表示の状態でエラーなどでユーザーフォーム
      等が消えると見た目はエクセルが起動してないけど実際はエクセルが
      起動している状態になります。

      参考まで。

      VBAの部品庫-Excelを非表示にする
      ht tps://vbanobuhinko.com/excel%E3%82%92%E9%9D%9E%E8%A1%A8%E7%A4%BA%E3%81%AB%E3%81%99%E3%82%8B/

      APIを駆使すると出来るのかもしれませんが、詳しくはないので解説は出来ません。




    [196574] Re[2]: 「こんにちは」をExcel枠なしで表示させたい-

    記事引用/メール受信=OFF■

    □投稿者/ kazuo -(2025/04/30(19:41))
    □U R L/
      失礼します。
      個人的な用語を作成し使用するのはやめましょう。
      
      1.「Excel枠」でググると枠線が出てきますが、たぶんかんさんのExcel枠では無いですよね?
      想像するにブックを表示させないだと思われます。
      そうならそのブックのThisWorkBookモジュールに記載すれば良いでしょう。
      「エクセル vbaブックを非表示」でググってください。
      
      2.別のExcelが表示されていた時
      別のExcelというと通常別インスタンスで起動しているExcelをいいます。
      そうなら何も気にする必要がありません。
      これも想像するに別のブックのことだと思われます。
      1と同じ方法で解決できます。
      
      一例です。
      
      Private Sub Workbook_Open()
          If Workbooks.Count = 1 Then Application.Visible = False
          Me.Windows(1).Visible = False
          メッセージボックス "こんにちは"     'エラーとなり投稿できないのでカタカナにしています
          Application.Visible = True         'デバッグ用
          Me.Windows(1).Visible = True       'デバッグ用
      '    Stop                              'デバッグ用
          If Workbooks.Count = 1 Then Application.Quit
          Me.Close False
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [196576] Re[3]: 「こんにちは」をExcel枠なしで表示させたい-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ かん -(2025/04/30(20:32))
    □U R L/

      kazuo様

      不適切な表現をしてしまい申し訳ありませんでした。
      ご察知のとおりExcelブックのことです。

      ご呈示のコードを試したところ思った通りに動作しました。
      ありがとうございました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G