UC知道EXCEL 求助高手帮忙
来源：百度知道 编辑：UC知道 时间：2024/05/25 23:43:29
我想在初始值和 终止值里 输入一组数据 比如 1-100
那么我通过某种设置要菱形的数据里，显示 1 2 然后自动打印
打印之后 菱形里的数据自动改为 3-4 然后自动打印
一直到 99-100 然后打印 然后停止
其中第二个菱形的数据（2.4.6.8.10） 会自动检测是否超出 终止值100 如果没有超出则停止数值增加，并停止打印，如果 没有超过 100 那么继续 （*+1）后继续打印
因为每张A4纸只能打印 2份菱形标签， 故 终止值 除以 2 为打印次数，
故其最终要求为：
打印次数为 终止值的一半 （奇数不考虑）如 100 则打印50次，如99 则不考虑，因为可以人为的设置为100 最多就多打印一张了。无所谓……
菱形数字 为 N+1 顺序增加，知道超出MAX =终止值为止
并停止打印
看到网上很多分享 OFFICE教程的，不知道 有没有高手能帮我搞定呢？
按照步骤操作，显示 编译错误，无效外部过程 请给详细步骤，另附：起始值和终止值 与菱形框 也可在不同的 sheet 表里，无所谓 只要能 正常打印即可， 人工改数字，容易遗漏还麻烦 谢谢各位高手了！！！
那么我通过某种设置要菱形的数据里，显示 1 2 然后自动打印
打印之后 菱形里的数据自动改为 3-4 然后自动打印
一直到 99-100 然后打印 然后停止
其中第二个菱形的数据（2.4.6.8.10） 会自动检测是否超出 终止值100 如果没有超出则停止数值增加，并停止打印，如果 没有超过 100 那么继续 （*+1）后继续打印
因为每张A4纸只能打印 2份菱形标签， 故 终止值 除以 2 为打印次数，
故其最终要求为：
打印次数为 终止值的一半 （奇数不考虑）如 100 则打印50次，如99 则不考虑，因为可以人为的设置为100 最多就多打印一张了。无所谓……
菱形数字 为 N+1 顺序增加，知道超出MAX =终止值为止
并停止打印
看到网上很多分享 OFFICE教程的，不知道 有没有高手能帮我搞定呢？
按照步骤操作，显示 编译错误，无效外部过程 请给详细步骤，另附：起始值和终止值 与菱形框 也可在不同的 sheet 表里，无所谓 只要能 正常打印即可， 人工改数字，容易遗漏还麻烦 谢谢各位高手了！！！
按alt+F11,alt+I+M,把下面的代码复制过去.
sub p()
for i=range("b4") to range("c4")/2
range("h7")=(i-1)*2+1
range("h16")=range("h7")+1
range("e1:k21").printout
next
end sub
F5运行上面的宏
子易空间站 - Excel培训专家
只能用宏来实现,请按ALT+F11，进入VBA编辑窗口，点菜单“插入”-“模块”
将下面的代码复制进去.关闭VBA窗口，回到表格。
要打印时，在表格中输入开始值， 按ALT+F8打开宏对话框窗口，选中“打印标签”，运行宏，就开始打印了。
SUB 打印标签()
dim i
i=val(ActiveSheet.Range("B4"))
do while i<val(ActiveSheet.Range("C4"))
ActiveSheet.Range("H7")=i
ActiveSheet.Range("H16")=i+1
ActiveSheet.Range("E1:K21").PrintOut copies:=1, collate:=True
i=i+2
Loop
MsgBox "打印完成!"
End Sub