查看: 23152|回复: 22
关于窗体复合框下拉列表中内容设置的问题，求教各位老师帮忙！
阅读权限10
在线时间 小时
& & & & & & & &
求教老师：
& && & 窗体中有4个复合框（ComboBox），我想在给他们填入内容的时候可以通过手动输入和选择固定内容进行填写或者赋值，填写的内容与工作表不关联。选择固定内容必须通过代码做成类似于“内置选项”的功能。
& && &备注：当复合框选择下来列表中的选项或者手动填写的内容与工作表不关联，复合框下拉列表中的选项通过代码进行指定。
& && &还请老师给予帮助。谢谢！
效果图2.JPG (9.77 KB, 下载次数: 255)
08:12 上传
效果图1.JPG (10.41 KB, 下载次数: 216)
08:12 上传
目的：如效果图中将“姓名”、“年龄”等内置在复合框下拉列表中，当复合框进行内容填写的时候可以直接从下拉列表中获取。
08:12 上传
点击文件名下载附件
37.57 KB, 下载次数: 771
阅读权限200
在线时间 小时
& & & & & & & &
在添加ComboBox控件到窗体时，不要使用ControlSource 属性将控件与工作表绑定，用代码设置数据源的方法见附件。
10:18 上传
点击文件名下载附件
25.2 KB, 下载次数: 965
阅读权限90
在线时间 小时
把窗体设计中各下拉框的RowSource去掉。窗体中输入以下代码：Private Sub UserForm_Initialize()
& & Dim xstr(1 To 4) As String& & '保存每列的数据
& & arr = Sheet1.[a1].CurrentRegion
& & For i = 1 To UBound(arr)
& && &&&For k = 1 To 4
& && && && &If InStr(xstr(k), arr(i, k)) = 0 Then xstr(k) = xstr(k) & &,& & arr(i, k)& &'k列去重后存入字符串xstr(k)
& && &&&Next
& & Next
& & For k = 1 To 4
& && &&&Me.Controls(&ComboBox& & k).List = Split(Mid(xstr(k), 2), &,&)& && &'把字符串xstr(k)去头后作为ComboBox的List
& & Next
End Sub
Private Sub ComboBox1_Change()& &'姓名下拉框改动后，如果表中能找到对应姓名，则下面几个下拉框自动填充
& & Set x = Sheet1.Range(&a:a&).Find(Me.ComboBox1, lookat:=xlWhole)
& & If Not x Is Nothing Then
& && &&&Me.ComboBox2 = x.Offset(0, 1)
& && &&&Me.ComboBox3 = x.Offset(0, 2)
& && &&&Me.ComboBox4 = x.Offset(0, 3)
& & End If
End Sub
复制代码
阅读权限90
在线时间 小时
请看附件。
10:30 上传
点击文件名下载附件
25.36 KB, 下载次数: 951
阅读权限10
在线时间 小时
grf1973 发表于
请看附件。
grf1973 老师：首先谢谢您的指导，可能你没明白我的意思，我的意思是把名字和年龄、职业、学历等信息内置到代码中，其信息载体就是代码，不能是工作表或者复选框之类的，必须内置到代码中去。希望你能继续帮我一下，谢谢！
阅读权限90
在线时间 小时
& & & & & & & &
什么叫“内置到代码中”？。我的代码就是读取了你表中名字、年龄、职业、学历等信息，然后作为下拉框的选项体现出来。这不就是“内置到代码中”？有什么不对吗？你可以改改表中信息（或增加删除）试试，下拉框选项和表中内容是去重对应的。
阅读权限10
在线时间 小时
本帖最后由 longcr 于
21:33 编辑
grf1973 发表于
什么叫“内置到代码中”？。我的代码就是读取了你表中名字、年龄、职业、学历等信息，然后作为下拉框的选项 ...
grf1973 老师：我说的“内置到代码中”的意思是把确定好的信息直接写到代码中去，在运行的时候直接从代码中的信息读取，不是从工作表中或者复选框中读取。也就是说在写代码的时候直接把要读取的值（信息）写到代码中。谢谢！！& &&&另外，要复合框下拉列表中的信息即：要直接写入代码中的信息，固定的。我的工作表中只是说明。
阅读权限90
在线时间 小时
那这样最简单了。Private Sub UserForm_Initialize()
& & Me.ComboBox1.List = Split(&张三,李四,王二麻子,赵小宝&, &,&)
& & Me.ComboBox2.List = Array(23, 24, 25, 26, 27, 28, 36, 45)
& & Me.ComboBox3.List = Split(&教授,工程师,助工&, &,&)
& & Me.ComboBox4.List = Split(&专科,本科,硕士,博士&, &,&)
End Sub复制代码
阅读权限90
在线时间 小时
请看附件。
08:47 上传
点击文件名下载附件
25.91 KB, 下载次数: 907
阅读权限10
在线时间 小时
& & & & & & & &
非常感谢grf1973老师的耐心帮助，不剩感激！！这个论坛不知道怎么设置成为最佳答案！非常感谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何在Excel中使用组合框控件_百度经验
&&&&&&&&&电脑软件如何在Excel中使用组合框控件听语音113061人看了这个视频返回暂停重播播放世界如此简单21条相关视频12345
百度经验:jingyan.baidu.com今天小编教大家如何在Excel中使用组合框控件。百度经验:jingyan.baidu.com1首先单击菜单栏，找到“开发工具”选项卡中的控件组中，单击“插入”，然后在表单控件下单击“组合框控件”。2通过上面的方法，单击组合框之后，可以在Excel工作表中拖动插入Excel组合框。3右键单击组合框，选择“设置控件格式”，打开设置空间格式对话框。4在“控制”选项卡中点击数据源区域右边的图标，选择A2:A6单元格区域，将单元格链接设置为A8单元格，将下拉显示项数设置为5，完成设置后单击“确定”按钮关闭对话框。5在图表中单击控件将获得一个下拉列表。在下拉列表中选择相应的选项，即可在图表中显示对应的数据系列。END经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。投票(0)已投票(0)有得(0)我有疑问(0)◆◆说说为什么给这篇经验投票吧！我为什么投票...你还可以输入500字◆◆只有签约作者及以上等级才可发有得&你还可以输入1000字◆◆如对这篇经验有疑问，可反馈给作者，经验作者会尽力为您解决！你还可以输入500字相关经验00000热门杂志第1期你不知道的iPad技巧3801次分享第1期win7电脑那些事6651次分享第2期新人玩转百度经验1416次分享第1期Win8.1实用小技巧2660次分享第1期小白装大神1939次分享◆请扫描分享到朋友圈查看: 5111|回复: 7
窗体中的复合框如何引用工作表内的数据源
阅读权限20
在线时间 小时
怎样将工作表中已定义的数据区域（数据源）应用到窗体的复合框内
阅读权限95
在线时间 小时
& & & & & & & &
设置控件的rowsource属性为你要的区域
阅读权限95
在线时间 小时
Private Sub UserForm_Initialize()
& & ComboBox1.RowSource = &Sheet1!名称1&
阅读权限20
在线时间 小时
已解决，非常非常感谢！
阅读权限20
在线时间 小时
二个复合框，一个用于选择表页，然后根据不同的表页上的数据源，决定第二个复合框的选项内容。在同一表页上可以操作，换表页后就会出错，请教高手。
阅读权限20
在线时间 小时
Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 3).Select
fname = ActiveSheet.Name
Cells(1, 1).Select
Cx = ActiveSheet.Range(&IV1&).End(xlToLeft).Column
Cy = Cx / 3
ReDim arr(Cy) As Variant
For i = 1 To Cy
&&arr(i) = Cells(1, x)
&&x = x + 3
ComboBox2.Clear
ComboBox2.RowSource = &&
With ComboBox2
&&For x = 1 To Cy
&&.AddItem arr(x)
阅读权限20
在线时间 小时
wpxxsyzx 发表于
设置控件的rowsource属性为你要的区域
来学习，谢谢。
阅读权限20
在线时间 小时
& & & & & & & &
只能显示一列的数据，设置那个属性，初学者。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel 窗体组合框怎么引用一行中内容_百度知道
Excel 窗体组合框怎么引用一行中内容
我有更好的答案
1、点窗体属性；及设置控件格式2、控制选项卡；3、在单元格控制你要控制的单元格就可以了。4、如果需要引用，在数据源那引用单元格就可以了。
主营：电脑培训，淘宝培训，会计培训，英语培训，手机维修培训，美术
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}