シートを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にすれば良かったみたいです。 これででスッキリしました。 |
このトピックに書きこむ |
---|