エクセルクラッシュ設定ワークシートの可視性

Question

は、次のコードは一貫コードをステップ実行、私の大きなワークブック

Dim ws As Worksheet 
Dim wb As Workbook 
For Each ws In wb.Worksheets 
    ws.Visible = xlSheetVisible 
Next ws 

にエクセル2016をクラッシュし、私はそれがなく、任意の特定の、ダースのワークシートのカップルの上で動作した後にクラッシュすることを見つけますワークシート。クラッシュすると、タスクマネージャーからExcelを削除する必要があり、Windows 10自体がBSODにクラッシュすることがあります。私はある種のスタックオーバーフロー問題を疑う。代わりに同じ結果を持つワークシート名のリストを反復しようとしました。何か案は？

Answer 1

おそらく、あなたは（多分5）xのいくつかの合理的な価値のためにあなたのループ内

newHour = Hour(Now()) 
newMinute = Minute(Now()) 
newSecond = Second(Now()) + x 
waitTime = TimeSerial(newHour, newMinute, newSecond) 
Application.Wait (waitTime) 

を試してみてください。私は、コンパイラが「最適化」されていて、システムのタイムアウトである一連のアプリケーション要求を積み重ねていると思われます。

PS wsは宣言されるべきではなく、wbは問題を引き起こす可能性があるため、ワークブックに設定する必要があります。