excelvba如何能将筛选地结果负给activex组合框

《excelvba如何能将筛选地结果负给activex组合框》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实用标准文案excelVBA如何将筛选的结果负给ACTIVEX组合框65[ 标签：excel筛选,excel,vba ]在线等，急！！！！在UserForm1中，姓名组合框内容来自姓名！A2到最后一行不为空的单元格。选项1组合框内容来自选项！A2到最后一行不为空的单元格。选项2组合框内容来自选项！选项B2到最后一行不为空的单元格。其含义决定了，当选项1组合框选定一个类时，选项2组合框只能选择这个类的相关的内容，比如：选项1组合框选择：类B那么选项2组合框就只有可能选择：类B1、类B2。所以，希望选项2组合框的内容是经过筛选的结果，条件是选项表！B中前2字符和选项1组合框选择的内容

2、相同。请问如何实现？我有附件，如果觉得说得不清楚的话，可以说一下邮箱，我把附件发来。在线等……，谢谢了啊`达达龙回答:4人气:11解决时间:2009-09-0615:25满意答案好评率：0%组合框是不是combobox?是不是要类联动？建userform1,两个表，名称分别为姓名选项。拖三个combobox控件分别为ComboBox1，ComboBox2，ComboBox3复制下列代码。PrivateSubComboBox1_Change()ComboBox2.Clearh=ComboBox1.Value文档实用标准文案Fora=1To100g=VBA.Left(Sheets("

3、选项").Cells(a,2),2)Ifg=hThend=Sheets("选项").Cells(a,2)ComboBox2.AddItemdEndIfNextaEndSubPrivateSubUserForm_Initialize()DimaAsIntegeri=1c=WorksheetFunction.CountA(Sheets("选项").Range("a:a"))Fora=1To99i=i+1b=Sheets("选项").Cells(i,1)f=Sheets("姓名").Cells(i,1)Ifb<>""ThenComboBox1.AddItembComboBox3.Add

4、ItemfEndIfNextaEndSub------------------------------------------------------------------------------文档实用标准文案评价答案·您已经评价过！好:0·您已经评价过！一般:0·您已经评价过！不好:0·您已经评价过！原创:0·您已经评价过！非原创:0Dionysus回答采纳率:64.3%2009-09-0410:47`达达龙的感言：谢谢大家满意答案好评率：0%选项表内容文档实用标准文案窗体设计如下：代码如下：PrivateSubComboBox1_Change()Worksheets("S

5、heet1").Columns("J:J").ClearWorksheets("Sheet1").Range("H1").Value=Worksheets("Sheet1").Range("B1").ValueWorksheets("Sheet1").Range("H2").Value=ComboBox1.Text&"-"Worksheets("Sheet1").Columns("B:B").AdvancedFilterAction:=xlFilterCopy,CriteriaRange:=Range(_"H1:H2"),CopyToRange:=Columns("J:J"),U

6、nique:=FalseComboBox2.RowSource=Worksheets("Sheet1").Range("J2:J"&Worksheets("Sheet1").Columns("J:J").End(xlDown).Row).AddressEndSub文档实用标准文案PrivateSubUserForm_Activate()ComboBox1.RowSource=Worksheets("Sheet1").Range("A2:A"&Worksheets("Sheet1").Columns("A:A").End(xlDown).Row).AddressComboBox2.

7、RowSource=""EndSub回答人的补充  2009-09-0521:35为了不出现选择"A1",子列表出现"A11"此类情况，所以用"-"隔开。评价答案·您已经评价过！好:0·您已经评价过！一般:0·您已经评价过！不好:0·您已经评价过！原创:0·您已经评价过！非原创:0空白回答采纳率:37.5%2009-09-0521:28我有更好的回答收藏转载到QQ空间相关内容·•ExcelVBA程序开发、对组合框进行赋值的程序应该写在什么事件中2个回答·excel教程·excel