Excel Form 閉じる方法 Unload Me

メルマガ発行内容

＜Excel Form 閉じる方法 Unload Me＞
こんにちは、

三流プログラマーＫｅｎ３です。

今回は、
Excel 入力フォーム 閉じるボタンでフォームを閉じたい
を軽く書きたいと思います。

今回の関連画像は、手抜きで無しです（オイオイ）
が、
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba061.lzh
にtest061-book.xlsが保存されています。
(画像無しだけど、サンプルぐらいは作りますよ（笑）)

/*
 * １．今回のキッカケ
*/

掲示板に質問の書き込みがありました。

In message "[BBS :76] Excel 入力フォームの作成について",
 >投稿時間：2003/04/01(Tue) 15:50
 >
 >おなまえ：sattoch
 >タイトル：Excel 入力フォームの作成について
 >
 >はじめまして！
 >「Excel 入力フォームの作成」をまねしてやってみました。
 >VBAはまだ初心者なのですが、楽しかったです。
 >それで質問なのですが、ボタンをつくってクリックすると
 >終了にしたいと思いますが、どうやったら終了になるのでしょうか？
 >どうしても知りたいと思いますので教えてください。
 >それから、あの入力フォームはシートのほうに固定させて
 >シートをひらくと入力フォームがそこに出てくる、というふうには
 >出来るのでしょうか？
 >他のページにはやり方がかいてあったのかな？
 >探してみます。でも良かったら教えてください！
 >--------------------------------------------------------

と書き込みがありました。
なんとなくＨＰ管理者を嬉しくさせる書き方だったので
（私が感じただけかもしれないけど）
すばやく回答してみようと思います。

おいおい、他の回答は？ほったらかし？
スイマセン、今回はゆるしてね。

/*
 * ２．閉じるボタンの作成
*/

[No.42 ExcelのForm シートと連動させる]
http://www.ken3.org/backno/backno_vba09.html#42
で、
Excelのシートとユーザーフォームを連動させた入力を軽くやりました。

シートのイメージは
_____A_____________B_________C____________D_______________________E_______
1 画像タイトル ファイル名 コメント   画像ベースディレクトリ→  D:\temp\
2 サンタ       001.gif    ケーキ写真
3 お正月       012.jpg    XXXXXXXXXX

タイトル
___________ txtTITLE                
ファイル名
___________ txtFILENAME
コメント
___________ txtMEMO    

┌────┐
│前へ戻る│btnPREV
└────┘
┌───┐
│ 次へ │  btnNEXT
└───┘
┌────┐
│        │imgBOX(イメージコントロール)
└────┘
を作成しました。

ここでは、見事な手抜きで閉じるのボタンは無く、
右上の×で閉じてねと作業者に（読者に）高飛車的態度で言ってました。

そんな手抜きをしてるので、
 >それで質問なのですが、ボタンをつくってクリックすると
 >終了にしたいと思いますが、どうやったら終了になるのでしょうか？
 >どうしても知りたいと思いますので教えてください。
と質問が来ました。

今回説明したいと思います。
まず、ボタン
┌───┐
│閉じる│btnCLOSE
└───┘
とボタンコントロールを追加します。

クリックイベントに、処理を記述します。

Private Sub btnCLOSE_Click()
    Unload Me   '自分自身を閉じます（笑）
End Sub

Unload ステートメント で、
Me(自分自身)オブジェクトをメモリから削除しただけです。

ユーザーフォームの表示は、
Private Sub ボタン1_Click()
    Load UserForm1
    UserForm1.Show
End Sub
と、Load UserForm1でメモリに読み込み、.Showで表示してました。

その逆で、Unloadって感じです。
Unload Me としてましたが、
Unload UserForm1 とフォーム名でもＯＫです。

まだまだ不親切なんだよね三流君は。
えっ、どこが？丁寧に終了に対比させて開く部分も書いて、
本人は一生懸命やってるつもりなんだけどなぁ。。。

不親切の考え方が違うんだよ。
だからどこが？

いきなりUnload Meだと閉じるだろ。
当然ですよ閉じる処理の説明なんだから、なんか文句あるのボク？（逆切れか？）

普通の処理では、終了しますか？とかメッセージが出るんじゃないの？
それが無いと不親切な動くだけのプログラム／システムなんだよ。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ギク。。。

Private Sub btnCLOSE_Click()
    '終了を確認する
    If MsgBox("終了します？", vbYesNo, "確認") = vbYes Then
        Unload Me   '自分自身を閉じます（笑）
    End If
End Sub

と、MsgBoxで確認処理を入れてみました。

/*
 * ３．シートが変わった時のイベント、
*/

 >それから、あの入力フォームはシートのほうに固定させて
 >シートをひらくと入力フォームがそこに出てくる、というふうには
 >出来るのでしょうか？

入力フォームをシートに固定させる方法は、チョットわからないけど、
シートを開いた時に実行させるには、
Worksheet_Activateのイベントで、
シートが選択された時に（アクティブになった時に）
下記のフォームを開く処理を実行させます。

Private Sub Worksheet_Activate()
    Load UserForm1
    UserForm1.Show
End Sub

単純にフォーム開くボタン（タイミング）で行っていた処理を
シートが選択された時に（アクティブになった時に）
Worksheet_Activateのイベントに記述しただけでした。

同じように、ブックが開いた時のイベントに書くことも出来ます。
＊いろいろなタイミング（イベント）でテストして遊んでみてね。

/*
 * ４．おわりの挨拶
*/

今回は、
・閉じるボタンの作成、Unload Me
・Worksheet_Activateのイベントでシートの切り替わり時にフォームを開いてみた
でした。

今回の関連画像は、手抜きで無しです（オイオイ）
が、
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba061.lzh
にtest061-book.xlsが保存されています。
(画像無しだけど、サンプルぐらいは作りますよ（笑）)

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

----------------------------------
関連項目(ただのバックナンバー紹介)
----------------------------------
[No.42 ExcelのForm シートと連動させる]
http://www.ken3.org/backno/backno_vba09.html#42
で、
Excelのシートとユーザーフォームを連動させた入力を軽くやりました

Excelフォームの作成サンプルは
http://www.ken3.org/vba/excel-form.html
に軽くまとめてあるので、見てください。

フィードバック

評価・感想

ページフッター(リンクや広告など)

情報を探す

Web www.ken3.org www.microsoft.com support.microsoft.com あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック