我现在正在使用 Excel VBA 开发一些应用程序,我想获得特殊赔率的最终结果(收盘价),有人可以帮助我吗?谢谢你。
问问题
131 次
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 回答