Excel编程VBA

我必须从EXCEL的给定数据中显示YES或NO。 我试图写程序。 但我找不到解决scheme。 即使输出为NO，也只显示YES。 请帮助我这个程序。

我要检查整列C的数据（数据是从列的2到1439）。 如果数据大于等于0.003，则显示否，否则显示是。

码：

' Declare array Dim arrMarks(0 To 1437) As Double Sub ArrayLoops() ' Fill the array with numbers Dim i As Integer For i = LBound(arrMarks) To UBound(arrMarks) arrMarks(i) = Range("C2:C1439").Select Next i ' Using If statement For i = LBound(arrMarks) To UBound(arrMarks) If arrMarks(i) >= 0.003 Then MsgBox ("NO") Else End If Next i MsgBox ("YES") End Sub 

Answer 1

你的“YES”是在循环和testing之外的，所以你每次都得到它！ ;）

查看直接从.Value范围填充数组的方式：

 Sub ArrayLoops() 'Declare array Dim arrMarks() Dim i As Integer 'Fill the array with range arrMarks = Range("C2:C1439").Value 'Using If statement For i = LBound(arrMarks, 1) To UBound(arrMarks, 1) If arrMarks(i, 1) >= 0.003 Then MsgBox ("NO") Else MsgBox ("YES") End If Next i End Sub