Question

大家好！小弟初学EXCEL-VBA, 现在需要分析一份油品特性数据，在组合框，列表框和工作表的数据连接遇到问题

1，怎么在活动工作表使用组合框提取其他工作表的名称，本人自己编了好久，一直未能成功；希望大家帮忙解决，同时保证再增加或减少
工作表时，组合框下拉列表能够自动更新 。
2，当左边的组合框连接后，右边的组合框能够自动将对应表中的油品特性放入下拉列表；
3，还有一个列表框与组合框需要达到同样的功能，并且列表框能够复现，使得数据进行多个分析。。。。
呵呵， 大家一定要积极参与，小弟谢谢各位了！
小弟主要是EXCEL-vba中组合框，列表框和工作表之间的数据链接----救命！！！欢迎源程序和在附件中修改
大侠有兴趣的，积极参与下一步编写地图数据分析和正态分布，矩形图的VBA程序咯。。。。小弟谢谢各位了！！！

Answer 1

针对你的前两个问题，方法如下：
先将各工作表的A列放入“油品”名称
在VBA窗口中添加一个窗体，在窗体上添加一个组合框，下面添加一个列表框。
双击窗体，打开窗体的代码窗口，把下面代码粘贴进去
Private Sub ComboBox1_Change()
ListBox1.Clear
t = ComboBox1.Text
x = Sheets(ComboBox1.Text).[a65536].End(xlUp).Row '在各表的A列存放“油品”
With Sheets(ComboBox1.Text)
For i = 1 To x
ListBox1.AddItem .Cells(i, 1)
Next
End With
End Sub

Private Sub UserForm_Activate()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

就可以运行代码了，只要窗体被加载，就会在组合框中显示所有的工作表，从中选取任意一个工作表名，就能在列表框中显示该表A列的油品名字。

Answer 2

没有附件不好操作,给你一个很好的论坛, club.excelhome.net EXCEL之家论坛,那里有很多高手的!!