ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 202|回复: 11
打印 上一主题 下一主题

[求助] vba 怎样做到输入关键字后在窗体中弹出关联选项

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2018-2-13 00:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求助:在C3 倒三角形下拉选填的时候经常会遇到选项太多、字又小、看不清的现象,怎样才能做到输入关键字后能弹出包含此关键字的选项,而隐含其他选项?此关键字可以在字符串的开头、中间或结尾。如输入“教师”,弹出A窗体,输入“技术”,弹出B窗体。求代码。谢谢!

1518453409(1).png (45.02 KB, 下载次数: 1)
1518453409(1).png
vba 怎样做到输入关键字后在窗体中弹出关联选项.rar 10.14 KB, 下载次数: 6
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏3 分享分享 有用有用 无用无用1
TA的精华主题TA的得分主题
2
发表于 2018-2-13 07:12 | 只看该作者
  • Private Sub Worksheet_Change(ByVal Target As Range)
  •     If Target.Count <> 1 Then Exit Sub
  •     If Target.Row <> 1 Then Exit Sub
  •    
  •     c = Target.Column
  •     Application.EnableEvents = False
  •     Application.ScreenUpdating = False
  •     Application.Intersect(Columns(c), ActiveSheet.UsedRange).Offset(1).Clear
  •     If Len(Target) > 0 Then
  •         a = 2
  •         arr = Sheets(1).UsedRange
  •         For j = 1 To UBound(arr)
  •             If InStr(arr(j, 1), Target.Value) > 0 Then
  •                 Cells(a, c) = arr(j, 1)
  •                 a = a + 1
  •             End If
  •         Next j
  •     End If
  •     Application.ScreenUpdating = True
  •     Application.EnableEvents = True
  • End Sub
  • 复制代码

    评分

    参与人数 2鲜花 +5 收起 理由
    达州张先生 + 3 值得肯定
    Amarry + 2 太强大了
    查看全部评分
    TA的精华主题TA的得分主题
    3
    发表于 2018-2-13 07:13 | 只看该作者
    在第二张表第一行输入关键字即可
    vba 怎样做到输入关键字后在窗体中弹出关联选项.zip 18.19 KB, 下载次数: 19

    评分

    参与人数 1鲜花 +3 收起 理由
    达州张先生 + 3 值得肯定
    查看全部评分
    TA的精华主题TA的得分主题
    4
     楼主| 发表于 2018-2-13 09:23 | 只看该作者 |楼主
    谢谢版主的答案,可能是我的表达不够清晰,我要的效果是在设定了倒下拉三角形格式的单元格中,输入关键字时旁边飘出一个新窗体,窗体中只有包含关键字的选项,随着输入文字的增多,可供选项越来越少,从而可以快速精确选出需要的选项。输入时一直是在该单元格中输入。求各位高手伸出缓手,谢谢!
    TA的精华主题TA的得分主题
    5
    发表于 2018-2-13 09:55 | 只看该作者
    TA的精华主题TA的得分主题
    6
    发表于 2018-2-13 10:27 | 只看该作者
    TA的精华主题TA的得分主题
    7
     楼主| 发表于 2018-2-13 10:59 | 只看该作者 |楼主
    TA的精华主题TA的得分主题
    8
    发表于 2018-2-13 16:06 | 只看该作者
    Amarry 发表于 2018-2-13 09:55
    老师这个功能不错,如果能忽略英文大小写,就更好了。

    忽略大小写的话,就是用lcase,ucase之类的进行处理下即可

    评分

    参与人数 2鲜花 +5 收起 理由
    Amarry + 2 值得肯定
    达州张先生 + 3 值得肯定
    查看全部评分
    TA的精华主题TA的得分主题
    9
     楼主| 发表于 2018-2-13 19:33 | 只看该作者 |楼主
    本人愚笨,弄了半天无法修改,请高手特别是6六楼的“一指禅62”老师帮忙,需要在sheet2中2个不连续区域的每一个单元格使用sheet1的方法。如何修改代码?谢谢!
    vba 怎样做到输入关键字后在窗体中弹出关联选项(修改).rar 21.06 KB, 下载次数: 5
    TA的精华主题TA的得分主题
    10
    发表于 2018-2-14 01:01 | 只看该作者
    您需要登录后才可以回帖 登录 | 免费注册
    本版积分规则
    关闭

    最新热点上一条 /1 下一条

    关注官方微信,每天学会一个新技能
    手机版|关于我们|联系我们|ExcelHome    GMT+8, 2018-2-23 04:14 , Processed in 0.071600 second(s), 12 queries , Gzip On, MemCache On.
    Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
        沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
    快速回复 返回顶部 返回列表
    99uu优优