使用带有数值条件的autosave

Question

如果满足不断发展的数值条件，我正在寻找一种在VBA中使用自动保存的方法。基本上，我正在遍历一个名为“input_row”的变量，我希望使用一个条件来测试该变量是否为25的倍数--例如：

If input_row = (random integer) * 25 Then
ActiveWorkbook.AutoSave
End If 

考虑到我的代码由于IE8的问题而不断崩溃，正如here所讨论的那样，确保不时自动保存看起来非常重要。目前，在循环中的每一次迭代之后，我都在进行保存，这样可以很好地工作，但会在相当大程度上减慢整个过程。

有什么简单的“如果”声明建议吗？

Answer 1

使用Mod函数测试您的数字是否为25的倍数：

If input_row Mod 25 = 0 Then
    'input_row is a multiple of 25
End If