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

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

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页