Question

当前，我有一个用于Excel工作表的重置按钮，该按钮将清除除我拥有的公式之外的所有内容。有没有一种方法可以动态计算我“按下”重置按钮并清除内容的次数？

Answer 1

这个..

Public countR As Long
Sub Alternative1() 'This will return to 0 when you close the workbook
    countR = countR + 1
    MsgBox "The document has been cleared " & countR & " time(s)"
End Sub

或..

Sub Alternative2()
    Dim rng As Range
    Set rng = Range("A1") 'Change to some cell that isn't cleared by your code
    rng.Value = rng.Value + 1
End Sub

然后给他们打电话。

Sub WhatYourCodeMaybeLooksLike()
    Range("B1:C100").ClearContents
    Alternative1
    Alternative2
End Sub

Answer 2

上面的reportgunner的评论是正确的，但是如果您要使用VBA选项，请查看模块级别的变量。

Public x As Integer Sub Button1_Click() x = x + 1 MsgBox x End Sub

x在您打开工作簿时将以0开头，在这种情况下，每次单击Button1时都会递增。

静态变量略有不同，您可以在过程中使用代码进行声明。两者都可以在VBA中正常工作。

如果您的代码在调试期间遇到错误，则该变量通常会重置。因此，如果您不想丢失数字，最好使用单元格选项。

我可以动态计算重置Excel工作表的次数吗？

2 个答案: