Excel VBA運行時錯誤424

Question

我想創建一個簡單的宏，就像這樣：

我有一張帶有序列號的表，每個序列號的12列測量結果。 有一個最小公差。 和一個最大值。 我想檢查結果，如果它們在公差字段中，則將單元格的顏色設置為綠色。

該表是這樣的：

公差值為： min=250 ， max=450 。

我寫了這段代碼，但是有些不正確。

Sub turesellenorzes()
Dim i As Integer
i = Selection.Value
If (i >= 250 And i <= 450) Then
Selection.Interior.Color = vbGreen
Else: Set Selection.Interior.Color = vbRed
End If

End Sub

Answer 1

選擇您的范圍並致電CallTuresellenorzes ：

Option Explicit

Sub callturesellenorzes()

Call turesellenorzes(Selection)

End Sub

Sub turesellenorzes(rng As Range)

Dim i As Integer
Dim cell As Range

For Each cell In rng

 If cell >= 250 And cell <= 450 Then

 cell.Interior.Color = vbGreen

 Else

 cell.Interior.Color = vbRed

 End If


Next



End Sub