时间戳

首页 > 解决方案 > 函数输入数据类型是否影响循环速度/效率

excel - 函数输入数据类型是否影响循环速度/效率

问题描述

这可能是用户“不喜欢”的另一个问题，因为它更多的是与建议相关而不是与问题相关。

我有一个在保存和工作簿打开时触发的代码。它在 f（白天与夜晚，日期与实际日期）中选择正确的工作表。周一到周三我的情况是一样的，但周四是不同的时间表，然后我想测试

instr(ws.name,"Thursday") > 0

sheetname as string我的问题是：输入或ws as worksheet我的测试功能更有效。

这里的代码：

呼叫者

Public Sub SelectionDeQuartAuto()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible Then
            With ws.Range("B4")
                If .Value = Date Then
                    Exit For
                End If
            End With
        End If
    Next
    If isDayShift(Now, ws) Then
        Set ws = DayShiftSheet
    Else
        Set ws = NightShiftSheet
    End If
    
    If ws Is Nothing Then
        Sheets("Vendredi jour").Activate
    Else
        ws.Activate
    End If
End Sub

功能：

Public Function isDayShift(DateTime As Date, ws As Worksheet) As Boolean
    If InStr(ws.Name, "Jeudi") > 0 Then
        isDayShift = TimeValue(DateTime) > TimeValue("03:00:00") And TimeValue(DateTime) < TimeValue("15:15:00")
    Else
        isDayShift = TimeValue(DateTime) > TimeValue("03:00:00") And TimeValue(DateTime) < TimeValue("16:15:00")
    End If
End Function

这将成为：

Public Sub SelectionDeQuartAuto()
        Dim ws As Worksheet
        Dim sheetname as string
        ' For etc..
        ' Exit for with right ws
        sheetname = ws.Name
        If isDayShift(Now, sheetname) Then
        ' etc...
End Sub

Public Function isDayShift(DateTime As Date, sheetname As string) As Boolean
    If InStr(sheetname, "Jeudi") > 0 Then
    ' ... rest
End Function

如果这无关紧要和/或我的问题不恰当，只需在评论中说出来，我就这样离开并删除，谢谢男孩和女孩

标签： excelvbafunctioninput

解决方案

这不是关于绩效，而是关于责任和最少知识原则。

如果一个函数只需要知道工作表的名称，那么编写该函数的最佳方法就是让它以工作表的名称作为参数。

通过采用 aString而不是 a Worksheet，您可以使函数的目的更清晰，将其与 Excel 对象模型解耦（其逻辑适用于任何String使其更易于测试的值），并有助于防止其实现中的未来范围蔓延（即如果它可以访问一个Worksheet对象，那么它可以做任何这样的引用允许它做的事情）。

我什至会争辩说，你的函数甚至不关心工作表名称，它真正想要使用的是 a weekdayName，它是一个法语值可能很重要，所以我会选择类似wkDayFrenchName的东西 - 事实上字符串值来自 aWorksheet无关紧要。

Public Function IsDayShift(ByVal DateTime As Date, ByVal wkDayFrenchName As string) As Boolean
    If InStr(wkDayFrenchName, "Jeudi") > 0 Then
        ' ...
    End If
End Function

请注意，可以进一步简化逻辑以仅从给定日期计算工作日，这将使其更易于使用且更健壮：

Public Function IsDayShift(ByVal DateTime As Date) As Boolean
    If WeekDay(DateTime, vbSunday) > vbThursday Then
        ' ...
    End If
End Function

现在处理一个名为Jeudi("Thursday") 但包含Date实际上是Lundi("Monday") 的工作表仍将产生正确的输出。可以说该函数可以是无参数的并且负责计算当前日期本身，但是将日期作为参数更加通用，并且过程/函数的职责越少越好。

推荐阅读