查看: 2373|回复: 12
在组合框里选好条件，如何点击按钮就查出相应的数据，求大神指点！
阅读权限10
在线时间 小时
我有一个完整的数据库，包含省份、城市以及公司名称这三列信息。现在我希望做一个查询的表，有两个组合框分别可以选择省份和城市，比如在省份选择四川，这是下一个城市的组合框就只剩四川的城市，其他省的城市不显示；之后我再选城市，比如宜宾；在点击查询按钮，就可以在下面出现宜宾所有的公司名称。
大概的样子见附件~
(15.87 KB, 下载次数: 18)
17:59 上传
点击文件名下载附件
求大神指点啊！跪谢！
阅读权限95
在线时间 小时
本帖最后由 chxw68 于
18:12 编辑
附件中数据太少了。
阅读权限10
在线时间 小时
拿三个省的吧，这样可以么？ 我公司有保密协议的啊，不敢都传出来~
(23.25 KB, 下载次数: 12)
18:18 上传
点击文件名下载附件
阅读权限95
在线时间 小时
小葵de 发表于
拿三个省的吧，这样可以么？ 我公司有保密协议的啊，不敢都传出来~
呵呵，用筛选就能达到你的要求呀！
阅读权限95
在线时间 小时
用自动筛选就可以达到你的要求。
18:34 上传
点击文件名下载附件
13.42 KB, 下载次数: 33
阅读权限10
在线时间 小时
chxw68 发表于
用自动筛选就可以达到你的要求。
我知道啊，但是我老板的意思是，不让别人一下子就看到所有的数据库，只看他所选城市的~
我也很崩溃啊~
阅读权限95
在线时间 小时
你看看是不是你的意思？
19:59 上传
点击文件名下载附件
24.6 KB, 下载次数: 115
阅读权限10
在线时间 小时
chxw68 发表于
你看看是不是你的意思？
对的，是这样~太感谢了~我回去好好研究下:)
阅读权限95
在线时间 小时
小葵de 发表于
对的，是这样~太感谢了~我回去好好研究下:)
DATABASE里的数据格式和查询表格里的格式都不能变，否则程序就会出错，Sheet2可以删除掉。
阅读权限95
在线时间 小时
提供一个树形目录选择的，我感到比组合框选择更为方便、直观。
22:30 上传
点击文件名下载附件
32.18 KB, 下载次数: 92
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师请教，Excel2003中，如何在VBA中使用列表框或组合框？_百度知道
请教，Excel2003中，如何在VBA中使用列表框或组合框？
当点击下拉按钮时，显示出当前工作表某一列的数据。选择某一个值后可以将它赋值到一个变量中。非常感谢大家。已经解决。...
当点击下拉按钮时，显示出当前工作表某一列的数据。选择某一个值后可以将它赋值到一个变量中。非常感谢大家。已经解决。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
crazy0qwer
crazy0qwer
采纳数：1728
获赞数：2400
Private Sub ComboBox1_Change()Dim A
A = ComboBox1.Text '赋值给变量End SubPrivate Sub ComboBox1_GotFocus()Dim I As Long
ComboBox1.Clear
For I = 1 To UsedRange.Rows.Count
ComboBox1.AddItem Range(&A& & I).Value '添加到combox
ComboBox1.ListIndex = 0
'选中第一项End Sub
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 3049|回复: 2
如何改变组合框窗体的字体大小
阅读权限20
在线时间 小时
如下图，组合框窗体不管设成多大，字体总是默认的大小，请问有什么方法可改？
注意是窗体，不是ActiveX控件，ActiveX控件可以很容易设置字体，但控件外观没有窗体好看。
窗体组合框.jpg (2.55 KB, 下载次数: 0)
组合框窗体
16:27 上传
阅读权限30
在线时间 小时
组合框名称.Font.Size = 18
阅读权限20
在线时间 小时
fzkoko 发表于
组合框名称.Font.Size = 18
对窗体无效，只对ActiveX有效。
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 7103|回复: 2
如何使组合框只能从下拉列表中选择而不能输入？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: 水星钓鱼
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2007&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 水星钓鱼 于
21:52 编辑
Q：如何实现一个组合框只能使用从下拉列表中选择，而不能在编辑区域输入？
A：设置组合框控件的Style属性可以实现。
组合框控件的Style属性有两个值，它们分别是fmStyleDropDownCombo，fmStyleDropDownList。
其中fmStyleDropDownList表示组合框只能通过从下拉列表中选择值。
附上演示附件
(12.26 KB, 下载次数: 64)
21:52 上传
点击文件名下载附件
如何使组合框只能从下拉列表中选择而不能输入？
联系方式：请发站内消息给站长 apolloh
星仔，还是补充个示例附件吧。
初级一, 积分 49, 距离下一级还需 1 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 4254|回复: 5
如何用VBA在组合框中添加下拉选择项目
阅读权限10
在线时间 小时
请问如何用VBA在组合框（ComboBox）中添加下拉选择项目啊？谢谢！
我想把工作表名加到组合框的下拉项目中，用下面代码总报错，哪错了啊？
Dim iSheetIndex As Integer&&'定义工作表索引变量
For iSheetIndex = 1 To ThisWorkbook.Worksheets.Count& & '工作表数量循环
& && &&&Me.ComboBox.AddItem ThisWorkbook.Worksheets(insheetindex).Name
Next iSheetIndex
[ 本帖最后由 fixed 于
22:28 编辑 ]
阅读权限95
在线时间 小时
ComboBox.AddItem
阅读权限10
在线时间 小时
谢谢楼上的，帮我看看下面的代码错哪了？
Me.ComboBox.AddItem ThisWorkbook.Worksheets(insheetindex).Name
阅读权限95
在线时间 小时
combobox1.additem
阅读权限10
在线时间 小时
Me.ComboBox.AddItem ThisWorkbook.Worksheets(insheetindex).Name这句代码有什么问题啊？好象ThisWorkbook.Worksheets(insheetindex).Name值为空，但用MSGBOX显示时是有值的啊
阅读权限10
在线时间 小时
谢谢大家，找到问题了，变量名写错了:funk:
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}