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

GG-飞扬

求助：在C3 倒三角形下拉选填的时候经常会遇到选项太多、字又小、看不清的现象，怎样才能做到输入关键字后能弹出包含此关键字的选项，而隐含其他选项？此关键字可以在字符串的开头、中间或结尾。如输入“教师”，弹出A窗体，输入“技术”，弹出B窗体。求代码。谢谢！

liulang0808

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
    

复制代码

liulang0808

在第二张表第一行输入关键字即可

GG-飞扬

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

Amarry

liulang0808 发表于 2018-2-13 07:12

老师这个功能不错，如果能忽略英文大小写，就更好了。

一指禅62

vba 怎样做到输入关键字后在窗体中弹出关联选项.rar (20.43 KB, 下载次数: 79)

2018-2-13 10:27 上传

点击文件名下载附件

GG-飞扬

一指禅62 老师的答案完全切合了我的意图，先学习一下，谢谢老师

liulang0808

Amarry 发表于 2018-2-13 09:55
老师这个功能不错，如果能忽略英文大小写，就更好了。

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

GG-飞扬

本人愚笨，弄了半天无法修改，请高手特别是6六楼的“一指禅62”老师帮忙，需要在sheet2中2个不连续区域的每一个单元格使用sheet1的方法。如何修改代码？谢谢！

lzqmsy

留个记号,有空给你做一个