Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6451 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【45174】Escを押したとき nobo 06/12/14(木) 12:29 質問[未読]
【45175】Re:Escを押したとき inoue 06/12/14(木) 12:37 発言[未読]
【45176】Re:Escを押したとき nobo 06/12/14(木) 12:47 発言[未読]
【45174】Escを押したとき
質問  nobo  - 06/12/14(木) 12:29 -
引用なし
パスワード
   教えて下さい
Escキーを押したらなにもせずに閉じるに
するには、下記にどう書き加えたらいいでしょうか
よろしくお願いします。

Private Sub CommandButton1_Click()
ActiveCell.Value = Me.DTPicker1.Value
Unload Me
End Sub
【45175】Re:Escを押したとき
発言  inoue E-MAIL  - 06/12/14(木) 12:37 -
引用なし
パスワード
   >Escキーを押したらなにもせずに閉じるに
>するには、下記にどう書き加えたらいいでしょうか
ユーザーフォームでしょうか。

キャンセルボタンを用意しておいて、
そのボタンのCancelプロパティをTrueにします。

そのボタンのClickイベントには
Unload Me
だけ書けば良いでしょう。

キャンセルボタンの表示が不要なら、
TabStopをFalseにしてフォームの表示領域外に出してしまいます。
(一旦フォームを広げて端に移動させてからフォームの大きさを元に戻します)
【45176】Re:Escを押したとき
発言  nobo  - 06/12/14(木) 12:47 -
引用なし
パスワード
   ▼inoue さん：
>ユーザーフォームでしょうか。
はいそうです
>キャンセルボタンを用意しておいて、
>そのボタンのCancelプロパティをTrueにします。
キャンセルボタンとはCommandbuttonでよいのですか。
下記のようにしてみました
Private Sub CommandButton2_Click()
Unload Me
End Sub
初心者なのですみません
確認お願いします。
>
>そのボタンのClickイベントには
>Unload Me
>だけ書けば良いでしょう。
>
>キャンセルボタンの表示が不要なら、
>TabStopをFalseにしてフォームの表示領域外に出してしまいます。
>(一旦フォームを広げて端に移動させてからフォームの大きさを元に戻します)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6451 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free