| |
こんばんは １２３です。
また質問させてください。
ユーザーフォームのTextBoxのValueをsheet1の
Cells(1,2).Valueに設定しておきます。
そしてコマンドボタンをClickして、ある作業をさせるのですが、
作業中はTextBoxに「処理中．．．」と表示させたいのです。
当然処理終了後は、「●月●日処理終了」と表示させるべく
Cells(1,2).Value= Date & " 処理終了"
にしておきます。
Cells(1,1).Value = "処理中．．．"
としておき、コマンドボタンをClickすると
TextBox1.Value = Cells(1,1).Value
と こんな風に考えたのですが、
Application.ScreenUpdating = False を使うと
Application.ScreenUpdating = Falseから
Application.ScreenUpdating = Trueの間の作業じゃなくても
ScreenがUpdateされません。
以下のコードの通りなのですが、
作業中はApplication.ScreenUpdating = Falseにしたいのです。
Application.ScreenUpdating = False の前に記述しても
意味が無いのでしょうか？
また、TextBox1に「処理中．．．」と（MouseDownまたはUpを使用せずに）
表示させる方法をご教示願います。
Private Sub コマンドボタン1_Click()
TextBox1.Value = sheets("sheet1").Cells(1, 1).Value
Application.ScreenUpdating = False
sheets("sheet1").Cells(1, 2).Value = Date & " 処理終了"
Application.ScreenUpdating = True
TextBox1.Value = sheets("sheet1").Cells(1, 2).Value
End Sub
|
|
