求助：EXCEL依次输入数字，确认，并自动打印的程序或者VBA

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

已完成修改！多送一些判断，如图！文档已回传到邮箱！

这个我可以帮你做 不过你要注意下面几点

1. 你的原文件如果不方便发给我的话，我只能写代码给你  你复制后自己完成。

2. 我只能简单的测试下代码的可用性，至于是否符合你的要求，你需要自己测试之后再投入使用。

3. 你现存工作表中的公式计算量如果太大（计算时间大于VBA代码执行时间）的话，有可能会照成数据错误，对此建议你先禁用工作表的自动计算  在VBA代码中加入计算语句。

   
   

4. 对于可能照成的不良后果须有心里准备，我不承担你因使用我写的代码照成的损失。（虽然不会有什么问题）。

5. 确定使用VBA帮你完成，请追问。
   

   
   

这问题不可能有人回答你，让人帮写VBA既然只给10分，你可知道写完这代码包测试完得多少时间？没100分不可能帮你写。