作者:乔山办公网日期:
返回目录:excel表格制作
向窗体添加一个 TextBox1 和一个 CommandButton1,然后粘zd贴以下专代码:属
Option Explicit
Private Sub CommandButton1_Enter()
Me.Caption = "按钮获得焦点"
End Sub
Private Sub CommandButton1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.Caption = "按钮失去焦点"
End Sub
Private Sub UserForm_Initialize()
TextBox1.TabIndex = 0
End Sub
F5 运行效果如下:
forms("userform1").textbox1.setfocus
强制让焦点回到这个窗体的一个object上
1.建立窗体,如UserForm1
2.在窗体上构知建两个控件,一个是TextBox1(文本框控件),第二个是CommandButton1(按钮控件)
3.加入下面给你写的代码
Private Sub CommandButton1_Click()
Dim Str As String '创建变量作为文道本框的字串
Str = "123456"
Me.TextBox1.Text = Str '设置内文本框的文本
Me.TextBox1.SetFocus '不知道你容知道这些不,只管解释了一下,这里是设置焦点
Me.TextBox1.SelStart = Len(Me.TextBox1.Text) - 3'计算文本长度并设置光标位置
End Sub
截图看下,什么样的?
可以选中某个单元格,这样,焦点不是移到表格里了吗?