如题所述
Private Sub TextBox1_Change()
Dim L&, i%, str$, arr(), StrL&
On Error Resume Next
L = TextBox1.Font.Size
str = TextBox1.Text
For i = 1 To Len(str)
ReDim Preserve arr(i - 1)
If Asc(Mid(str, i, 1)) < 0 Then
arr(i - 1) = L * 2 * 0.6
Else
arr(i - 1) = L * 1 * 0.6
End If
Next
StrL = Application.Sum(arr())
If StrL >= TextBox1.Width Then
TextBox2.SetFocus
End If
End Sub 追问
Dim L&, i%, str$, arr(), StrL&
On Error Resume Next
L = TextBox1.Font.Size
str = TextBox1.Text
For i = 1 To Len(str)
ReDim Preserve arr(i - 1)
If Asc(Mid(str, i, 1)) < 0 Then
arr(i - 1) = L * 2 * 0.6
Else
arr(i - 1) = L * 1 * 0.6
End If
Next
StrL = Application.Sum(arr())
If StrL >= TextBox1.Width Then
TextBox2.SetFocus
End If
End Sub
最基本的常识,你没有启用宏
追问老师,你好!你写的VBA在word2003里实现不了。
怎样启用宏?
追答这个是excel窗体调试的代码。
你题目中没有说明是word还是excel,更没有说明textbox是表单控件还是窗体控件。
之后问问题要祥尽些。
至于你提到的问题,应该不是word 与 excel 的问题,应该是后者,表单与窗体的问题。
如果是表单控件,那么在textbox之前必须加上主体对象,如:
sheet1.textbox1
是我没说明清楚。是在Word2003文档中用控件添加的两个文本框。
老师谢谢!不是表单哦。
请老师继续给个解答。谢谢您!
就是在word空白文档中用控件制作两个和文本框TextBox1和TextBox2用VBA实现两文本框自动链接,1文本框中写满后光标自动到2文本桩。
温馨提示:答案为网友推荐,仅供参考