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

    [196443] シートを1枚も表示させない-

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

    □投稿者/ 吉田 -(2025/01/25(12:04))
    □U R L/

      今回、何らシートを使わない作業を考えています。
      例えばの例で話しをしますと、
      ブックを立ち上げると、今日の運勢を表示するようなもの。

      ここで質問ですが、
      このような場合、全くシートを必要としませんが、
      「シートは非表示にできるが、1枚は必要」と在りました。

      やはり、何も出さないのは不可なのでしょうか。
      もし出来るようであれば教えてほしいのです。
      宜しくお願いいします。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒Excel 2003
      ++++++++++++++++++++




    [196444] Re[1]: シートを1枚も表示させない-

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

    □投稿者/ 半平太 -(2025/01/25(14:53))
    □U R L/
      >「シートは非表示にできるが、1枚は必要」と在りました。
      それがルールなので、無理でしょうね。
      
      ごまかしですけど、ActiveWindowを最小化したらどうですか?
      
       ActiveWindow.WindowState = xlMinimized
      




    [196445] Re[2]: シートを1枚も表示させない-

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

    □投稿者/ 吉田 -(2025/01/25(18:07))
    □U R L/

      半平太様、早速ありがとうございました。
      まず、出来ない件、了解です。
      折角頂いた方法ですが、
      「デスクトップの状態のまま」で、というもので、
      残念ながら諦めます。
      お手数をおかけしました。




    [196446] Re[3]: シートを1枚も表示させない-

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

    □投稿者/ kazuo -(2025/01/26(10:08))
    □U R L/
      解決済みですが、
      vbsから起動すればexcelブックをチラとも表示せずにUserFormを表示できます。
      ピン止めしたExcelのを変更したくないのでWordで確認しましたがタスクバーにも表示されないと思います。
      
      例えば、userform表示.xlsmブックを作成します。
      Thisworkbookモジュールに
      Private Sub Workbook_Open()
          UserForm1.Show
      End Sub
      
      UserForm1モジュールに
      Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
          Application.Visible = True  'デバッグが完了したらコメントブロックしてください
          Stop                'デバッグが完了したらコメントブロックしてください
          Application.Quit
      End Sub
      Private Sub UserForm_Initialize()
          'ユーザーフォームに表示させたいこと
      End Sub
      
      userform表示.vbsをメモ帳で作成します。
      Dim App
      Set App = CreateObject("Excel.Application")
      App.Workbooks.Open ("C:\Users\。。。\userform表示.xlsm")
      Set App=Nothing
      
      とし、デスクトップとかに保存します。
         なお、C:\Users\。。。\userform表示.xlsm はフルパスで記載ください。
      
      userform表示.vbs をダブルクリックすればユーザーフォームが表示され、xすればExcelも閉じます。
      
      また、コメントブロック後のuserform表示.xlsmを編集するには、
      "excel マクロを実行せずに開く"で検索ください。
      
      excel2003では(.xlsでしょうが)、未確認です。


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

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



      ++++++++++++++++++++
      OS      ⇒Windows 11
      Version⇒Excel 2021
      ++++++++++++++++++++




    [196447] Re[4]: シートを1枚も表示させない-

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

    □投稿者/ 吉田 -(2025/01/27(13:06))
    □U R L/
      kazuo様、終わったあとまでありがとうございます。
      見ていなかったので、お礼が遅くなりました。
      
      思うようにできました。
      ただ、完璧ではなく、
      userform1の画面が残っているため、
      「x」で消す必要があります。
      ここまで消えると完璧なのですが。
      
      
      私はuserformに関しては全く知らないので、
      何処かが誤っているのでしょうか。
      
      Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
          @Application.Visible = True
          AStop
          BApplication.Quit
      End Sub
      
      ですが、
      @Aだけコメントアウトしても、すべてコメントアウトしても変わりありません。
      
      宜しくお願いします。
      
      


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

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




    [196448] Re[5]: シートを1枚も表示させない-

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

    □投稿者/ 吉田 -(2025/01/27(13:18))
    □U R L/
      kazuo様、失礼しました。
      完璧になりました。
      excelwを消すところまで、
      Private Sub UserForm_Initialize()に書けば良かったのですね。
      
      これで思う通りに動きますので、
      このまま使わせていただきます。
      また一つ覚えました。
      


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

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




    [196449] Re[6]: シートを1枚も表示させない-

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

    □投稿者/ 吉田 -(2025/01/28(07:24))
    □U R L/

      もう少しやってみました。

      UserForm1.Show を UserForm1.hideにすれば良かったみたいです。
      これででスッキリしました。



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

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

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


- Child Forum -
Edit:ゆう-G