Excel循环换行

最新推荐文章于 2023-10-31 18:05:19 发布

piao3701

最新推荐文章于 2023-10-31 18:05:19 发布

阅读量232

点赞数

分类专栏： VBA

本文链接：https://blog.youkuaiyun.com/piao3701/article/details/118788276

版权

VBA 专栏收录该内容

9 篇文章

订阅专栏

'在每一行的前五列单元格中填写数值，当列号为5时，下一个单元格跳到下一行A列，
Dim endColumnNum As Integer, firstColumnNum As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim temp As Variant
    temp = InputBox("请输入：")
    If StrPtr(temp) = 0 Then
        MsgBox "输入结束！"
        Application.EnableEvents = False
    Else
        Cells(Target.Row, Target.Column) = temp
        If Target.Column >= firstColumnNum And Target.Column < endColumnNum Then
            Target.Offset(0, 1).Select
        Else
            Target.Offset(1, -1 * (endColumnNum - firstColumnNum)).Select
        End If
    End If
End Sub
Sub 开始录入()
    Application.EnableEvents = True
End Sub
Sub 参数设置()
    firstColumnNum = Application.InputBox("请点击第一个单元格：", "参数设置", Type:=8).Column
    endColumnNum = Application.InputBox("请点击最后一个单元格：", "参数设置", Type:=8).Column
End Sub