输入时逐步提示信息问题

fsydw · 发表于 2009-2-14 00:12

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

输入提示.gif

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

maditate · 发表于 2009-2-14 08:40

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

yuanzhuping · 发表于 2009-2-14 09:46

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

fsydw · 发表于 2009-2-14 09:52

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

fsydw · 发表于 2009-2-14 10:16

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

yuanzhuping · 发表于 2009-2-14 10:54

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

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

fsydw · 发表于 2009-2-14 11:15

谢谢大师赐教！！！

fsydw · 发表于 2009-2-15 22:20

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

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

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

yuanzhuping · 发表于 2009-2-16 07:13

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 · 发表于 2009-2-16 08:48

大师！

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

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

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

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