从单元格中获取值并将其用作宏中自动增量的最大值

从单元格中获取值并将其用作宏中自动增量的最大值

单元格 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)

相关内容