Question

首先我要说的是，在回答这个问题之前，我已经进行了数小时的搜索。

情况（全部工作） -

用户要指定一篮子中的苹果数量

示例 - 用户指定2个苹果。这会在组合框和文本框中创建两个页面。

组合框中填充了苹果名称数据库。用户选择一个。

所需：

当用户从组合框中选择一个苹果时，我希望该多页上的文本框能够填充苹果特征。换句话说，只要用户从这个组合框中选择一个苹果，我就需要触发代码。这不是从工具栏创建的组合框，所以我似乎无法使用＆＃34; private sub Combobox_Change＆＃34;。

以下是我用来创建组合框的代码：

Set ComboBoxL = MultiPage1.Pages(pgCount).Controls.Add("Forms.combobox.1", _
"ComboBoxL" & pgCount)

With ComboBoxL

.Top = 1 * FromTop
.Left = LeftDist
.List = Sheets("TestLightList").Range("A1:A100").Value

这是我用来将值拉入文本框的代码，它在测试中工作（只是在代码的另一部分运行它）但在需要时不起作用，因为我不知道如何告诉VBA将其解雇当用户从上面的组合框中选择一个项目时

userform2!textboxC1.Value = Application.index(Range("'TestLightList'!$A$2:$E$500"), _
Application.Match(userform2!ComboBoxL1.Value, Range( _
"'TestLightList'!$A$2:$A$500"), 0), 2)

请注意，在这个代码的snippit中我正在使用第一个组合框。该公式按数字顺序创建了一系列它们。

谢谢！

使用.Controls.add函数创建的组合框的Combobox_Change函数*

0 个答案: