如何在excel中实现联想输入

帅气勇哥122

如题，我想实现在送货单表格中输入编号表格中产品的首字或前几个字，能自动出现下拉框让我选择相对应的产品，求大神解决，网上看了一个用数据有效性的，感觉不好用，而且我这个是2007，也用不了跨表格的有效性

刀羊

只能部分达到效果，见附件，定义了名称，前提是数据表要先排序。

看见星光

用CELL函数做动态查询，搭配数据有效性。
提问：如何实现联想输入.rar (16.4 KB, 下载次数: 674)

2015-10-24 07:27 上传

点击文件名下载附件

看见星光

1. 
   
2. Private Sub ListBox1_Click()
   
3. ActiveCell = ListBox1.Text
   
4. TextBox1.Visible = False
   
5. ListBox1.Visible = False
   
6. End Sub
   
7. 
   
8. Private Sub TextBox1_Change()
   
9. Dim s, arr, brr
   
10. s = TextBox1.Text
    
11. ListBox1.Clear
    
12. arr = Sheets("编号").[a1].CurrentRegion
    
13. For i = 1 To UBound(arr)
    
14.     If InStr(arr(i, 1), s) > 0 Then
    
15.     ListBox1.AddItem arr(i, 1)
    
16.     End If
    
17. Next
    
18. End Sub
    
19. 
    
20. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
21. If Target.Rows.Count > 1 Then Exit Sub
    
22. If Target.Column <> 1 Then
    
23.     TextBox1.Visible = False
    
24.     ListBox1.Visible = False
    
25.     Exit Sub
    
26.     Else
    
27.     With TextBox1
    
28.         .Text = ""
    
29.         .Visible = True
    
30.         .Top = ActiveCell.Top
    
31.         .Left = ActiveCell.Left
    
32.         .Height = ActiveCell.Height
    
33.         .Width = ActiveCell.Width
    
34.         .Activate
    
35.     End With
    
36.     With ListBox1
    
37.         .Visible = True
    
38.         .Top = ActiveCell.Offset(0, 1).Top
    
39.         .Left = ActiveCell.Offset(0, 1).Left
    
40.     End With
    
41. End If
    
42. End Sub
    
43. 
    

复制代码

看见星光

VBA的方法 125.rar (26.46 KB, 下载次数: 579)

2015-10-24 22:26 上传

点击文件名下载附件

帅气勇哥122

看见星光 发表于 2015-10-24 22:26
VBA的方法

非常感谢，但是有没有函数的解决办法啊，因为我这个是给别人用的
怕他们不会用

看见星光

帅气勇哥122 发表于 2015-10-25 17:31
非常感谢，但是有没有函数的解决办法啊，因为我这个是给别人用的
怕他们不会用

3楼是函数的方法的

linyj530

看见星光 发表于 2015-10-25 20:57
3楼是函数的方法的

求大神弄个VBA联想的。函数数据有效性的，太卡了

无语EXCELHOME

老师，帮我处理一下啊！复制了代码进去，提示错误啊

nlee1987

又学习了一个新的函数，谢谢