combobox - 从组合框中选择和使用值的代码

Question

我正在尝试在 VBA 中开发交易游戏。 在此处输入图像描述

我创建了一个用户表单来选择团队（选项按钮）、要购买的股票（组合框）和单位（组合框）。下面是用户窗体的代码：

Dim U, points, th, C
Sub TradeBuy_Initialize()
cboUnits.Value = U
cboBuyshares.Value = C
End Sub
Sub TradeBuyOptionButtonTest()
TeamA_Click() = True
Button.Enabled = True
TeamB_Click() = True
Button.Enabled = True
TeamC_Click() = True
Button.Enabled = True
TeamD_Click() = True
Button.Enabled = True
End Sub

下面是我要分配用于通过命令按钮购买股票的模块的代码：

Sub TradeBuy_Click()
TradeBuy.Show
If (TeamA_Click = True & C = Control1) Then
th = Range("B13") * U
th = Range("G5")
points = points - th
points = Range("G3")
End If
End Sub

基本上，一旦用户选择了团队、要购买的股票和要购买的单位，我希望代码能够获取相应的股价值 (C)，将其乘以单位 (U)，然后从积分中减去该金额那支球队的。这样，它应该通过用户表单在每次购买操作中不断增加所选团队的总持有量（th）值。但是上面的代码不起作用，尽管它也没有给出任何错误。有人能帮助我吗？

标签： combobox