Question

我的工作簿非常慢，而且我试图让它更快。

如果我在数字公式中使用布尔值，它会提高速度吗？

例如，我有这样的事情：

=offset(A1, if(month(b1)>6, 4 + month(b1), 2 + month(b1)), 0)

相反，我考虑使用它：

=offset(A1, month(b1) + 2 + 2 * (month(b1)>6), 0)

Answer 1

如果您正在运行Excel for Windows，并且需要测量Excel计算时间以进行比较，请从Microsoft Developer Network中的文章中考虑这个功能强大的代码。这将有助于您比较上述两个公式以及将来可能具有的任何公式。请跟随：

要在功能区中包含开发人员工具：

打开Excel - ＆gt;档案 - ＆gt;选项 - ＆gt;自定义功能区 - ＆gt;自定义功能区（下拉列表） - ＆gt;主要标签 - ＆gt;开发人员（勾选复选框） - ＆gt;确定

访问VBA编辑器：

开发人员标签 - ＆gt; Visual Basic - ＆gt;插入模块 - ＆gt;粘贴找到的代码下面进入VBA编辑器

#If VBA7 Then
    Private Declare PtrSafe Function getFrequency Lib "kernel32" Alias _
        "QueryPerformanceFrequency" (cyFrequency As Currency) As Long
    Private Declare PtrSafe Function getTickCount Lib "kernel32" Alias _
         "QueryPerformanceCounter" (cyTickCount As Currency) As Long
#Else
    Private Declare Function getFrequency Lib "kernel32" Alias _                                            "QueryPerformanceFrequency" (cyFrequency As Currency) As Long
    Private Declare Function getTickCount Lib "kernel32" Alias _
        "QueryPerformanceCounter" (cyTickCount As Currency) As Long
#End If
Function MicroTimer() As Double
'

' Returns seconds.
    Dim cyTicks1 As Currency
    Static cyFrequency As Currency
    '
    MicroTimer = 0

' Get frequency.
    If cyFrequency = 0 Then getFrequency cyFrequency

' Get ticks.
    getTickCount cyTicks1                            

' Seconds
    If cyFrequency Then MicroTimer = cyTicks1 / cyFrequency 
End Function


Sub RangeTimer()
    DoCalcTimer 1
End Sub
Sub SheetTimer()
    DoCalcTimer 2
End Sub
Sub RecalcTimer()
    DoCalcTimer 3
End Sub
Sub FullcalcTimer()
    DoCalcTimer 4
End Sub

Sub DoCalcTimer(jMethod As Long)
    Dim dTime As Double
    Dim dOvhd As Double
    Dim oRng As Range
    Dim oCell As Range
    Dim oArrRange As Range
    Dim sCalcType As String
    Dim lCalcSave As Long
    Dim bIterSave As Boolean
    '
    On Error GoTo Errhandl

' Initialize
    dTime = MicroTimer              

    ' Save calculation settings.
    lCalcSave = Application.Calculation
    bIterSave = Application.Iteration
    If Application.Calculation <> xlCalculationManual Then
        Application.Calculation = xlCalculationManual
    End If
    Select Case jMethod
    Case 1

        ' Switch off iteration.

        If Application.Iteration <> False Then
            Application.Iteration = False
        End if

        ' Max is used range.

        If Selection.Count > 1000 Then
            Set oRng = Intersect(Selection, Selection.Parent.UsedRange)
        Else
            Set oRng = Selection
        End If

        ' Include array cells outside selection.

        For Each oCell In oRng
            If oCell.HasArray Then
                If oArrRange Is Nothing Then 
                    Set oArrRange = oCell.CurrentArray
                End If
                If Intersect(oCell, oArrRange) Is Nothing Then
                    Set oArrRange = oCell.CurrentArray
                    Set oRng = Union(oRng, oArrRange)
                End If
            End If
        Next oCell

        sCalcType = "Calculate " & CStr(oRng.Count) & _
            " Cell(s) in Selected Range: "
    Case 2
        sCalcType = "Recalculate Sheet " & ActiveSheet.Name & ": "
    Case 3
        sCalcType = "Recalculate open workbooks: "
    Case 4
        sCalcType = "Full Calculate open workbooks: "
    End Select

' Get start time.
    dTime = MicroTimer
    Select Case jMethod
    Case 1
        If Val(Application.Version) >= 12 Then
            oRng.CalculateRowMajorOrder
        Else
            oRng.Calculate
        End If
    Case 2
        ActiveSheet.Calculate
    Case 3
        Application.Calculate
    Case 4
        Application.CalculateFull
    End Select

' Calculate duration.
    dTime = MicroTimer - dTime
    On Error GoTo 0

    dTime = Round(dTime, 5)
    MsgBox sCalcType & " " & CStr(dTime) & " Seconds", _
        vbOKOnly + vbInformation, "CalcTimer"

Finish:

    ' Restore calculation settings.
    If Application.Calculation <> lCalcSave Then
         Application.Calculation = lCalcSave
    End If
    If Application.Iteration <> bIterSave Then
         Application.Iteration = bIterSave
    End If
    Exit Sub
Errhandl:
    On Error GoTo 0
    MsgBox "Unable to Calculate " & sCalcType, _
        vbOKOnly + vbCritical, "CalcTimer"
    GoTo Finish
End Sub

如果您想轻松访问这些工具（例如功能区），请向上滚动并按照如何自定义功能区的说明进行操作。进入后，从Macros下拉菜单中选择Choose commands from，然后添加到现有标签页，或者您也可以为这些工具创建新标签页。

有关如何使用这些工具的详细说明，您可以在参考文献下方的底部检查原始来源的链接。第一个链接用于Windows 32位，第二个链接用于Windows 32位和Windows 64位。

希望这会有所帮助..

参考文献：

查尔斯·威廉姆斯

Improving Performance in Excel 2007

查尔斯·威廉姆斯

Excel performance: Improving calculation performance

Decision Models Ltd

在excel方程中使用boolean比使用if函数更快吗？

1 个答案: