-3

我现在正在使用 Excel VBA 开发一些应用程序,我想获得特殊赔率的最终结果(收盘价),有人可以帮助我吗?谢谢你。

4

1 回答 1

0

似乎您有一个名为的表,Table1并且需要名为 Column 的最终结果closing price

似乎您需要奇数closing price列的最终结果。但是,如果您需要检查其他值是否为奇数,请在代码的这一部分中引用该值:([table1].Cells(i, [table1[closing price]].Column).Value)If标准行中。

因此,我们有以下内容:

Sub Sum_Odds()
    Dim i As Integer
    Dim Final As Double

    If ([table1].Cells(i, [table1[closing price]].Column).Value) Mod (2) = 1 Then
        Final = Final + [table1].Cells(i, [table1[closing price]].Column).Value
    End If

Next i

    MsgBox Final

End Sub
于 2017-09-24T10:44:01.000 回答