excel表格打印箱号标签,怎么自动改箱号码?

发布网友 发布时间：2022-04-26 07:06

我来回答

共5个回答

热心网友 时间：2022-06-25 01:58

可以使用代码来自动打印，指定起止编号和打印区域(代码中可修改)，执行程序完成全部打印。

Sub Prnt()

    Dim StatNo As Long, EndNo As Long, Cnt As Long

    Dim i As Integer

    Dim S As String

    Dim Aradrs As Range

    StatNo = 1

    EndNo = 20

    Aradrs = "$A$1:$B$8"

    Cnt = StatNo

    For i = StatNo To EndNo

        S = StatNo & "/" & EndNo & "（第" & Cnt & "箱，共" & EndNo & "箱）"

        Cnt = Cnt + 1

        With Sheets("Sheet1")

            .Range("B4") = S

            .PageSetup.PrintArea = Aradrs

            .PrintOut

        End With

    Next

End Sub

热心网友 时间：2022-06-25 01:58

如果是用excel就比较好办。

一种方法是，用公式，可以根据行号进行加减乘除运算，直接修改数据，前提是你的单元格数据间隔行数需要是相等的，那么就可以根据行号进行加减和乘除运算即可得到当前的数据是什么样的。
如果是只有一个表，点一下打印一次，则需要代码，其实前边已有答主解答了代码，可以试用一下他的代码。如果对代码一点不懂，可能需要视频教程或者远程指导。这个就不是在这里就能回答得清楚的了，可以直接私信我或者其他答主。
公式可以，代码更强，关键看你想要怎么处理，具体的表格是怎么打印的。 如果是几千张，你是填充100个这样的格式表直接按打印直接出标签呢？ 还是只有一个打印几千份呢？ 这些方法都不一样，要根据实际情况采取不同的方案。
如果是前者则用公式法，用row得到行号，根据间隔计算出来当前行是第几行，用公式直接生成 。
如果是一次打印几千份，建议用代码输出打印，不要直接用打印机输出打印，每次打印前数字+1，写入相应位置即可。

热心网友 时间：2022-06-25 01:58

建议：在WORD中将标签做成模板，在EXCEL中录入数据，应用WORD的邮件合并功能与EXCEL联合起来轻松制做标签。

热心网友 时间：2022-06-25 01:59

要编写个程序，打印时，自动根据打印张数，依次修改，递增数量 [偷笑]

热心网友 时间：2022-06-25 02:00

是不是除了箱号不一样，其他数据全部一样？
如果是的话，先做好2个或者3个，然后选中做好的，右下角十字光标，往下拉。