VBA對錶列進行計算失敗

Question

Sub AddNumbersOnOneRow 
    Const s_Field_ColA = "ColumnA" 
    Const s_Field_ColB = "ColumnB" 
    Const s_Field_ColC = "ColumnC" 
    Const s_Field_ColD = "ColumnD" 


    Dim iPsDepth As Integer 
    Dim iPsColA As Integer 
    Dim iPsColB As Integer 
    Dim iPsColC As Integer 
    Dim iPsColD As Integer 

    Dim lRow As Long 
    Dim dDepth As Double 
    Dim ColumnD As Double 
    '------------------------ 
    'Determine the field positions of the necessary fields in the array. 

    If InitFieldsFnB(gs_Depth, iPsDepth, _ 
        s_Field_ColA, iPsColA, _ 
        s_Field_ColB, iPsColB, _ 
        s_Field_ColC, iPsColC) _ 
    Then 
    'One or more of the required fields missing from the table. 
    Exit Sub 
    End If 

    With gINTRules.GridData 

    iPsDepth = .FieldCol("Depth") 
    iPsColA = .FieldCol("ColumnA") 
    iPsColB = .FieldCol("ColumnB") 
    iPsColC = .FieldCol("ColumnC") 
    iPsColD = .FieldCol("ColumnD") 


    For lRow = 1 To glNumRows 
     ColumnD= CDbl(gsDataA(iPsColA, lRow))+ CDbl(gsDataA(iPsColB, lRow)) 

     gsDataA(iPsColD, lRow)= CStr(ColumnD) 

    Next lRow 
    End With 

End Sub 

當我運行此宏時，我沒有收到任何錯誤。但是，這個宏並沒有給我答案，列D中沒有任何東西。

我想把列A和列B添加到列D ！[這是我的表格，我想添加列A和ColumnB插入到列D中。但是當我運行宏我什麼也得不到]

我懷疑是以下行給我找麻煩。

For lRow = 1 To glNumRows 
     ColumnD= CDbl(gsDataA(iPsColA, lRow))+ CDbl(gsDataA(iPsColB, lRow)) 

     gsDataA(iPsColD, lRow)= CStr(ColumnD) 

Next lRow 

任何幫助是極大的讚賞！

我的主要子是：

'#LibInclude "common procedures" 

Option Explicit 
Public Sub Main 
    Dim gsDataA As Variant 
    Dim glNumRows As Integer 
    With gINTRules.GridData 
    'Put the grid data into a working string data array. 
    gsDataA = .DataArray 
    glNumRows = UBound(gsDataA, 2) 

    'Put the modified data array back into the input grid. 
    .DataArray = gsDataA 
    'Success is True if there were no errors. 
    gINTRules.Success = CBool(.ErrorCol = 0) 
    End With 
End Sub 

Answer 1

除非您設置的值別處，glNumRows沒有被分配在您發佈的代碼的值，所以它有一個默認值0，這意味着你的循環根本沒有運行。

給glNumRows一個值，你應該看到一些結果。

根據您的更新問題：

變量glNumRows是不是在你的AddNumbersOnOneRow子的範圍。正如一個測試，可以嘗試在此行循環之前在AddNumbersOnOneRow子（我想我有語法正確，我沒有測試過）：

glNumRows = UBound(gINTRules.GridData.DataArray, 2) 

再次，只是重申... glNumRows ISN沒有在您的AddNUmbersOnOneRow子項中定義。您可以將其添加爲參數，或者將其設置爲子參數，或者甚至可以將其設置爲全局變量，如果您感覺真的很冒險。

如果您不想將上面的代碼添加爲測試，您還可以在初始化循環的行上設置斷點並檢查glNumRows的值並報告VBA所說的值爲...我的猜測是它會告訴你它是0.