□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[3]: 今日からScreenUpdatingの挙動がおかしい？ | |
|---|---|
[195075] Re[3]: 今日からScreenUpdatingの挙動がおかしい？- ■  / 記事引用/メール受信=OFF■
□投稿者/ 青天目 -(2022/07/31(12:25)) □U R L/ 21日の日中以外は、事象が再発していないので、 とりあえず解決とさせていただきます。 | |
[195065] Re[2]: 今日からScreenUpdatingの挙動がおかしい？- ■記事引用/メール受信=OFF■ □投稿者/ 青天目 -(2022/07/21(15:43)) □U R L/ いま実行したら、問題が解消していました。 プログラム修正など、何もしていないけども、問題解決・・・。 今日の日中、 Microsoft Teams で障害が発生していたみたいですが、 それが関係していたのでしょうか・・・ | |
[195064] Re[1]: 今日からScreenUpdatingの挙動がおかしい？- ■記事引用/メール受信=OFF■ □投稿者/ 挙動 -(2022/07/21(13:00)) □U R L/ なんかupdateのおかげで色々挙動がおかしくなっているみたいです。 | |
[195063] 今日からScreenUpdatingの挙動がおかしい？- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 青天目 -(2022/07/21(11:24)) □U R L/ 今日からScreenUpdatingの挙動がおかしい？
シート上にCommandButtonが１つ配置されており、
そのボタンを押すと、特定のフォルダ（ RootDir ）内のファイルを
Ａ列に一覧出力する、
というものです。
Private Sub CommandButton1_Click()
Const RootDir As String = "D:\aaaaaaaaa"
Dim sht As Excel.Worksheet
Dim sFileName As String
Dim lRow As Long
ActiveCell.Select
Set sht = ActiveSheet
Application.ScreenUpdating = False '***********
lRow = 1
sFileName = Dir(RootDir & "\" & "*")
Do While sFileName <> ""
sht.Cells(lRow, 1).Value = sFileName
lRow = lRow + 1
sFileName = Dir()
Loop
Set sht = Nothing
Application.ScreenUpdating = True
End Sub
昨日までは問題なく動いていましたが、
今日から（？）は昨日までと動きが変わってしまいました。
具体的に言うと、
ボタンを押すと、処理完了後も、シート上、フリーズしているような感じです。
シートにファイル一覧が表示されない。
マウスや矢印キーを押しても、アクティブセル（太枠で囲まれたセル）が移動しない。
但し、見た目上、表示されない・移動しないだけで、
実際には表示されているし、移動もしている。
シート上のＡ列はすべてブランクだが、
Ａ１セルをクリックすると（太枠セルは移動しないが）
Ａ１セルの内容が数式バーには表示される。
Application.ScreenUpdating = False
の行をコメントアウトすると、
処理時間は遅くなりますが、正常な動作になります。
（シート上にファイル一覧が表示されるし、処理後のセル移動も問題ない。）
このような事象をご存じの方いますでしょうか？
当事象が発生した後、ＰＣを再起動しましたが、
改善しませんでした。
Win10
Excel 2019 （ 2206ビルド・32ビット）
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |