Excel VBA質問箱 IV

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

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


10677 / 13644 ツリー ←次へ | 前へ→

【20430】ユーザーフォームのラベルについて コバ 04/12/9(木) 0:15 質問[未読]
【20431】Re:ユーザーフォームのラベルについて [名前なし] 04/12/9(木) 1:12 回答[未読]
【20455】Re:ユーザーフォームのラベルについて ni 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」の2つがあります。
処理内容:「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:ユーザーフォームのラベルについて
回答  ni  - 04/12/9(木) 17:16 -

引用なし
パスワード
   こんにちは

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

この後に、 DoEvents を入れてみて下さい。

【20460】Re:ユーザーフォームのラベルについて
発言  [名前なし]  - 04/12/9(木) 21:24 -

引用なし
パスワード
   すみません。なんかとんちんかんな回答してました。
フォローありがとうございます。

【20478】Re:ユーザーフォームのラベルについて
お礼  コバ  - 04/12/9(木) 23:36 -

引用なし
パスワード
   ▼[名前なし] さん・niさん

どうもありがとうございました!
私もしっかり勉強して、お二方のように人に教えられるぐらいになりたいです!

10677 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free