|
こんにちは。
以前にユーザーフォームの残像の件で投稿しましたが、
リストボックスの上にユーザーフォーム
を表示した際、画面制御↓
Application.ScreenUpdating = False
を入れていると、解除した後、リストボックスにだけ残像が残ってしまいます。
PGは以下のようになっています。
'貼り付けるシートを選択するユーザーフォームを表示します。
usrSelectForm.Show
'ユーザーフォームで、「Cancel」ボタンが押された場合は、処理を終了します。
If btnFlag = False Then
End
End If
'ユーザーフォームで、「OK」ボタンが押された場合は、ファイルを貼り付けます。
If btnFlag = True Then
Unload usrSelectForm
'画面の更新をストップします。
Application.ScreenUpdating = False
'ファイル書き込みプロシージャを呼び出します。
ファイル書き込み
'画面の更新をします。
Application.ScreenUpdating = True
End If
End If
誰か教えてください。
お願いします。
|
|