[已解决]求修改完整窗体代码

hhaa999 · 发表于 2009-12-1 14:15

Private Sub UserForm_Initialize()

Dim sh1 As Workbook

Dim sh2 As Worksheet

For Each sh1 In Workbooks

ListBox1.AddItem sh1.Name

ComboBox2.AddItem sh2.Name

上面的是一段窗口控件加载代码，ListBox1显示的是当前打开的工作薄名，ListBox2显示的是当前打开的工作表名。

上面代码现在的问题是：ListBox1显示的工作薄名book1 book2 但是ListBox1显示的是当前book1的工作表名，而不显示book2的工作表名

要求选ListBox1 选book1时，ListBox2显示book1中的工作表名

要求选ListBox1 选book2时，ListBox2显示book2中的工作表名

望各位帮忙解决

wfYIoT7Y.rar (9.22 KB, 下载次数: 0)

奥特曼 · 发表于 2009-12-1 14:33

ComboBox2.AddItem sh2.Name

不是combobox而是listbox

amulee · 发表于 2009-12-1 14:38

最好上传个附件

hhaa999 · 发表于 2009-12-1 14:49

附件以上传

奥特曼 · 发表于 2009-12-1 14:53

哦,不应该把worksheet的代码写在初始化中,因为你的list是根据前面一个变化的

所以应该写在listbox被点击的时候或者前面一个listbox值change的时候

hhaa999 · 发表于 2009-12-1 15:01

具体如何写呢

hhaa999 · 发表于 2009-12-1 15:04

给个初步答案

amulee · 发表于 2009-12-1 15:06

icRoOJU4.rar (6.98 KB, 下载次数: 12)

奥特曼 · 发表于 2009-12-1 15:10

Private Sub ComboBox1_Change()     On Error Resume Next     Dim Sht As Worksheet     With ComboBox2         .Clear         For Each Sht In Workbooks(ComboBox1.Text).Worksheets             .AddItem Sht.Name         Next     End With End Sub

复制代码

hhaa999 · 发表于 2009-12-1 15:15

难题解决了谢谢

		自动登录	找回密码
密码			注册

[已解决]求 修改完整窗体代码