求助:EXCEL依次输入数字,确认,并自动打印的程序或者VBA
发布网友
发布时间：2022-05-26 11:46
共3个回答
热心网友
时间：2023-10-15 14:23
Sub tt()
down = Sheet4.Cells(Rows.Count, 9).End(3).Row - 1
If Range("F36") <> "" And Range("F37") <> "" Then
If Range("F36") > down Or Range("F37") > down Then
a = "入住明细序号-最大值为" & down & ",您输入有误，请重新输入-_-。sorry！"
MsgBox a
GoTo 1
ElseIf Range("F36") > Range("F37") Then
a = "起始数不能大于完结数！请更正-_-。sorry！"
MsgBox a
GoTo 1
End If
start01 = Range("f36")
end01 = Range("f37")
Else
start01 = 1: end01 = down
End If
For k = start01 To end01
Range("F27") = k
If Range("e28") = 0 Then
Range("a1:h34").PrintOut Copies:=1
End If
Next
1:
End Sub
已完成修改！多送一些判断，如图！文档已回传到邮箱！
热心网友
时间：2023-10-15 14:24
这个我可以帮你做 不过你要注意下面几点
你的原文件如果不方便发给我的话，我只能写代码给你 你复制后自己完成。
我只能简单的测试下代码的可用性，至于是否符合你的要求，你需要自己测试之后再投入使用。
你现存工作表中的公式计算量如果太大（计算时间大于VBA代码执行时间）的话，有可能会照成数据错误，对此建议你先禁用工作表的自动计算 在VBA代码中加入计算语句。
对于可能照成的不良后果须有心里准备，我不承担你因使用我写的代码照成的损失。（虽然不会有什么问题）。
确定使用VBA帮你完成，请追问。
追答
我就不下载了，我直接上传一个写好的工作簿给你，你按照要求复制到你的工作簿中，如果有什么问题可以再联系我。
热心网友
时间：2023-10-15 14:24
