excelVBA如何將筛选的结果负给ACTIVEX组合框.doc

excel VBA 如何将筛选的结果负给ACTIVEX组合框 65 [?标签：excel 筛选,excel,vba?] 在线等，急！！！！ 在UserForm1中， 姓名组合框内容 来自 姓名！A2到最后一行不为空的单元格。选项1组合框内容 来自 选项！A2到最后一行不为空的单元格。 选项2组合框内容 来自 选项！选项B2到最后一行不为空的单元格。 其含义决定了，当选项1组合框选定一个类时，选项2组合框只能选择这个类的相关的内容，比如：选项1组合框选择： 类B 那么选项2组合框就只有可能选择： 类B1、类B2。所以，希望 选项2组合框的内容是经过筛选的结果，条件是 选项表！B中前2字符和选项1组合框选择的内容相同。 请问如何实现？ 我有附件，如果觉得说得不清楚的话，可以说一下邮箱，我把附件发来。 在线等……，谢谢了啊 `达达龙 回答:4 人气:11 解决时间:2009-09-06 15:25 满意答案 好评率：0% 组合框是不是combobox? 是不是要类联动？ 建userform1 ,两个表，名称分别为 姓名 选项。 拖三个combobox控件分别为ComboBox1，ComboBox2，ComboBox3 复制下列代码。 Private Sub ComboBox1_Change()ComboBox2.Clearh = ComboBox1.ValueFor a = 1 To 100g = VBA.Left(Sheets(选项).Cells(a, 2), 2)If g = h Thend = Sheets(选项).Cells(a, 2)ComboBox2.AddItem dEnd IfNext aEnd Sub Private Sub UserForm_Initialize()Dim a As Integeri = 1c = WorksheetFunction.CountA(Sheets(选项).Range(a:a))For a = 1 To 99i = i + 1b = Sheets(选项).Cells(i, 1)f = Sheets(姓名).Cells(i, 1)If b ThenComboBox1.AddItem bComboBox3.AddItem fEnd IfNext aEnd Sub ------------------------------------------------------------------------------ 评价答案 您已经评价过！ 好:0 您已经评价过！ 一般:0 您已经评价过！ 不好:0 您已经评价过！ 原创:0 您已经评价过！ 非原创:0 Dionysus 回答采纳率:64.3% 2009-09-04 10:47 `达达龙的感言： 谢谢大家 满意答案 好评率：0% 选项表内容 窗体设计如下： 代码如下： Private Sub ComboBox1_Change()Worksheets(Sheet1).Columns(J:J).ClearWorksheets(Sheet1).Range(H1).Value = Worksheets(Sheet1).Range(B1).ValueWorksheets(Sheet1).Range(H2).Value = ComboBox1.Text -Worksheets(Sheet1).Columns(B:B).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _H1:H2), CopyToRange:=Columns(J:J), Unique:=FalseComboBox2.RowSource = Worksheets(Sheet1).Range(J2:J Worksheets(Sheet1).Columns(J:J).End(xlDown).Row).Address End Sub Private Sub UserForm_Activate()ComboBox1.RowSource = Worksheets(Sheet1).Range(A2:A Worksheets(Sheet1).Columns(A:A).End(xlDown).Row).AddressComboBox2.RowSource = End Sub 回答人的补充 ??2009-09-05 21:35 为了不出现选择A1,子列表出现A11此类情况，所以用-隔开。 评价答案 您已经评价过！ 好:0 您已经评价过！ 一般:0 您已经评价过！ 不好:0 您已经评价过！ 原创:0 您已经