Excel07如何输入完一个字符后自动下跳到下一格
因为有大量统计输入,要在Excel输入完两个字符后自动下跳到下一格,参考了其他网友的方法,使用VBA可实现。第一张图片是网友的模板的程序,可以正常运行,第二张图片是自己新...
因为有大量统计输入,要在Excel输入完两个字符后自动下跳到下一格,参考了其他网友的方法,使用VBA可实现。第一张图片是网友的模板的程序,可以正常运行,第二张图片是自己新建excel后拷贝进去的程序。无法运行,对比后发现如图中红框所示,我自己新建的excel中没有TextBox1这个选项,请问各位大神该怎么解决。(我的Excel是07版的)
另附程序:
Option Explicit
Private Sub TextBox1_Change()
Dim rng As Range
With Me.TextBox1
Set rng = .TopLeftCell
If VBA.Len(.Value) = 2 Then
rng.Value = .Value
rng.Offset(1).Select
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 1 Then Exit Sub
With Me.TextBox1
.Activate
.Text = ""
.Left = T.Left
.Top = T.Top
.Width = T.Width
.Height = T.Height
End With
End Sub 展开
另附程序:
Option Explicit
Private Sub TextBox1_Change()
Dim rng As Range
With Me.TextBox1
Set rng = .TopLeftCell
If VBA.Len(.Value) = 2 Then
rng.Value = .Value
rng.Offset(1).Select
End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 1 Then Exit Sub
With Me.TextBox1
.Activate
.Text = ""
.Left = T.Left
.Top = T.Top
.Width = T.Width
.Height = T.Height
End With
End Sub 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |