输入函数按回车会跳到下个单元格（只输入一个字符就自动跳到下一个单元格）

Excel单元格特定区域，只输入一个字符，就自动跳到下一个单元格，再输入下一个一个字符；这样做方便快捷，只是需要另存为*.xlsm启用宏的工作簿文件；，下面我们就来聊聊关于输入函数按回车会跳到下个单元格?接下来我们就一起去了解一下吧!

输入函数按回车会跳到下个单元格

Excel单元格特定区域，只输入一个字符，就自动跳到下一个单元格，再输入下一个一个字符；这样做方便快捷，只是需要另存为*.xlsm启用宏的工作簿文件；

具体做法如下：

Office--Excel 调用VBA功能，选择文件---选项---自定义功能区，勾选开发工具，点击确定；回到Excel页面，选择开发工具---插入，在ActiveX控件中选择添加一个文本框，TextBox1 无需改名；再添加一个复选框CheckBox1，无需改名，添加复选框为的是，如果勾选，则只输入一个字符有效，不勾选则无效！添加控件后，鼠标右键选择属性，将文本框、复选框的属性做如下修改：

TextBox1.BackColor = &H00C0FFFF& '''' 浅黄色；

TextBox1.BorderStyle = 1-fmBorderStyleSingle ‘’‘ 取消 3-D模式；

CheckBox1.Caption = “金额数字区域，只输入一个字符。”；

Excel操作要求：

勾选“金额数字区域，只输入一个字符。”；再按二次【回车键】，开始输入数字字符，每个单元格只输入一个数字字符，即自动跳到下一个单元格；一组数字输入结束后，数字前自动添加人民币元的符号“￥”。不按回车会出错！

打开VBA编辑器，左侧区域选择 "Sheet1（Sheet1）"，双击打开编辑输入 VBA 代码如下：

Dim Ti As Long

Dim xR As Long, xC As Long

Dim Fen As String

Dim tR As Long, tC As Long

'''''' ********************* ''''''

Private Sub CheckBox1_Click()

If CheckBox1.Value = 1 Then

TextBox1.Visible = True

ElseIf CheckBox1.Value = 0 Then

TextBox1.Visible = False

End If

End Sub

'''' 本方案特别适用于会计做账用；

Private Sub TextBox1_Change()

If Len(Me.TextBox1.Text) <> 1 Then Exit Sub '''' 输入一个字符就转到下一个单元格

Me.TextBox1.Activate

ActiveCell = Me.TextBox1.Text

’‘’‘ 添加人民币符号！

Fen = Sheets("Sheet1").Cells(3, xC).Text

Sheets("Sheet1").Range("AO1").Value = Fen

If Fen = "分" Then Sheets("Sheet1").Cells(tR, tC).Value = "￥"

Me.TextBox1.Text = ""

Me.TextBox1.Activate

ActiveCell.Activate

Application.SendKeys "~"

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

'''' 多个字符输入完毕，按下回车键，自动完成一个字符占一个单元格；

If KeyCode = 13 Then '''' 按回车记录输入这组数字的开始位置。

Ti = 0

Sheets("Sheet1").Range("AM1").Value = xR

Sheets("Sheet1").Range("AN1").Value = xC

tR = xR

tC = xC

End If

If KeyCode = vbKeyReturn Then

Ti = Val(Ti) 1

Sheets("Sheet1").Cells(xR, xC Ti - 1).Select

Me.TextBox1.Text = ""

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

xC = Target.Column

xR = Target.Row

If CheckBox1.Value = True Then

'''' 定义只输入一个字符的区域。

If Target.Row >= 4 And Target.Column >= 5 And Target.Column < 27 Or Target.Column > 27 And Target.Column < 40 Then '''' 输入一个字符就转到下一个单元格的范围。

With TextBox1

.Left = ActiveCell.Left

.Top = ActiveCell.Top

.Width = ActiveCell.Width

.Height = ActiveCell.Height

End With

'''' 文本框获得焦点，即时输入即可。

Me.TextBox1.Activate

Me.TextBox1.SelStart = 0

Me.TextBox1.SelLength = 1

End If

End If

End Sub

,