Textbox setfocus

xubiao1982 · 发表于 2012-6-24 23:52

各位老师
我做了一个小东东,方便生产.
可不知为何,textbox2输入后不能设定为焦点.我要求是完成一个输入后,光标还在textbox2,继续下一个单号的输入(现场是用条码枪读工作单上的条码).
望各位指教.
感恩!!!

镭射唛跟踪记录.rar (17.6 KB, 下载次数: 18)

zhaogang1960 · 发表于 2012-6-25 00:42

短信收到，加一个过程试试看
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
End Sub

xubiao1982 · 发表于 2012-6-25 13:40

老师，
好！
光标是留住了，但其他的box都不能用了，烦看看我代码是否还有其他问题。
感谢！

zhaogang1960 · 发表于 2012-6-25 15:51

xubiao1982 发表于 2012-6-25 13:40
老师，
好！
光标是留住了，但其他的box都不能用了，烦看看我代码是否还有其他问题。

Dim temp%
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim str As String
Dim r As Integer
r = Cells(Rows.Count, 1).End(xlUp).row
str = Format(Now, "yyyymmdd") & Chr(13)
If KeyCode = vbKeyReturn Then
temp = KeyCode
With Sheets(str)
Cells(r + 1, 1) = TextBox2.Text
TextBox2.Text = ""
Cells(r + 1, 2) = ComboBox1.Text
Cells(r + 1, 3) = ComboBox2.Text
Cells(r + 1, 4) = ComboBox3.Text
Cells(r + 1, 5) = ComboBox4.Text
Cells(r + 1, 6) = ComboBox5.Text
Cells(r + 1, 7) = TextBox1.Text
TextBox2.SetFocus
End With
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If temp = 13 Then
temp = 0
Cancel = True
End If
End Sub

zhaogang1960 · 发表于 2012-6-25 15:52

请看附件

镭射唛跟踪记录.rar (17.95 KB, 下载次数: 32)

xubiao1982 · 发表于 2012-6-25 16:27

感恩!
學習了!

xubiao1982 · 发表于 2012-6-30 16:55

老師,您好!
又有一個問題:我每天第一次打開程序時會依當天的日期生成一個新表,但當我中途退出程序(退出excel),再打開時,新建的表格不能不為當前激活的表格,如此帶來的後果是通過程序介面填入的數據都在當前激活的表格裡.
也可以這樣描述:當我找開sheet("主介面")打開程序介面時,程序不能將之前新建的表格激活,如果開始用介面導入數據,數據將會被填在sheet("主介面")的單元格裡.
煩賜教!
感恩!

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

[求助] Textbox setfocus