• ベストアンサー

Excelのフォームを閉じる方法

ExcelのVBA を勉強し始めた初心者です。 Excelでシートにデータを入力していく為に、フォームを作りました。 そこで、コマンドボタンをクリックして、フォームを閉じるようにするには、どういった記述をすればいいのでしょう? バージョンは2002です。 お願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • papayuka
  • ベストアンサー率45% (1388/3066)
回答No.3

こんにちは。 Form上にCommandButtonを置き、Clickイベントに Private Sub CommandButton1_Click()  Unload Me End Sub Meで指定しておくと オブジェクト名を変更しても動作します。 VBE画面に戻るのはVBE画面から実行しているからでしょう。 シートにCommandButtonを置きClickに Private Sub CommandButton1_Click()  UserForm1.Show End Sub のようにするか、標準モジュールに Sub Form_Show()  UserForm1.Show End Sub のようにして、マクロ実行から呼べばExcel画面のままで終わるハズです。

Good-Man123
質問者

お礼

ご返答ありがとうございます。 確かにコマンドボタンからの実行では問題ないですね。 些細なことに気付かないっというのも、自分自身情けないです(笑)。

その他の回答 (2)

  • nihonjinn
  • ベストアンサー率39% (79/200)
回答No.2

unload form1 フォームをアンロードして破棄する。(フォームを閉じる) ・終了ボタンに記述してよく使用する。 とありました。.Hideは「隠す」だけなのかも 私もマクロに関しては素人で先日必要に迫られて作ったときに.Hideを使用してうまくいったのですが。

参考URL:
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/vb_v01.htm
Good-Man123
質問者

お礼

ご返答ありがとうございます。 こちらもちゃんと閉じました。 参照のHP役に立ちそうですので、お気に入りに追加させてもらいました。 ついでで申し訳ないんですが、フォームを消すと、通常VBの画面に戻りますが、シートのままにすることは可能ですか?

  • nihonjinn
  • ベストアンサー率39% (79/200)
回答No.1

フォーム名.Hideかな?

Good-Man123
質問者

お礼

早速のご返答ありがとうございます。 やってみたところ、見事に閉じました。 ついでで申し訳ないんですが、フォームを消すと、通常VBの画面に戻りますが、シートのままにすることは可能ですか?

関連するQ&A

  • VBAエクセルのフォームについて

    お世話になっております。 VBAエクセルのフォームについて教えていただきたいのです。 VBAで入力のフォームを作ったのですが(TEXT BOXが4つ、コマンドボタン1つ、コマンドボタンを押したときに登録される用にしたい) 各シートの集計にしたい為、各シート(31のシートがあります)に入力フォームがあります、その各シートでの入力結果を1つのシートに 集計したいのですが、どの様なコードにしたらようか判りません。 素人のためお手数ですが、なるべく判りやすくお願いします。 よろしくお願いします。

  • エクセルのユーザーフォームの作り方で

    エクセルのVBAの初歩的なことで教えてください。小学生の子供用の学習ソフトを試作しています。シート1を問題の表示画面とし、シート2に問題のデータを保存しています。学習者はシート1を見て、最初に名前や使った日をユーザーフォームに入力すると、そのデータがシート1の表示されていない下の方のセルに記録されるようにマクロを組んで作りました。そのユーザーフォームを、シート1に作ったコマンドボタン(テキストは「開始」としました)を押すと表示されるようにしたいのです。そのためのコマンドボタンをどのように作ればよいでしょうか。ユーザーフォームの方は、マクロを実行すれば立ち上がり正常に入力(登録)できます。VBAの本を読んで独学で勉強し始めたばかりですので、できればわかりやすく教えてください。

  • Excelで入力フォームの作成方法

    Excelについて質問です。 住所管理ファイルを作っています。 入力できやすいように、コマンドボタンを押すと入力フォームが表示されて入力できるように設定したいと思っています。 Accessでは簡単に作成できますがExcelではVBAなどのコードを記述しなければできないのでしょうか? 何か良い方法はありますでしょうか?

  • エクセルのユーザーフォームについて

    エクセルのユーザーフォームについて教えてください。 ユーザーフォームにてメニュー画面を作成しました。 ユーザーはメニューからの操作だけでエクセルシートを作成できるようなマクロをつくりました。 ユーザーフォームのコマンドボタンでEXCELを終了させることはできますか? VBAの記述方法も教えてください。

  • BVAユーザーフォーム上でのオプションボタンについて

    BVAを3時間前から勉強しだした超初心者です。よろしくおねがいします。 エクセルVBAのユーザーフォーム上でオプションボタンをA・B・Cと3つ、コマンドボタンを1つ作成します。 A・B・Cのどれかを選択した状態でコマンドボタンをクリックしたときに、シート1のA列2行目から下に順番にデータとして、Aをクリックしたときにはa、Bをクリックしたときにはb、Cをクリックしたときにはcが入力されるようにコードを作りたいです。 今試行錯誤して作ったものは、オプションボタンをクリックした時点でシート1に入力されてしまうため困っています。

  • Excelの検索フォームの作成方法を教えてください

    添付画像のように、Excelに入力されている値があるとします。 これを別シートにフォームを作成し、下記のように検索・値をmsgboxで返す仕組みを作成したいです。 ●「検索開始」というボタンを作成し、ボタンをクリックすると、検索窓が表示される。 ●検索窓に名前を入力し、検索ボタンをクリックすると、元データのその名前の下に記載してある番号を  msgboxに表示する。 (例) 検索窓に「山田 太郎」と入力して検索をクリックすると、「123」とmsgboxに表示されるようにしたい。 こちらの方法を教えて頂けないでしょうか。 VBAで記述する必要がある場合、コードを教えてください(><)

  • エクセルVBA ユーザーフォームの終了について

    エクセルVBAでユーザーフォームを作成しています。 コマンドボタンにVBAマクロを割り当てしているのですが 思うように動いてくれないので質問します。 コマンドボタンをクリックしたら望む動作 1、ワークシートを選択 2、その後、ユーザーフォームを消す。 と言う動作にしたいのですが、2の ユーザーフォームを消す方法、書き方が分かりません どなたか教えていただけないでしょうか 1の動作は以下のように書いています。その後の書き方を お願いします。 Private Sub CommandButton8_Click() ブック名 = "VBA演習" シート名 = "sheet1" Workbooks(ブック名 & ".xls").Worksheets(シート名).Activate End Sub (ユーザーフォームの名前は"テストフォーム"としてます)

  • フォームでデータベースの内容を表示するには?

    VBA初心者です。 データベースの入力用にフォームを作成しました。 登録コマンドボタンをクリックすると、フォームに入力した内容が、データベースの各項目に反映されるようになっています。 このフォームでは、いくら各項目に入力しても、登録ボタンを押さない限り、データベースには反映されません。もちろんフォームからこれまで入力したデータベースの内容は見ることができません。 しかし先日、Excelの文書件名簿ソフトで、項目1つ1つ入力するごとに、その都度データベースに反映されていくものがありました。 「次のページ」コマンドボタンはありますがこれを押す前にすでにフォームに入力した項目はデータベースに反映されています。 「前のページ」ボタンもあり、これを押すとこれまで入力してきたデータが順番にフォームで見ることができます。 このようなフォームはどのように作ればよろしいでしょうか?

  • エクセル VBA 

    エクセル VBA  Sheet上にコマンドボタンをクリックさせたら 電卓表示させるにはどのように記述をしたら良いですか? (1)勿論、VBAで電卓作成したいのですが…何か良いサイトはありますか?それか  作り方を教えて欲しいです。 (2)ツール⇒すべてのプログラム⇒アクセサリ⇒電卓  で表示できますよね!それをコマンドボタンクリックで  表示させるには、どのように記述したら良いですか?   すいません教えてください!

  • エクセルでフォームを開きたい

    マクロを登録して、表の上部に「時間入力」というボタンを作って、そのボタンを押した際に A3からE45を範囲され、データ>フォームを開くということがしたいです。 マクロの記録でやろうと思ったら、フォームを開いたままの状態で「終了」はクリックできないんですね>< バージョン:エクセル2003 です。 手順など教えていただけると幸いです。 よろしくお願いします。

専門家に質問してみよう