距离偏移量
我试图理解VBA上的代码，以调试某人的VBA程序.所以我想知道那是Range(Value).offset(x; y)的属性和含义.这是我的代码:
I'm trying to understand a code on VBA, to debug the VBA program of someone. So I want to know that is the property and the meaning of Range (Value).offset(x;y). Here is my code:
`Sub initialise()
Dim i As Double, j As Double
For i = 0 To maxnodes - 1
For j = 0 To 1
**If Range(initial_range).Offset(i, j) <> 0 Then**
Range(Startrange).Offset(i, j) = Range(initial_range).Offset(i, j)
Else
Range(Startrange).Offset(i, j) = Empty
End If
Next j
Next i
End Sub`
能帮我吗?如果您需要更多详细信息，则不存在
Can you help me please? If you need more details, don't exist
.Offset 属性用于从指定位置移动特定位置.
The .Offset property is used to move a certain position from a specified location.
它的用法类似于:
ActiveSheet.Cells(1, 1).Offset(Row, Column)
当正值将行值的位置向下(按规定量)移动时，将列值的位置向右(按规定量)移动时.负值的移动方向相反.
Where positive values move the position down (by the stated amount) for the Row value, and to the right (by the stated amount) for the column value. Negative values move in the opposite way.
因此，类似于 ActiveSheet.Cells(1,1).Offset(2，0)的东西(其中 ActiveSheet.Cells(1,1)表示单元格 A1 )实际上是指 cells(3，1)或 A3 .
Therefore, something like ActiveSheet.Cells(1,1).Offset(2, 0) (Where ActiveSheet.Cells(1,1) represents cell A1) Would actually be referring to cells(3, 1) or A3.
因此，在您的代码中使用for循环和offset属性；代码使用所有不等于0的值创建一个新矩阵.(同样，您需要删除 ** 使其运行)
Therefore, in your code using the for loop and the offset property; the code is creating a new matrix using all the values that aren't equal to 0. (also you will need to remove the ** to get it to run)