Question

我对VBA编程很新，这只是我的第二个用户表单数据库。我试图在用户表单中初始化组合框，但数据需要在同一工作簿中的2个不同的工作表中。当它只需要从一张纸张初始化时我没有问题，但找不到在同一表格中使用2张纸张的解决方案。下面的代码是我现在拥有的。我需要做的是将第一行数据（Hengelaar List）移动到一个名为＆＃34; Lede Lys＆＃34;的单独表格中，但不知道如何将这个新表格编码到现有的私有子目录中。

我真的希望这是有道理的。

提前致谢

phpunit.phar

Answer 1

Private Sub UserForm_Initialize()
Dim rng1 As Range
Dim rng2 As Range

Set rng1 = Sheets(2).Range("A1:A3")
Set rng2 = Sheets(1).Range("A1:a3")

comboboxValue = _
Split(Join(Application.WorksheetFunction.Transpose(rng1.Value), ",") & "," _
   & Join(Application.WorksheetFunction.Transpose(rng2.Value), ","), ",")
   Me.ComboBox1.List = comboboxValue

End Sub

从2张不同的纸张填充组合框

1 个答案: