ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 188|回复: 11

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-2-13 00:40 | 显示全部楼层 |阅读模式
求助:在C3 倒三角形下拉选填的时候经常会遇到选项太多、字又小、看不清的现象,怎样才能做到输入关键字后能弹出包含此关键字的选项,而隐含其他选项?此关键字可以在字符串的开头、中间或结尾。如输入“教师”,弹出A窗体,输入“技术”,弹出B窗体。求代码。谢谢!

1518453409(1).png

vba 怎样做到输入关键字后在窗体中弹出关联选项.rar

10.14 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2018-2-13 07:12 | 显示全部楼层
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Count <> 1 Then Exit Sub
  3.     If Target.Row <> 1 Then Exit Sub
  4.    
  5.     c = Target.Column
  6.     Application.EnableEvents = False
  7.     Application.ScreenUpdating = False
  8.     Application.Intersect(Columns(c), ActiveSheet.UsedRange).Offset(1).Clear
  9.     If Len(Target) > 0 Then
  10.         a = 2
  11.         arr = Sheets(1).UsedRange
  12.         For j = 1 To UBound(arr)
  13.             If InStr(arr(j, 1), Target.Value) > 0 Then
  14.                 Cells(a, c) = arr(j, 1)
  15.                 a = a + 1
  16.             End If
  17.         Next j
  18.     End If
  19.     Application.ScreenUpdating = True
  20.     Application.EnableEvents = True
  21. End Sub
复制代码

评分

参与人数 2鲜花 +5 收起 理由
达州张先生 + 3 值得肯定
Amarry + 2 太强大了

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-13 07:13 | 显示全部楼层
在第二张表第一行输入关键字即可

vba 怎样做到输入关键字后在窗体中弹出关联选项.zip

18.19 KB, 下载次数: 19

评分

参与人数 1鲜花 +3 收起 理由
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-2-13 09:23 | 显示全部楼层
谢谢版主的答案,可能是我的表达不够清晰,我要的效果是在设定了倒下拉三角形格式的单元格中,输入关键字时旁边飘出一个新窗体,窗体中只有包含关键字的选项,随着输入文字的增多,可供选项越来越少,从而可以快速精确选出需要的选项。输入时一直是在该单元格中输入。求各位高手伸出缓手,谢谢!

TA的精华主题

TA的得分主题

发表于 2018-2-13 09:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-2-13 10:27 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-2-13 10:59 | 显示全部楼层
一指禅62 老师的答案完全切合了我的意图,先学习一下,谢谢老师

TA的精华主题

TA的得分主题

发表于 2018-2-13 16:06 | 显示全部楼层
Amarry 发表于 2018-2-13 09:55
老师这个功能不错,如果能忽略英文大小写,就更好了。

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

评分

参与人数 2鲜花 +5 收起 理由
Amarry + 2 值得肯定
达州张先生 + 3 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-2-13 19:33 | 显示全部楼层
本人愚笨,弄了半天无法修改,请高手特别是6六楼的“一指禅62”老师帮忙,需要在sheet2中2个不连续区域的每一个单元格使用sheet1的方法。如何修改代码?谢谢!

vba 怎样做到输入关键字后在窗体中弹出关联选项(修改).rar

21.06 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2018-2-14 01:01 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

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

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome   

GMT+8, 2018-2-19 15:55 , Processed in 0.072634 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表