線性陣列

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