Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10679 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20430】ユーザーフォームのラベルについて コバ 04/12/9(木) 0:15 質問[未読]
【20431】Re:ユーザーフォームのラベルについて [名前なし] 04/12/9(木) 1:12 回答[未読]
【20455】Re:ユーザーフォームのラベルについて ｎｉ 04/12/9(木) 17:16 回答[未読]
【20460】Re:ユーザーフォームのラベルについて [名前なし] 04/12/9(木) 21:24 発言[未読]
【20478】Re:ユーザーフォームのラベルについて コバ 04/12/9(木) 23:36 お礼[未読]
【20430】ユーザーフォームのラベルについて
質問  コバ  - 04/12/9(木) 0:15 -
引用なし
パスワード
   Excel97にて、一点質問があります。
どなたか解決方法をご存知の方はご教授下さい。
よろしくお願い致します。

今回、行いたい処理は以下の通りです。
前提状況：「UserForm」上に「CommandButton」と「Label」の２つがあります。
処理内容：「CommandButton」をクリックすると、「Label」を『上書き中』と表示し、Bookの上書き保存を行い、「UserForm」を閉じます。
以上の条件を満たすコードを作成しているのですが、Bookの上書き保存前に「Label」に『上書き中』と表示されません。（下記コード参照）
＊Msgboxのコメント文を外すと、「Label」に『上書き中』と表示されます。謎です。

Private Sub CommandButton_Click()

Label = "上書き中"
'MsgBox "上書きします。"
ActiveWorkbook.Save
UserForm.Hide

End Sub
【20431】Re:ユーザーフォームのラベルについて
回答  [名前なし]  - 04/12/9(木) 1:12 -
引用なし
パスワード
   ラベルのCaptionプロパティに代入してみてください。
【20455】Re:ユーザーフォームのラベルについて
回答  ｎｉ  - 04/12/9(木) 17:16 -
引用なし
パスワード
   こんにちは

▼[名前なし] さん：
>ラベルのCaptionプロパティに代入してみてください。

この後に、　DoEvents を入れてみて下さい。
【20460】Re:ユーザーフォームのラベルについて
発言  [名前なし]  - 04/12/9(木) 21:24 -
引用なし
パスワード
   すみません。なんかとんちんかんな回答してました。
フォローありがとうございます。
【20478】Re:ユーザーフォームのラベルについて
お礼  コバ  - 04/12/9(木) 23:36 -
引用なし
パスワード
   ▼[名前なし] さん・niさん

どうもありがとうございました！
私もしっかり勉強して、お二方のように人に教えられるぐらいになりたいです！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10679 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free