摘要： 在excel用户窗体中实现级联下拉列表？在网站中，我们经常会碰到需要一层层向下选择的情况。在第一个选项列表中选择第一个数据，第二个选项列表中选择第二个数据，依此类推。并且，后面的选项列表内容会根据前面选择的内容而发生变化。如下所示。
上是使用Excel VBA用户窗体实现的效果，实现起来很简单。
首先，准备数据，如下所示。第1列单元格中的值分别是该列下方数据单元格区域的名称，这需要我们事先使用名称功能进行定义。
接着，设计用户窗体，如下所示。在VBE中，插入一个用户窗体，在上面放置3个组合框并分别命名为：cmbProduct、cmbModel和cmbSubModel。
编写用户窗体模块代码：
Private Sub UserForm_Initialize()
‘第1个组合框中添加值
cmbProduct.List =Application.WorksheetFunction.Transpose(Range(“产品”))
End Sub
Private Sub cmbProduct_Change()
cmbModel.Value = “”
cmbSubModel.Value = “”
Select Case cmbProduct.Value
‘根据第1个组合框中的值
‘在第2个组合框中添加相应的值
Case “产品1”
cmbModel.List =Application.WorksheetFunction.Transpose(Range(“产品1”))
Case “产品2”
cmbModel.List =Application.WorksheetFunction.Transpose(Range(“产品2”))
Case Else
cmbModel.Value = “”
excel怎么添加、查找和编辑数据记录
在Excel中，我已经创建了一个输入数据的用户窗体，用于在工作记录工作表中添加新数据记录。最近，老板提出了新的需求，要通过该用户窗体能够编辑数据记录，增强其功能。 这是我们在使用Excel编程时经常会遇到的问题。虽说直接在工作表中添加数据没有什么不好的，但就是有很多人喜欢使用自已设计的界面输入数据，包括我自已。在设计
End Select
End Sub
Private Sub cmbModel_Change()
cmbSubModel.Value = “”
Select Case cmbModel.Value
‘根据第2个组合框中的值
‘在第3个组合框中添加值
Case “型号11”
cmbSubModel.List =Application.WorksheetFunction.Transpose(Range(“型号11”))
Case “型号12”
cmbSubModel.List =Application.WorksheetFunction.Transpose(Range(“型号12”))
Case “型号13”
cmbSubModel.List =Application.WorksheetFunction.Transpose(Range(“型号13”))
Case “型号21”
cmbSubModel.List =Application.WorksheetFunction.Transpose(Range(“型号21”))
Case “型号22”
cmbSubModel.List =Application.WorksheetFunction.Transpose(Range(“型号22”))
Case “型号23”
cmbSubModel.List =Application.WorksheetFunction.Transpose(Range(“型号23”))
Case Else
cmbSubModel.Value = “”
End Select
End Sub
至此，运行用户窗体，即实现上所示的效果。你可以根据实际情况，添加功能，譬如选择好后，将选择的数据输入用户信息工作表或者导向到相应的产品页面。
excel图表是怎么合并多个工作簿中的数据
我们使用代码快速合并超过5 个Excel工作簿文件，然而，如果要合并的工作簿中工作表的名称不相同，但位于每个工作簿的第1个工作表；并且，要在合并后的工作表的第1列中输入相对应的工作簿文件名，以便知道合并后的数据来自哪个工作簿文件。 同样，可以使用VBA代码快速解决。多的话不说，先上代码： Sub Combine()
