軟體:EXCEL
版本:97-2003
Private Sub Worksheet_Calculate()
For Each E In Worksheets("Sheet1").Range("E1:E100")
If E.Value = 100 Then
Cells(E.Row, E.Column + 1).Value = "OK"
End If
Next E
電腦顯示編譯錯誤:For Each 控制項變數必須是 Variant 或 Object
不知道怎麼修正錯誤?

測試原文內的巨集碼並無錯誤要看原po是宣告變數E的類型了以原文來看宣告為object、variant、range或類型省略，測試上都是可行的

請問如果要宣告是 Dim C As Variant 這樣嗎?

宣告方式如原po上面回文所述宣告類型再以實際資料所準

Worksheet_Calculate()整個工作表有計算就會執行,能不能只針對E行有變動再執行?

那用worksheet_change針對e欄內運算到的儲存格