Excel VBA技巧：自动统计打开工作簿的次数

excelperfect

标签：VBA

你想知道某个工作簿被打开的次数吗？VBA可以帮助你实现。

按Alt+F11组合键，或者单击功能区“开发工具”选项卡“代码”组中的“Visual Basic”命令，打开VBE编辑器。

双击左侧“工程资源管理器”中的“ThisWorkbook”代码模块，在右侧的代码窗口中，从其顶部左侧的下拉列表中选择“Workbook”，此时，Excel会自动插入一段代码：

Private Sub Workbook_Open()

End Sub

在其中输入下面的代码如下：

Private Sub Workbook_Open() With Worksheets('Sheet1') .Range('A1') = .Range('A1') + 1 End WithEnd Sub

然而，再次从代码窗口顶部左侧下拉列表中选择“Workbook”，从右侧下拉列表中选择“BeforeClose”，Excel自动插入代码段：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

在其中输入代码如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)  ThisWorkbook.SaveEnd Sub

这样，每次你打开这个工作簿，Excel都会将工作表Sheet1的单元格A1中的值加上1，这也是打开这个工作簿的次数。

有时候，使用VBA实现想法真的很简单！