|
ユーザーフォームを表示した後、データ処理を行うPGになっています。
が、どうも、処理終了後も、ユーザーフォームの残像が残ってしまいます。
しかも、ユーザーフォームにてコンボボックスから選択した際も、
フォーム画面からはみでたコンボボックスの残像も残ってしまいます。
フォーム表示を、ループで繰り返しているからでしょうか?
プログラムは下記のようになっています。
↓
Sub 実行ボタンクリック()
Application.ScreenUpdating = False
'コンボBOXで選択されたグループをリストボックスに取得する。
scmbFolderName = wsSagyo.cmbFileName.Value
MyFolderName = wsSagyo.txtFolderName.Value
'コンボBOXと、一緒だったら、
If scmbFolderName = MyFolderName Then
MyFilePATH = scmbFolderName
Else
MyFilePATH = MyFolderName & scmbFolderName & "\"
End If
'読み込む列の指定
vntColm = Array(1, 0, 2, 3, 4)
'書き込み用配列の確保
ReDim vntWrite(UBound(vntColm))
'自分のファイル名を取得
sMybook_name = ActiveWorkbook.Name
'リストボックスにチェックがついているテキストを読み込む
For iList_cnt = 0 To wsSagyo.lstFileName.ListCount - 1
If wsSagyo.lstFileName.Selected(iList_cnt) = True Then
'読み込むファイル名を格納する。
vntFileName = wsSagyo.lstFileName.List(iList_cnt)
dfn = FreeFile
Open CStr(MyFilePATH & vntFileName) For Input As dfn
usrFome.lblFileName.Caption = vntFileName
'ユーザーフォームを表示
usrFome.Show
Unload usrFome
If sSheetName = "" Then
MsgBox "作成シート先が選択されていません。"
End
End If
ファイル書き込み
End If
Next iList_cnt
MsgBox "終了"
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
|
|