1

首先让我说，在回答这个问题之前，我已经搜索了好几个小时。

情况（所有工作） -

用户指定篮子里的苹果数量

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

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

期望：

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

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

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)
  • 请注意，在此代码片段中，我正在使用第一个组合框。该公式按数字顺序创建一系列它们。

谢谢！

4

0 回答 0