VBA：哪些代码对于取消隐藏床单更有效？

Question

我试图更好地了解VBA，并确保尽可能提高我的代码效率，即使它是一个微小的差异。

下面我有两个工作程序，可以取消隐藏工作簿中的Sheets 4和更高版本。这两种方法看起来都非常简单，但我很好奇哪一种方法从流程的角度来看更有效，如果可能的话，你能解释为什么一种优于另一种吗？

For i = 4 To Worksheets.Count
    ActiveWorkbook.Worksheets(i).Visible = True
Next

VS

For Each ws In ActiveWorkbook.Worksheets
    If ws.Index > 3 Then
        ws.Visible = xlSheetVisible
    End If
Next

Answer 1

您是否尝试过计时以查看哪种更快？一个简单的计时器如下：

Dim a as Double, b as Double

a = Timer

‘Your code goes in here

b = Timer

msgbox b - a