线性阵列

Question

我想教自己关于阵列。有人可以使用数组翻译下面的代码并解释？

Dim i As Integer 
For i = 1 To 100 

If Sheets("Sheet1").Range("A" & i) < Sheets("Sheet1").Range("B1") Then 
    Sheets("Sheet1").Range("C" & i) = "Less than" 

ElseIf Sheets("Sheet1").Range("A" & i) > Sheets("Sheet1").Range("B1") Then 
    Sheets("Sheet1").Range("C" & i) = "Greater than" 

Else: Sheets("Sheet1").Range("C" & i) = "Equal to" 

End If 


Next i 

谢谢！

Answer 1

该代码使用一个数组来存储你可以给基于在列A & B细胞的比较结果...

Option Explicit 

Sub marine() 
    Dim rowNumber As Integer 

    ' create an array of strings here 
    Dim values(-1 To 1) As String 

    ' populate the values 
    values(-1) = "less than" 
    values(0) = "equal to" 
    values(1) = "greater than" 


    For rowNumber = 1 To 100 
     Dim signValue As Integer 
     signValue = Math.Sgn(Sheets("Sheet1").Cells(rowNumber, 1) - Sheets("Sheet1").Cells(rowNumber, 2)) 

     ' copy the correct value from the array into the cell 
     Sheets("Sheet1").Cells(rowNumber, 3).Value = values(signValue) 
    Next rowNumber 
End Sub