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