excel vba 如何让工作表textbox回车后失去焦点

如题所述

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then '判断按下的键是否为回车
ActiveCell = TextBox1.Value '给活动单元格赋值
ActiveCell.Select '选中活动单元格
End If
End Sub

PS:不同版本的excel可能略有区别,自己对照帮助做相应修改.
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-06-13
mouselevel事件

excel vba 如何让工作表textbox回车后失去焦点
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)If KeyCode = 13 Then '判断按下的键是否为回车 ActiveCell = TextBox1.Value '给活动单元格赋值 ActiveCell.Select '选中活动单元格 End If End Sub PS:不同版本的excel可能略有区别,自己对照帮助做...

Excel VBA执行打印命令后 窗体失去焦点。
forms("userform1").textbox1.setfocus 强制让焦点回到这个窗体的一个object上

excel vba 输入text1后回车光标自动跳到text2后光标自动跳回text1,如何...
回答:下载文件:Book1_20130918100402.xls|给你一个例子: 在窗体的在text1输入任意字符,数量等于6个或按回车键,就自动把焦点切换到text2,并清空.在text2输入任意字符,只要等于4个或按回车键,就自动切换回text1,并清空.

excel vba 求大神指点下,为什么双击单元格,返回textbox1焦点错误?
别用sheet上的文本框。去窗体上画吧,那个才能用你的方法。sheet上的文本框就算获得焦点也立即丢失了。不信你试试 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Sheets("Sheet1").Select ActiveSheet.Shapes("TextBox1").OLEFormat.Activate End Sub 这个我尝试的...

excel中vba中textbox无法获得焦点?
exit 事件是焦点将要失去时触发,个人建议可以换个事件,比如keyup、keypress等按键事件,来解决,

关于vba动态控制的textbox_exit解决方法
关于vba动态控制的textbox_exit解决方法如下,首先在需要在主页面的一个路障选择打开,简单的用户表单使用三个文本框,一个用于用户id,两个用于使用手持扫描仪输入序列号。用户加载excel文件,userform.show加载,用户输入id然后简单验证以验证数字,然后焦点设置在第一个文本框上,用户扫描条形码以输入序列号...

Excel的vba窗体TextBox中,如何删除末尾指定字符串?
做一个按钮,输入下面代码即可 Dim i As Integer Dim strtemp As String strtemp = Me.TextBox1 i = InStr(1, strtemp, "@")If i > 0 Then strtemp = Left(strtemp, i - 1)TextBox1 = strtemp End If

excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或 ...
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)If Not IsNumeric(TextBox1) Then MsgBox "不是数字!"Cancel = True End If End Sub Private Sub CommandButton1_Click()Dim i As Double i = Format(Replace(TextBox1.Value, "。", "."), "0.00")Sheet2.Range...

excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或 ...
在Excel VBA中,我们需要确保TEXTBOX1控件只能输入数字,任何非数字字符都会触发错误提示。以下代码片段实现了这一功能:当用户尝试在TextBox1中输入非数字字符时,如汉字或字母,Private Sub TextBox1_BeforeUpdate事件会触发。这段代码会检查输入内容是否为数字,如果不是,它会弹出一个提示框显示"不是...

...并将焦点转移到数据旁的文本框textbox2.text中?
应该是textbox2.setfocus这个 不过不知道你是否把这个语句放到item的change事件(或类似的事件)响应过程里了 只有放在事件响应过程里才可以

相似回答