我想得到Pinnacle赔率的收盘价

Question

我正在使用Excel VBA开发一些应用程序 我想得到特殊赔率的最终结果（收盘价） 有没有人可以帮我这个？ 谢谢。

Answer 1

似乎你有一个名为Table1的表，需要名为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