输入时逐步提示信息问题

yuanzhuping

原帖由 fsydw 于 2009-2-16 08:48 发表
大师！

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

添加以下代码

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = vbKeyReturn Then
   
3.         Sheet1.ListBox1.Activate
   
4.     End If
   
5. End Sub

复制代码

1. Private Sub ListBox1_GotFocus()
   
2.     ListBox1.ListIndex = 0
   
3. End Sub

复制代码

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

yuanzhuping

如何实现：在录入表中，点击A列单元格时、或是用回车键和方向键选择A列其它单元格时，文本框就处于编辑状态，避免用鼠标
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
                .Activate
'.................................................
            End Sub

fsydw

大师你好！
就是这个！技巧167更加完善了！！在实际应用中的效率更高了！！！
再次对yuan大师的帮助表示深深的感谢！！！

bioafanda

你好,请问一下,因为还在初学VBA中,能告诉我一下是怎么使用LIKE实现的任意字符动态提示的吗?谢谢了.

lovingness

老师啊，我正在看这个，请问我要在第三列输入怎么办？我对代码不太懂

diablo0583

留名，非常好的自动化方法，谢谢版主!

rainhorse

有bug，
比如输入完A3单元格后，马上用鼠标选择A3单元格就是普通的直接输入了，达不到提示输入的功能。
还有一个问题
如果数据表是在同一文件目录下的另一个xls文件的sheet中，请问代码需要改动才能引用。

fsydw

原帖由 rainhorse 于 2010-4-18 08:16 发表
有bug，
比如输入完A3单元格后，马上用鼠标选择A3单元格就是普通的直接输入了，达不到提示输入的功能。
还有一个问题
如果数据表是在同一文件目录下的另一个xls文件的sheet中，请问代码需要改动才能引用。

在这里6楼：http://club.excelhome.net/viewthread.php?tid=561331&pid=3750610&page=1&extra=page%3D1

qjw9004

原帖由 yuanzhuping 于 2009-2-16 09:23 发表

添加以下代码Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Sheet1.ListBox1.Activate
    End If
End SubPriv ...

你好！~~能帮我做一下吗？俺对代码不懂，拜托了

♂海卐浪╰☆

谢谢你的资料，我正为这个录入而烦恼呢