模糊输入

孤独旅行者

请模糊输入代码 谢谢 模糊输入.rar (13.49 KB, 下载次数: 51)

2016-1-7 14:15 上传

点击文件名下载附件

看见星光

1. 
   
2. 
   
3. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
4. With ListBox1
   
5.     For i = 0 To .ListCount
   
6.         If .Selected(i) Then
   
7.             arr = Array(.Text, .Column(1), .Column(2))
   
8.             Exit For
   
9.         End If
   
10.     Next
    
11. End With
    
12. ActiveCell.Resize(1, 3) = arr
    
13. TextBox1.Text = ""
    
14. ListBox1.Visible = False
    
15. TextBox1.Visible = False
    
16. End Sub
    
17. 
    
18. Private Sub TextBox1_Change()
    
19. s = TextBox1.Text
    
20. arr = [a1].CurrentRegion
    
21. ReDim brr(1 To UBound(arr), 1 To 3)
    
22. For i = 1 To UBound(arr)
    
23.     If InStr(1, arr(i, 1), s) > 0 Then
    
24.         k = k + 1
    
25.         brr(k, 1) = arr(i, 1)
    
26.         brr(k, 2) = arr(i, 2)
    
27.         brr(k, 3) = arr(i, 3)
    
28.     End If
    
29. Next
    
30. ListBox1.List = brr
    
31. End Sub
    
32. 
    
33. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
34. If Target.Column = 6 Then
    
35.     With TextBox1
    
36.         .Visible = True
    
37.         .Top = Target.Top
    
38.         .Left = Target.Left
    
39.         .Height = Target.Height
    
40.         .Width = Target.Width
    
41.         .Activate
    
42.     End With
    
43.     With ListBox1
    
44.         .Visible = True
    
45.         .Top = Target.Top
    
46.         .Left = Target.Offset(0, 1).Left
    
47.         .Height = Target.Height * 10
    
48.         .Width = 200
    
49.         .ColumnCount = 3
    
50.     End With
    
51.     Else
    
52.         ListBox1.Visible = False
    
53.         TextBox1.Visible = False
    
54. End If
    
55. End Sub
    

复制代码

看见星光

11模糊输入.zip (24.88 KB, 下载次数: 450)

2016-1-7 14:56 上传

点击文件名下载附件

孤独旅行者

看见星光 发表于 2016-1-7 14:56

谢谢  是只要建2个控件就行了吗  还是需要整列都要建控件 因为我一点都不懂 然后代码里怎么更改数据源

看见星光

孤独旅行者 发表于 2016-1-7 15:21
谢谢  是只要建2个控件就行了吗  还是需要整列都要建控件 因为我一点都不懂 然后代码里怎么更改数据源

控件是根据你选取的单元格位置做相对移动的，就像装一百碗水，不需要一百个碗，用一个碗装一百次也一样的。

ynkmyxs

看见星光 发表于 2016-1-7 14:54

这个代码是显示3列，应该修改哪里可以多显示4列、5列，甚至更多？