如何在每個循環的 VBA 中使用 Poiters（參考）？

Question

當我運行以下代碼時，源etapasArray沒有更改自己的值！

數組etapasArray將每個元素作為etapasArray(i)(j) 。

這是子函數：

'etapasArray is accessed as etapasArray(i)(j) and etapaRow was declared as Variant
Public Sub setDatasPLANO()
    For Each etapaRow In etapasArray
        If etapaRow(oFolhaPlaneamento.positionElement("PERCENTAGEM")) < 1 Then
            etapaRow(oFolhaPlaneamento.positionElement("PLANO_INICIO")) = 1
        End If
    Next
End Sub

它正確讀取現有值，但最終的etapasArray永遠不會在其中獲得數字 1！ 有任何想法嗎？

Answer 1

您沒有在該代碼中向 etapasArray 寫入任何內容，是嗎？ 你想做什么：

etapasArray(oFolhaPlaneamento.positionElement("PLANO_INICIO")) = 1

代替

etapaRow(oFolhaPlaneamento.positionElement("PLANO_INICIO")) = 1

如果不是，那我不太明白你的意思，抱歉。