Excelマクロ - 非常に遅い

Question

私は列Aの日付が今日よりも小さいかどうかを確認するマクロを作成したいと思います。 ので、マクロは、列に「完了」を挿入する必要がある場合G.

Sub DoneCheck() 

Dim rngZelle As Range, strText As String 
With ActiveSheet 

For Each c In Sheets("3. Umlagerungen").Range("A:A") 
If c.Value < Int(Now) And Not (IsEmpty(c.Value)) Then c.Offset(0, 6).Value = "done" 

Next c 
End Sub 

それが本当に実行されるため、私は助けを探していますなぜ 理由がある...私はそれが非常に悪いコーディングされていることを知っているが、それは動作します遅いです...

Application.ScreenUpdatingで試しましたが、何も変わりません。

はあなたが唯一の列Aで使用した細胞をチェックして、常にApplication.ScreenUpdating = Falseを追加するとスピード物事を助けなければならない事前に&挨拶

Answer 1

ありがとう：

Sub DoneCheck() 
Dim eRow as long 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

eRow = Thisworkbook.Sheets("3. Umlagerungen").Cells(Rows.Count,1).End(xlUp).Row 

For Each c In Thisworkbook.Sheets("3. Umlagerungen").Range("A2:A" & eRow) 
    If c.Value < Int(Now) And Not (IsEmpty(c.Value)) Then c.Offset(0, 6).Value = "done" 
Next c 

Application.Calculation = xlCalculationAutomatic 
Application.ScreenUpdating = True 

End Sub