自动跳转

追梦不停的人

请问，在B7：Z100单元格区域内能否做到输入一个字符后自动跳转到右侧的单元格中？如在B7单元格内输入1后光标自动选中C7单元格，谢谢！

ctp_119

设置即可，如图：

追梦不停的人

ctp_119 发表于 2012-9-7 13:19
设置即可，如图：

请问，能否在这个基础上作修改

Private  Sub TextBox1_Change()   '第二过程

Dim rng As Range

With Me.TextBox1

Set rng = .TopLeftCell        '设置单元格为文本输入框所在的单元格

If VBA.Len(.Value) = 1 Then  '这一行中是1就是要指定的位数

rng.Value = .Value         '选中当前单元格的下一个单元格

rng.Offset(1, 0).Select    '选中当前单元格的下一个单元格并激活第一过程

End If

End With

End Sub

Private Sub  Worksheet_SelectionChange(ByVal T As Range) '第一过程

If T.Column <> 1 Then Exit Sub  '仅A列有效

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

追梦不停的人

ctp_119 发表于 2012-9-7 13:19
设置即可，如图：

我用的是2010的，请问在哪里找呀？谢谢！

ctp_119

追梦不停的人 发表于 2012-9-7 13:26
我用的是2010的，请问在哪里找呀？谢谢！

在文件，选项里面吧！我没有用2010

追梦不停的人

附件已经上传

尽快尽快尽快后

追梦不停的人 发表于 2012-9-7 13:29
请问，能否在这个基础上作修改

来自十年之后的回复，我的方法是把（1，0）改为（0，1），把仅A列那行删掉。感谢你的分享