excel某个单元格同步显示打开工作薄的次数的代码怎么写?

发布网友发布时间：2024-01-23 15:01

共2个回答

热心网友时间：2024-02-10 10:15

在工程管理器里面的 thisworkbook 里面插入代码：

Private Sub Workbook_Open() '每次打开这个工作簿都执行以下代码
range("a1").value = 1 +range("a1").value 'A1的数字每次打开都自动加 1
activeworkbook.save '保存表格，将A1的值进行保存
End Sub

因为如果不保存的话，表格是无法将A1的变化的内容进行存储的，既然要在每次打开之后就实现A1数字加1，那么就直接用代码实现，并进行保存

1楼的代码好用，直接将变量存储在注册表里面，用1楼的代码吧

热心网友时间：2024-02-10 10:16

Private Sub Workbook_Open()
coun = GetSetting("myapp", "startup", "ssss", 1)
Worksheets(1).Range("a1") = coun & "次"
coun = coun + 1
SaveSetting "myapp", "startup", "ssss", coun
End Sub