- 締切済み
Excel VBAプログラム終了時に、
Excel2016でVBAのプログラムを終了しようとすると、自動的にコードが書かれている画面に移ってしまいます。 ユーザーフォームを使用しているのですが、終了する際にそのフォームだけ消したいです。 プログラムにどうやって書けばいいでしょうか？ ちなみに終了するときは「終了ボタン」を押してプログラムを終了させるようにしています。(画像参照)
- MaHiRo4111
- お礼率84% (43/51)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
こういうことを聞いているのかな。 ユーザーフォーム（UserForm1）にコマンドボタン（CommandButton1）を設ける（挿入）。 そのボタンは（Ｃａｐｔｉｏｎはたとえば「終了」）、クリックすると、そのユーザーフォームでの入力などを終了するので、非表示にして（Ｈｏｄｅ）、さらにＶＢＥ画面に戻ったあと、ワークシートのみ表示。シート上では、下記例ではＡ９を選択する。 下記でApplication.VBE.MainWindow.Visible = False を入れないとコード画面で止まり、使用者はその後どうすればよいか迷うということか。 Private Sub CommandButton1_Click() UserForm1.Hide Application.VBE.MainWindow.Visible = False Application.Goto Sheets("Sheet1").Range("A9") End Sub
関連するQ&A
- VBAでcallで呼び出したsubを終了させる
VBAです。 ユーザーフォーム上で、call xxxxxを使って呼び出したsubプログラムでの計算を 途中で終了させるために コマンドボタンにendを割り当てて使用しています。 ただ、この方法だとユーザーフォームも一緒に終了してしまうため、 また再度ユーザーフォームを呼び出す必要があります。 callで呼び出したsubプログラムだけを途中で終了させる方法を教えてください。
- ベストアンサー
- Visual Basic
- VBAでアプリを終了させるプログラムは？
ちわっす。 エクセルVBAを用いて勤怠管理表を開発しております。 現在、ユーザーフォームに「終了」ボタンを配置し、それをクリックしてアプリを終了させようとしているのですがうまくいきません。 終了するのはブックまでで、肝心のアプリが終了してくれなくて悩んでおります。 VBAでアプリを終了させるスクリプトをご存知の方がいたらご教授願います。 ちなみに、終了部分は以下のように記述しております。 ActiveWorkbook.close てか、これだとbookって書いてあるんでブックまでしか終了できないですね・・・・・・(´∀｀；)
- 締切済み
- その他（プログラミング・開発）
- Excel vbaでフォームの起動が失敗する
Excelシート上に設置したユーザフォームを開くボタンを実行するとフォームが開かずに新規のExcelシートが開いてしまいます。 以前までは正常に作動していたんですが••• ちなみにボタンの実行前に vbaの編集画面を一度でも開いた後はボタンを押したら正常にフォームが開くんです。 フォームを開くコード sub 起動() UserForm1.Show End Sub フォームのInitializeはコンボボックスのみです。 原因がわかりましでしょうか？
- 締切済み
- Visual Basic
- プログラムを終了しても消えない変数
VBAを使っていて ユーザーフォーム上にボタンを二つ配置します。 ボタン1を押すとsub 1が実行されます。 このプログラムで出力された変数を ボタン2で実行するsub 2で使いたいのですが どうすれば良いですか？ sub 1の中でcall subを使ってプログラム2を呼び出すということはしたくないのですが このsub を終了しても変数が消えないようにするには ワークシートのセルに代入するか ユーザーフォームのテキストボックスなどに代入するしかないでしょうか？ この変数を外に出さずに隠さずに保存しておき 次のsub で使いたいのですが 何か良い方法はないでしょうか？
- ベストアンサー
- Visual Basic
- エクセルVBAでのセル番地取得プログラム
このようなプログラムをVBAで作成したいのですが・・・。 １．選択セル上でダブルクリック ２．ユーザーフォームが立ち上がる ３．ユーザーフォームの項目に値を入力 ４．コマンドボタンを押すと、入力した値が１で選択したセルに転送 ５．次に１の1行下のセルに移動し、また値を入力しコマンドボタンで 値を転送 以下５の繰り返し というプログラムはどのように作成したら良いのでしょうか？ 他の質問を参照したのですが、どうも求めているものとは違う感じです。 ご教授お願い致します。
- ベストアンサー
- Visual Basic
- エクセルVBAでＶＢＡの修正は出来るのでしょうか？
エクセルVBAでＶＢＡの修正は出来るのでしょうか？ あるエクセルファイルにマクロを組み込んでいます（ユーザーフォームも使用）。 このエクセルファイルを複数個フォルダ内にコピーしています。 このコピーした全てのファイルのマクロの修正をVBAで出来ないかと考えています。 修正箇所はモジュール内のコード修正、モジュールの追加、既存のユーザーフォームにボタン等の追加等です。 エクセルは2003を使用しています。 どなたか教えてください。
- 締切済み
- Visual Basic
- Excel VBAでユーザーフォームだけ表示したい
Excel VBAでユーザーフォームを作成し、ファイルを起動時にSheetを非表示にしてユーザーフォームのみ表示させるようにしました。 そうしたところ、 (1)実行ボタンをクリックすると作成されるExcelファイルも表示されなくなる (2)終了ボタンをクリックするとユーザーフォームを含むExcelファイルだけが閉じるのではなく、Excelのアプリ自体が終了してしまう(実行ボタンで作成したExcelファイルは表示したままにしたいのに閉じてしまう） という現象になってしまいました。 某書籍を参考にしてコードを書いたのですが、なぜかこのようになってしまいました。 ※「★」が書籍に指示があった箇所です。 ＜ThisWorkbook＞ Private Sub Workbook_Open() Application.Visible = False '★ myForm.Show '★ myForm.MultiPage1.Value = 0 'マルチページ構成のため End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '========== [×]ボタン,[Alt]+[F4]キーを無効にする ========== Dim msg As String, title As String msg = "[画面を閉じて終了する]ボタンから終了してください。" title = "終了方法" Dim res As Integer Select Case CloseMode Case vbFormControlMenu res = MsgBox(msg, vbOKOnly + vbCritical, title) Cancel = True End Select ActiveWorkbook.Save '★ Application.Visible = True '★ Application.Quit '★ End Sub 実行したいのは、 (1)ユーザーフォームを含むExcelファイルを起動したときは、起動時にユーザーフォームだけが表示されるようにしたい ※ワークシートを非表示としたい (2)「実行」ボタンをクリックすると、プログラムが実行されExcelファイルが新規で作成され表示される ※上記で記載した「★」の部分をコードをコメントアウトしてユーザーフォームから実行ボタンをクリックすると、プログラムが実行され正常にExcelファイルが新規で作成されることは確認済みです。 (3)ユーザーフォームが閉じても、ユーザーフォームのExcelファイルのみ閉じ、新規で作成されたExcelファイルは閉じない。 ※実行ボタンをクリックして新規ファイルを作成しなかったり、他にExcelファイルがなかった場合は、Excelは終了する。 それとあわせて、 (1)を実行できた場合に、再度コードを編集する時はどうしたらExcelの画面が表示できるのか教えて下さい。 ※それとも表示できないのでしょうか？ 作成締め切りが迫っていて焦っています。 お知恵のある方どうかお力添え下さい。 よろしくお願い致します。
- 締切済み
- Visual Basic
- Excel VBA のマルチページ
使用環境：Excel2007 VBAのユーザーフォームにMultiPageを配置し各ページにScrollbarを 設定（Vertical)したいと思っています。 各ページに配置まではできましたが、実行しても動かず困っています。 写真やコマンドボタンを多く配置するので、マルチページで対応できたら と考えています。 ヒントとなるコードまたはURLが解れば教えて頂きたいです。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- EXCEL VBAでユーザーフォームを使ってデータを入力したい。
EXCEL VBAでユーザーフォームを使ってデータを入力したいと思っています。（ユーザーフォームはできています。） 入力項目が４項目あります。 名前 作業コード 開始時間 終了時間 上記４項目と登録ボタンです。 sheet1にユーザーフォームを表示し sheet2の A1に名前 B1に作業コード C1に開始時間 D1に終了時間が 登録ボタンを押すごとに どんどんデータを記録していきたいのです。 VBA初心者ですのでコードがよくわかりません。 ご教授ください。よろしくお願いいたします。
- 締切済み
- その他（ビジネス・キャリア）
- Excel VBAのユーザーフォームについて
Excel VBAでユーザーフォームを作成しています。 ユーザーフォームで出力したファイル 「出力ファイルA」 ユーザーフォームで使用するファイル 「ファイルB」 を、起動していると必ず「インデックスが範囲内にありません」 といった内容のエラーが表示されます。 ユーザーフォームで使用するファイルの表示中に そのようなエラー画面が出てきても仕方がないと思うのですが、 ユーザーフォームはマルチ画面を作成したので ファイルは「出力ファイルC」も出すことができる仕様です。 また、「出力ファイルA」「出力ファイルC」は コンボボックスで選択した西暦がファイルの先頭に付くので （例：2014_出力ファイルA.xls） 必ず同じファイル名が出力されるとは限りません。 なので、そのようなエラーが表示されないようにしたいのですが可能でしょうか？ また、特別なコードは記述していないのですが、 なのでボタンとかコンボボックスのコードを書けばよいのか・・・という感じなのですが、 どのように対処すればよいかわかりません。 それと、出力したファイルの内容を確認するためにアクティブには、 ユーザーフォーム画面を終了させるしかならず、 そもそもそうゆう仕様なのかがわかりません。 ユーザーフォームを作成するのは初めてなので初心者丸出しで お恥ずかしい限りなのですが、 どなたかアドバイスいただけますと幸いです。 こんな抽象的ですが、どうお伝えすればよいのかがそもそもわからず困っていて、 それに時間もなく頭を抱えているので お手柔らかに願います。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
お礼
返信が遅くなってしまい、申し訳ありません。 回答ありがとうございます！
補足
回答者様がおっしゃられたことを付け足し実行したところ、エラーが起きてしまいました。 下記のリンクにもう少し詳しく書いていますので、大変お手数をおかけしますがご覧になっていただけると幸いです。 https://okwave.jp/qa/q9384941.html