输入时逐步提示信息

liuxing_119

受教了，谢谢蓝版，只是，怎么手动录入和提示输入同时存在呢？提示录入没有，按了两下ESC才可手动录入，而且输入框还若隐若现的。

liuxing_119

蓝桥玄霜 发表于 2012-12-13 11:45

受教了，谢谢蓝版，只是，怎么手动录入和提示输入同时存在呢？提示录入没有，按了两下ESC才可手动录入，而且输入框还若隐若现的。

fcdd

窗体 文本框 输入时逐步提示信息

如何修改？？？？？

可以实现吗？？？？？

somepeople

感受到强大EXCEL!
谢谢了！

小x白

找了好久终于找到了，请教大神为什么我把代码复制到自己的表格中
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
总是弹出用户定义类型未定义

小x白

蓝桥玄霜 发表于 2012-12-13 11:45

请问版主
Dim Arr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 4 Then Exit Sub
Dim Myr&
Myr = Sheet35.[c65536].End(xlUp).Row
Arr = Sheet35.Range("C1:D100" & Myr)
If Target.Column = 4 Then
    With Me.TextBox1
        .Visible = True
        .Top = Target.Top
        .Left = Target.Left
        .Width = Target.Width
        .Height = Target.Height + 5
        .Activate
    End With
    With Me.ListBox1
        .Visible = True
        .Top = Target.Top
        .Left = Target.Left + Target.Width
        .Height = Target.Height * 10
    End With
Else
    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
End If
End Sub
为什么只能显示C列数据，不能选择D列的

蓝桥玄霜

小x白 发表于 2013-5-21 11:38
找了好久终于找到了，请教大神为什么我把代码复制到自己的表格中
Private Sub TextBox1_KeyUp(ByVal KeyCo ...

需要手动添加文本框和列表框控件的。

蓝桥玄霜

代码中有限制：
If Target.Column = 4 Then

小x白

蓝桥玄霜 发表于 2013-5-21 15:08
需要手动添加文本框和列表框控件的。

首先感谢版主，http://club.excelhome.net/thread-1019450-1-1.html   我的疑问都发在这个帖子中了，请问如何添加文本框和列表框控件？我想要的是提示显示sheet35中多列的数据
就像这个附件单据录入C列一样，但这个代码太多，复制后也总是显示用户定义类型未定义，求版主解惑，谢谢   密码123

swbuing

大兰，看不懂啊，能不能加上注释啊。