这样的数据有效性效果如何实现

SCWYZJ

求助：为了方便快捷的输入数据，想设置一个这样的数据有效性，不知可否能实现（详见附件），烦请大神老师看看，谢谢。

titi012

参与一下。。。。

laoye5403

如果仅仅是输入关键字或者关键词模糊查找,论坛很多可以借鉴,
但是如果是在"我是共产党员"中，输入"我党"或者“我党员”等之类的查找出"我是共产党员"就很不容易了.这种我也想学习，哈哈哈哈！

SCWYZJ

titi012 发表于 2024-12-18 18:05
参与一下。。。。

完全不行

313667354

SCWYZJ 发表于 2024-12-19 08:17
完全不行

2楼给的测试过，已经达到你的需求了啊，完全不行啥意思啊！

cqlpjxx

估计他是想，在单元格每输入一个字符，就重设一次有效性。可单元格没有相应的触发事件。

laoye5403

1. 
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     With Target
   
5.         If .Column <> 2 Or .Row < 4 Then b = True '如果用户选择的单元格不是第2列或者小于4行
   
6.         If .Columns.Count > 1 Or .Rows.Count > 1 Then b = True '如果用户选择的单元格数量大于1
   
7.     End With
   
8.     If b Then
   
9.         ListBox1.Visible = False '不可见
   
10.         TextBox1.Visible = False '不可见
    
11.         Exit Sub '退出程序
    
12.     End If
    
13.     With Sheet2
    
14.         endrow = .Cells(.Rows.Count, 1).End(xlUp).Row
    
15.         arr = .Range("a2:a" & endrow)
    
16.     End With
    
17.     With TextBox1
    
18.         .Value = ""
    
19.         .Visible = True '可见
    
20.         .Top = Target.Top '文本框顶部位置
    
21.         .Left = Target.Left '文本框左侧位置
    
22.         .Height = Target.Height '文本框高度
    
23.         .Width = Target.Width '文本框宽度
    
24.         .Activate '激活文本框
    
25.     End With
    
26.     With ListBox1
    
27.         .ColumnCount = 1  '列表中列数
    
28.         .Visible = True '可见
    
29.         .Top = Target.Offset(0, 1).Top '上下位置
    
30.         .Left = Target.Offset(0, 1).Left '左右位置
    
31.         .Height = 150  '高度
    
32.         .ColumnWidths = "100"  '每列的宽度
    
33.         .Font.Size = 11  '列表中字体大小
    
34.         .List = arr
    
35.     End With
    
36. End Sub
    
37. '根据文本框的输入值动态匹配数据
    
38. Private Sub TextBox1_Change()
    
39.     With Sheet2
    
40.         endrow = .Cells(.Rows.Count, 1).End(xlUp).Row
    
41.         arr = .Range("a2:a" & endrow)
    
42.     End With
    
43.     If TextBox1.Text = "" Then ListBox1.List = arr: Exit Sub
    
44.     ReDim brr(1 To endrow)
    
45.     For i = LBound(arr) To UBound(arr)
    
46.         k = 0
    
47.         For j = 1 To Len(TextBox1.Text)
    
48.         If InStr(1, arr(i, 1), Mid(TextBox1.Text, j, 1)) > 0 Then
    
49.             k = k + 1
    
50.         End If
    
51.         Next j
    
52.         If k = Len(TextBox1.Text) Then
    
53.             m = m + 1
    
54.             brr(m) = arr(i, 1)
    
55.         End If
    
56.     Next i
    
57.     ListBox1.List = brr '写入匹配后的数据
    
58. 
    
59. End Sub
    
60. '如果双击列表框的内容则写入活动单元格
    
61. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
62.     If ListBox1.ListIndex > -1 Then
    
63.         ActiveCell = ListBox1.Text
    
64.         With ListBox1
    
65.             .Clear '清空列表框
    
66.             .Visible = False
    
67.         End With
    
68.         TextBox1.Visible = False
    
69.     End If
    
70. End Sub
    
71. 
    

复制代码

我这个半桶水也可以帮助别人了。
这个应该是达到你的要求了，动态查找，比如“我是中国共产党员8”，输入“8员”、“我员中”等，随便乱输入都可以查找。

cqlpjxx

laoye5403 发表于 2024-12-19 16:15
我这个半桶水也可以帮助别人了。
这个应该是达到你的要求了，动态查找，比如“我是中国共产党员8”，输入 ...

楼主要求是借助窗体控件，用单元格的有效性实现

lu咩

在筛选录入方面七楼的挺好，谢谢分享

SCWYZJ

二楼老师的方法就是有点不足的地方，就是关键字本身一样的数据无法查询显示（如图），而且反应不灵敏。八楼的方法可以，但借助了控件，我要的是不要借助控件来实现。