[已解决]控件的一个问题

被禁锢的风

我在合同尾号这个文本框里面输入数字之后，按键盘回车会自动运行，但按了回车之后会变成在地市代码这个文本框里面输入数字。

有没有办法在合同尾号这个文本框输入数字后，按回车运行，然后默认为继续在合同尾号文本框输入数字？

我试过2楼代码，能满足我的要求，不过用了这个代码之后我就不能在其他的控件输入内容了，用什么方法来改进？

控件见附件

w7LlSyps.rar (14.11 KB, 下载次数: 1)

2010-1-5 14:57 上传

点击文件名下载附件
控件的一个问题

[此贴子已经被作者于2010-1-7 10:17:16编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-1-7 11:11

输入任何内容就可以到别的控件去

Private Sub 尾号文本_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If 尾号文本 = "" Then Cancel = True
End Sub

Private Sub 尾号文本_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Dim y1 As Single
        y1 = Range("A65536").End(xlUp).Row + 1
        Cells(y1, 1).Value = UserForm1.Controls("代码文本1") & UserForm1.Controls("年份文本") & UserForm1.Controls("代码文本2") & UserForm1.Controls("尾号文本") & "P"
        尾号文本 = ""
    End If
End Sub

跳转到最佳答案楼层

raulerini

加上这样一段代码:

Private Sub 尾号文本_Exit(ByVal Cancel As MSForms.ReturnBoolean)
尾号文本 = ""
Cancel = True
End Sub

搁浅2008

2楼的太高了[em17]

你的可以改成

Private Sub 尾号文本_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim y1 As Single
    y1 = Range("A65536").End(xlUp).Row + 1
    Cells(y1, 1).Value = UserForm1.Controls("代码文本1") & UserForm1.Controls("年份文本") & UserForm1.Controls("代码文本2") & UserForm1.Controls("尾号文本") & "P"
    Cancel = True
End Sub

[此贴子已经被作者于2010-1-5 16:20:14编辑过]

零点★沉思

来晚了

搁浅2008

我以前遇到过,一直想怎么激活都没有成功,现在好了

一个Cancel = True

 把我多年的问题解决了 [em01]

现在腰不酸腿不疼 吃嘛嘛香

EZD

占个位，看起来很棘手的样子

[em01]

被禁锢的风

我试过2楼代码，能满足我的要求，不过用了这个代码之后我就不能在其他的控件输入内容了，用什么方法来改进？

amulee

输入任何内容就可以到别的控件去

Private Sub 尾号文本_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If 尾号文本 = "" Then Cancel = True
End Sub

Private Sub 尾号文本_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Dim y1 As Single
        y1 = Range("A65536").End(xlUp).Row + 1
        Cells(y1, 1).Value = UserForm1.Controls("代码文本1") & UserForm1.Controls("年份文本") & UserForm1.Controls("代码文本2") & UserForm1.Controls("尾号文本") & "P"
        尾号文本 = ""
    End If
End Sub