[已解决]请教老师，如何设置每次打印后编号自动+3，请知道的老师帮忙看看，万分感谢！

ibm003

Sub pnt()
    Dim Num1 As Long, Num2, I As Long
    Num1 = Sheets("1").Range("A3") + 3
    Num2 = InputBox("请输入打印次数", "打印次数")
    With Sheets("1")
        For I = Num1 To Num1 + Num2 - 1
            .Range("A3") = I
            .PrintOut
        Next I
    End With
End Sub

上面的只能第一次打印+3，如果打印次数输入2，就只有第一次是+3，第二次是+1，我想实现的是，每次+3，打印次数输入2次，就应该是+6，麻烦知道的老师帮忙解决一下，万分感谢，附件我也传上来了。

测试.rar (8.14 KB, 下载次数: 1)

2022-12-23 17:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-12-23 20:28

没用过打印，你试试
Sub test()
    Dim num As Long
    num = InputBox("请输入打印次数", "打印次数")
    With Sheets("1")
        For i = 1 To num
            .Range("A3").Value = Range("A3").Value + 3
            .PrintOut
        Next i
    End With
End Sub

跳转到最佳答案楼层

哥儿-

没用过打印，你试试
Sub test()
    Dim num As Long
    num = InputBox("请输入打印次数", "打印次数")
    With Sheets("1")
        For i = 1 To num
            .Range("A3").Value = Range("A3").Value + 3
            .PrintOut
        Next i
    End With
End Sub

ibm003

哥儿- 发表于 2022-12-23 20:28
没用过打印，你试试
Sub test()
    Dim num As Long

老师，经过测试，你的这个可以完美实现，非常感谢！

ibm003

哥儿- 发表于 2022-12-23 20:28
没用过打印，你试试
Sub test()
    Dim num As Long

老师你好，再请教你一个问题，我之前是用的是每次加3，现在想改为每次打印后随机加上1-5之间的数值，用了
RandBetween，提示语法错误，麻烦老师再帮我看看。

Sub test()
    Dim num As Long
    num = InputBox("请输入打印次数", "打印次数")
    With Sheets("1")
        For I = 1 To num
            .Range("A3").Value = Range("A3").Value + RandBetween(1, 5)
            .PrintOut
        Next I
    End With
End Sub

哥儿-

工作表函数要加红色的部分内容。.Range("A3").Value = Range("A3").Value + worksheetfunction.RandBetween(1, 5)