单元格 C13 在打印时自动递增 1。我仅使用单元格 C13 来自动递增,但我的单元格 E13 = 具有来自 Sheet 3 的链接值。我想在以下 VBA 中将 E13 值设置为 C13 的最大增量:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Long
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Sheet3")
For i = 1 To .Range("B22").Value
.Range("C13").Value = .Range("C13").Value + 1
.PrintOut
Next i
End With
Application.EnableEvents = True
End Sub
编辑了源和单元格名称。问题是宏在 Sheet3 上运行时出现调试器错误 9。
答案1
为了防止 A15 中的值超出范围,请修改您的添加内容:
.Range("A4").Value = Min(.Range("A4").Value + 1, .Range("A15").Value)