从 excel vba 用户窗体组合框中选定行的列中提取数据
Extract data from column of selected row in excel vba userform combobox
我有一个组合框 (cbInventory),在 RowSource 属性 中填充了一个命名范围,它是一个包含 6 个字段和数千行的 table。绑定列是第一列 (Material)。当在组合框中选择一个项目时,我希望与所选项目关联的批号自动出现在单独的文本框中(使用 cbInventory 的 Change 事件)。
因此,例如,如果选择 A100-114P,则数字 11 应出现在文本框中。
Private Sub cbInventory_Change()
Me.txtBatch = Me.cbInventory.Column(1, ?)
End Sub
如果我手动输入 1 代替上面的问号,数字 10 会出现在文本框中,这是有道理的。现在,我要用什么来代替问号来拉出所选项目的批号?
column(0)
将是第一列。
Private Sub CommandButton1_Click()
MsgBox Me.ComboBox1.Column(0)
MsgBox Me.ComboBox1.Column(1)
MsgBox Me.ComboBox1.Column(2)
End Sub
我有一个组合框 (cbInventory),在 RowSource 属性 中填充了一个命名范围,它是一个包含 6 个字段和数千行的 table。绑定列是第一列 (Material)。当在组合框中选择一个项目时,我希望与所选项目关联的批号自动出现在单独的文本框中(使用 cbInventory 的 Change 事件)。
因此,例如,如果选择 A100-114P,则数字 11 应出现在文本框中。
Private Sub cbInventory_Change()
Me.txtBatch = Me.cbInventory.Column(1, ?)
End Sub
如果我手动输入 1 代替上面的问号,数字 10 会出现在文本框中,这是有道理的。现在,我要用什么来代替问号来拉出所选项目的批号?
column(0)
将是第一列。
Private Sub CommandButton1_Click()
MsgBox Me.ComboBox1.Column(0)
MsgBox Me.ComboBox1.Column(1)
MsgBox Me.ComboBox1.Column(2)
End Sub