VBA技术问询：如何将自定义取整函数整合到Toolpod_Width_Click子过程，实现单元格A10值向最近5取整？

问题描述 #

需求：将单元格A10中的值取整至最近的5。我已编写CustomRound自定义函数，认为其逻辑正确，但不确定如何将该函数与上方的Toolpod_Width_Click子过程进行整合。请问是否应将该子过程的运算结果作为CustomRound函数中LWhole的取值？或者是否可以舍弃该自定义函数，直接在Toolpod_Width_Click子过程中实现向最近5取整的功能？

用户提供的代码：

Private Sub Toolpod_Width_Click()
    Dim wb As Workbook
    Set wb = Workbooks("Automated Cardworker.xlsm")
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Job Card Master")
    Dim BodyLength As Range
    Set BodyLength = ws.Range("A10")
    Select Case Toolpod_Width.Value
        Case ("600")
            BodyLength.Value = BodyLength.Value - 680
        Case ("800")
            BodyLength.Value = BodyLength.Value - 880
        Case ("900")
            BodyLength.Value = BodyLength.Value - 980
        Case ("1000")
            BodyLength.Value = BodyLength.Value - 1080
    End Select
    Toolpod_Width.Value = "Toolpod Width"
    Toolpod_Width.Visible = False
End Sub

Function CustomRound(pValue As Double) As Double
    LWhole = Int(pValue)
    LFraction = pValue - LWhole
    If LFraction < 5 Then
        CustomRound = LWhole
    Else
        CustomRound = LWhole + 5
    End If
End Function

解答 #

首先得明确：你的CustomRound函数逻辑是错误的。函数里把数值的小数部分LFraction和5做比较，但小数部分永远小于1，这个逻辑根本无法实现“取整到最近5”的效果（比如12.6会被错误地保留为12，而实际应该取整为15）。正确的取整到最近5的逻辑是：将数值除以5，取整后再乘以5。

接下来给你两种可行的方案：

方案一：修正自定义函数并整合到子过程中

如果后续其他地方也需要用到“取整到最近5”的逻辑，建议保留自定义函数并修正它，然后在子过程中调用：

修正后的自定义函数：

Function CustomRound(pValue As Double) As Double
    ' 核心逻辑：除以5取整后再乘回5，实现取整到最近的5
    CustomRound = Round(pValue / 5, 0) * 5
End Function

修改后的Toolpod_Width_Click子过程（在计算完新值后调用函数）：

Private Sub Toolpod_Width_Click()
    Dim wb As Workbook
    Set wb = Workbooks("Automated Cardworker.xlsm")
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Job Card Master")
    Dim BodyLength As Range
    Set BodyLength = ws.Range("A10")
    
    Select Case Toolpod_Width.Value
        Case ("600")
            BodyLength.Value = BodyLength.Value - 680
        Case ("800")
            BodyLength.Value = BodyLength.Value - 880
        Case ("900")
            BodyLength.Value = BodyLength.Value - 980
        Case ("1000")
            BodyLength.Value = BodyLength.Value - 1080
    End Select
    
    ' 调用修正后的函数，将结果取整到最近的5
    BodyLength.Value = CustomRound(BodyLength.Value)
    
    Toolpod_Width.Value = "Toolpod Width"
    Toolpod_Width.Visible = False
End Sub

方案二：直接在子过程中实现取整逻辑

如果这个取整逻辑只在当前子过程中使用，完全可以舍弃自定义函数，直接把逻辑写在子过程里，让代码更简洁：

Private Sub Toolpod_Width_Click()
    Dim wb As Workbook
    Set wb = Workbooks("Automated Cardworker.xlsm")
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Job Card Master")
    Dim BodyLength As Range
    Set BodyLength = ws.Range("A10")
    
    Select Case Toolpod_Width.Value
        Case ("600")
            BodyLength.Value = BodyLength.Value - 680
        Case ("800")
            BodyLength.Value = BodyLength.Value - 880
        Case ("900")
            BodyLength.Value = BodyLength.Value - 980
        Case ("1000")
            BodyLength.Value = BodyLength.Value - 1080
    End Select
    
    ' 直接实现取整到最近5的逻辑，无需额外函数
    BodyLength.Value = Round(BodyLength.Value / 5, 0) * 5
    
    Toolpod_Width.Value = "Toolpod Width"
    Toolpod_Width.Visible = False
End Sub

方案选择建议

• 如果多个地方需要用到取整到最近5的逻辑，选方案一，通过自定义函数实现代码复用；
• 如果只有当前子过程需要这个逻辑，选方案二，减少不必要的函数定义，让代码更紧凑。

内容的提问来源于stack exchange，提问作者Donald Duck