Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31978 / 76734

←次へ　｜　前へ→


	【49996】画面のちらつきがおさえられないのですが

おはま - 07/7/2(月) 21:29 -


	引用なし

	パスワード

いつも拝見しております。

下記のコードでは
application.screenupdating=falseが
効かず、画面にちらつきが出てしまいます。
どこが間違っているのでしょうか。
どなたか教えていただけますでようか。
宜しくお願いします。

Sub test()

　Dim stime, etime As Date
　Dim myfso As Object
　Dim i As Integer
　Dim bok As Workbook
　Dim flg As Boolean
　Dim FL, FL1 As String

　 flg=True

　　stime = Time
　　Application.ScreenUpdating = False
　　
　　Set myfso = CreateObject("scripting.filesystemobject")
　　With Application.FileSearch
　　　　 .NewSearch
　　　　 .LookIn = "c:\my document and settings\hama\notes"
　　　　 .SearchSubFolders = True
　　　　 .Filename = "*.xls"
　　　　 If .Execute() > 0 Then
　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　FL = myfso.getfile(.FoundFiles(i)).parentfolder.Name
　　　　　　FL1 = myfso.getparentfoldername(.FoundFiles(i))
　　　　　　
　　　　　　Set bok = Workbooks.Open(.FoundFiles(i))
　　　　　　
　　　　　　'処理

　　　　　　flg = False
　　　　　　bok.Close savechanges:=False
　　　　　　Next i
　　　　 End If
　　End With
　　Set myfso = Nothing
　　
　　Application.ScreenUpdating = True
　　etime = Time
　　
　　MsgBox "終了" & (etime - stime) * 24 * 60 * 60 & "秒"
　　
End Sub

＊ここに投稿されたコードやヘルプをお借りし、書いています。
かなりお世話になっています。ありがとうございます。

2 hits

▼

【49996】画面のちらつきがおさえられないのですが おはま 07/7/2(月) 21:29

≪