[已解决]请帮忙修改代码

liunumber12

我根据你们的一个帖子做了个自动打印模版，但是当我输入1至100是没问题的，当我输入任意数字到100时就无法实现自动打印功能，100到100以上是没问题的，请帮忙解决，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-3 10:48

我测试的是 99 到101，可打印呀。

跳转到最佳答案楼层

爱疯

Private Sub CommandButton1_Click()
    Dim i, x%, y%

    x = TextBox1
    y = TextBox2

    If x < y Then
        For i = x To y
            ActiveCell.FormulaR1C1 = i
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        Next
    End If
End Sub

模版2.rar (58.75 KB, 下载次数: 8)

2015-8-3 10:11 上传

点击文件名下载附件


原因：IF的条件，比较的是文本。比如，"99"<"100"返回false，所以没有循环（打印）。
解决：IF的条件，改成比较数字。

liunumber12

爱疯 发表于 2015-8-3 10:14
Private Sub CommandButton1_Click()
    Dim i, x%, y%

我试一下先，，谢谢！

liunumber12

爱疯 发表于 2015-8-3 10:14
Private Sub CommandButton1_Click()
    Dim i, x%, y%

好像不行，无法运行

爱疯

我测试的是 99 到101，可打印呀。

liunumber12

爱疯 发表于 2015-8-3 10:48
我测试的是 99 到101，可打印呀。

已经OK了，谢谢！