☰

Excel 打开文档时计数到单元格中的下一个数字

tag-icon • tag-icon microsoft-excel
Excel 打开文档时计数到单元格中的下一个数字

我正在尝试制作一个 Excel 文档，每次打开文档时都会计算单元格中的下一个数字。有办法吗？我将不胜感激任何帮助。

答案1

您需要一个事件来触发计数过程。据我所知，这只能通过 VBA 来实现。但这并不难。

  1. 使用 ALT+F11 打开 Excel 和 VBA 编辑器

  2. 将此代码放在本工作簿

    Private Sub Workbook_Open()
    Sheets(1).[A1] = Sheets(1).[A1] + 1
End Sub

每次打开工作簿时，它都会在第一张工作表的 A1 单元格中计数。

仅供极客使用。甚至可以在 VBA 代码中隐藏计数器。将此代码放在本工作簿看看重新打开工作簿后会发生什么。

Const counter = 1

Private Sub Workbook_Open()
    countUP = Mid(ActiveWorkbook.VBProject.VBComponents(1).CodeModule.Lines(1, 1), 17) + 1
    Application.VBE.CodePanes(1).CodeModule.ReplaceLine 1, "Const counter = " & countUP
End Sub

相关内容