最新进展：任意字符的输入逐步提示（超强功能）

blackttea · 发表于 2010-4-19 16:51

支持一下,谢谢分享!

AVEL · 发表于 2010-4-19 19:39

为什么我打开没有任何的提示。。。？
下拉窗口是空白的。。

fsydw · 发表于 2010-4-19 20:02

原帖由 AVEL 于 2010-4-19 19:39 发表
为什么我打开没有任何的提示。。。？
下拉窗口是空白的。。

1、输入字符时，才会有提示。
2、我取消了空白时提示，实现“当有匹配的记录时，才提示”。
《录入表》中的代码，增加以下红色部分，便可出现提示。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.Count = 1 Then
      If Target.Column = 1 And Target.Row > 1 Then
         With Me.TextBox1
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left
            .Width = Target.Width
            .Height = Target.Height
         End With
         With Me.ListBox1
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left + Target.Width
            .Width = Target.Width
            .Height = Target.Height * 5
            For i = 2 To Sheet2.Range("A65536").End(xlUp).Row
                  .AddItem Sheet2.Cells(i, 1).Value
            Next
         End With
      Else
         Me.ListBox1.Clear
         Me.TextBox1 = ""
         Me.ListBox1.Visible = False
         Me.TextBox1.Visible = False
      End If
End If
End Sub

[ 本帖最后由 fsydw 于 2010-4-19 20:05 编辑 ]

yxhao · 发表于 2010-5-9 09:41

改过了有问题,出现不了提示为什么?

王晖辉 · 发表于 2010-5-10 22:46

不错，但是要用鼠标两次是最大的不方便！！！

name004 · 发表于 2010-6-12 00:35

13楼的代码非常好，学习了。
3个产品，我组个试用了一下。感觉167好一些。
我提一些建议，不是意见！
1、选择单元格时不要启动，按下F2时启动，---这样就不使用鼠标了，这是非常不方便的。也就是编辑状态启动，可能和双击单元格一回事?
2、targetchange事件跳转到数据表模糊查找。我给个附件上来，你看看

[ 本帖最后由 name004 于 2010-6-12 01:13 编辑 ]

zpy2 · 发表于 2010-6-12 13:26

学习了，不错。

fengjy1976 · 发表于 2010-6-12 19:40

谢谢，分享

zhanhewang · 发表于 2010-6-13 16:21

学习。谢谢！！

csy_1983 · 发表于 2010-7-22 12:21

先下载下来慢慢学习，谢谢了

		自动登录	找回密码
密码			免费注册

[原创] 最新进展：任意字符的输入逐步提示（超强功能）