输入时逐步提示信息问题

fsydw

这个输入时逐步提示功能增强了！在这里http://club.excelhome.net/thread-561331-1-1.html



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

maditate

发了一段空文谁能知道书本是否有错，把你的实例传上来才有可能得到帮助。

yuanzhuping

一、在录入时不是输在A列的，而是输入在文本框中的，所以在点击A列显示文本框后需要选择一下文本框，不然可能输入到A列单元格中，列表框中没有筛选结果。
二、点击A列显示文本框后进入设计模式，将文本框的BackStyle 属性设置为0，使背景为透明。
三、也可以实现，只是要修改筛选的代码，家中有类似的例子，楼主可以搜索下。

fsydw

谢谢大师赐教！你的书真棒啊！一定一步一步的学习！

fsydw

大师！录入时是借助于文本框与列表框,能不能把文本框换成当前活动的单元格呢？谢谢！！！

yuanzhuping

原帖由 fsydw 于 2009-2-14 10:16 发表
大师！录入时是借助于文本框与列表框,能不能把文本框换成当前活动的单元格呢？谢谢！！！

不能，单元格处于编辑状态时是不能运行代码的，所以需要借助文本框来实现。

fsydw

谢谢大师赐教！！！

fsydw

大师你好! 我用“like”实现了第三个功能，即“输入“材料名称”中的任意“字符”，就在列表框中动态筛选出有同样字符的材料名称。”
再次对你的帮助表示感谢!

不过，无论在代码中、还是在设计状态下的属性中，将文本框的BackStyle 属性设置为0后，第一次点击A列时、是透明的，可录入一次内容后，这个文本框就不透明了？请您赐教!!!

另外，在选择列表框中的内容时，是用“鼠标双击”录入内容，怎样实现通过“方向键”加上“回车键”来录入内容呢？这样可以提高录入效率!谢谢!!!

yuanzhuping

2、在工作表SelectionChange事件中添加一句
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
                .BackStyle = fmBackStyleTransparent                '...........................................
            End Sub
3、添加一个列表框的KeyDown事件
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        ActiveCell.Value = ListBox1.Value
        Me.ListBox1.Clear
        Me.TextBox1 = ""
        Me.ListBox1.Visible = False
        Me.TextBox1.Visible = False
    End If
End Sub

fsydw

大师！

怎样通过键盘，将焦点从文本框转到列表框，然后再通过方向键选择相应记录。这样可提高录入效率。谢谢！！！！

还有，如何实现：在录入表中，点击A列单元格时、或是用回车键和方向键选择A列其它单元格时，文本框就处于编辑状态，避免用鼠标！

[ 本帖最后由 fsydw 于 2009-2-16 09:20 编辑 ]