使用具有数字条件的自动保存

Question

如果满足不断发展的数字条件，我正在寻找一种在VBA中使用自动保存的方法。基本上，我正在循环一个名为＆＃39; input_row＆＃39;的变量。我想使用一个条件来测试该变量是否为25的倍数，例如：

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

鉴于我的代码因IE8问题而不断崩溃，正如所讨论的here，here确保现在自动保存然后看起来非常重要。目前，我在循环中的每次迭代后都保存，但工作正常，但整个过程的速度相当慢。

任何简单的＆＃39; if＆＃39;声明建议？

Answer 1

使用Mod功能测试您的号码是否为25的倍数：

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