[已解决]求助高手，修改指导一下打印后自动将编号加1的VBA

ibm003

具体VBA如下，在编辑时提示 Range("A3") = “No:" & I 错误，请问错误在哪里，应该怎么修改？还有个问题，我不需要输入起始编号，我想让他自动识别某个位置的编号进行加1的进程，打印次数的保留。

Sub pnt()
    Dim Num1, Num2, I As Integer
    Num1 = InputBox("请输入起始编号", "打印起始编号")
    Num2 = InputBox("请输入打印次数", "打印次数")
    With Sheets("sheet1")
        For I = Num1 To Num1 * 1 + Num2 * 1
            .Range("A3") = “No:" & I
            .PrintOut
        Next I
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

1032446692

2013-3-24 14:29

Sub pnt()
    Dim Num1, Num2, I As Integer
    Num1 = cells(1,1)
    cells(1,1)=num1+1
    Num2 = InputBox("请输入打印次数", "打印次数")
    With Sheets("sheet1")
        For I = Num1 To Num1 * 1 + Num2 * 1
            .Range("A3") = “No:" & I
            .PrintOut
        Next I
    End With
End Sub

跳转到最佳答案楼层

ibm003

怎么还没有人来啊

那么的帅

提供数据附件。

1032446692

经过调试发现   .Range("A3") = “No:" & I  NO前面的引号是中文的  改为英文的即可

1032446692

“我不需要输入起始编号，我想让他自动识别某个位置的编号进行加1的进程，打印次数的保留”  自动识别哪个位子的编号？  打印次数的保留，是什么意思？

1032446692

ibm003 发表于 2013-3-22 23:21
怎么还没有人来啊

没有人有义务  这个时候差不多该休息了

ibm003

1032446692 发表于 2013-3-23 08:28
“我不需要输入起始编号，我想让他自动识别某个位置的编号进行加1的进程，打印次数的保留”  自动识别哪个位 ...

你好，这个是别人做的VBA，我想在这个的基础上修改成自己需要的。我的意思是让这个VBA自动获取我A1的编号，打印时进行加1并保存这个加1后的编号。

1032446692

Sub pnt()
    Dim Num1, Num2, I As Integer
    Num1 = cells(1,1)
    cells(1,1)=num1+1
    Num2 = InputBox("请输入打印次数", "打印次数")
    With Sheets("sheet1")
        For I = Num1 To Num1 * 1 + Num2 * 1
            .Range("A3") = “No:" & I
            .PrintOut
        Next I
    End With
End Sub

1032446692

不知道你想表达的是不是这个意思