![从单元格中获取值并将其用作宏中自动增量的最大值](https://linux22.com/image/1503845/%E4%BB%8E%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%AD%E8%8E%B7%E5%8F%96%E5%80%BC%E5%B9%B6%E5%B0%86%E5%85%B6%E7%94%A8%E4%BD%9C%E5%AE%8F%E4%B8%AD%E8%87%AA%E5%8A%A8%E5%A2%9E%E9%87%8F%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC.png)
单元格 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)