选项 文本框在工作表中
您可以通过在Workbook_Open
代码中进行设置来实现所需的功能。更改Sheet1
为文本框所在的工作表。
Option Explicit
Private Sub Workbook_Open()
With Sheets("Sheet1")
.TextBox1.Activate
DoEvents
.TextBox1.SelStart = 0
End With
End Sub
选项B 文本框位于用户窗体中
使用UserForm_Initialize
活动
Option Explicit
Private Sub UserForm_Initialize()
'TextBox1.Text = [a1].Value ' For testing
TextBox1.SetFocus: DoEvents: TextBox1.SelStart = 0
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句