我想獲得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