VBA实战技巧精粹002:如何调用过程

在使用VBA编写过程时,一个好的习惯是尽量将实现单独功能的代码放置在独立的过程中,并在主过程中调用这些独立的过程.这样不仅便于程序的高度,而且程序的结构清晰,便于理解和维护,也能够重复使用通用的过程代码.

通过一个示例演示在程序中调用过程的方法.如图所示工作表,其中"加班费基数"固定,每个加班为80元,"加班数"由人工输入,"加班系数"根据加班个数而不同."加班费"为"加班费基数"和"加班数"分别与"加班系数"的乘积.

要求:自动根据"加班数"确定"加班系数"并得到"加班费"的数值,然后将最大加班费数值所在单元格的底纹设置为绿色.

①解决利用过程及函数获取加班系数问题:

Option Explicit
Dim lLastRow As Integer
Sub 加班费计算()
    Worksheets("sheet1").Activate
    lLastRow = Range("A65536").End(xlUp).Row
    Range("D3:E" & lLastRow).ClearContents
    '调用获取加班系数的过程
    Call GetExtraNum
'    '调用计算加班费的过程
'    Call CalculaeExtra
'    Set rng = Range("E3:E" & lLastRow)
'    '调用设置加班费列格式的过程
'    Call SetFormat(rng)
End Sub

'获取加班系数填入工作表
Sub GetExtraNum()
    Dim i As Integer, ExtraNum As Single
    For i = 3 To lLastRow
        ExtraNum = Range("c" & i).Value
        Range("D" & i).Value = GetExtra(ExtraNum)
    Next i
End Sub
   
'获取加班系数
Function GetExtra(num As Single) As Single
    Select Case num
        Case 1, 2
            GetExtra = 1
        Case 3 To 5
            GetExtra = 1.05
        Case Is > 5
            GetExtra = 1.1
        Case Else
            GetExtra = 0
    End Select
End Function
    
运行以上程序,可以在工作表中填入加班系数.

反思:在数据传递过程中,要特别注意数据类型的一致性,对于小批量的数据运算,最好统一设置成Single类型,少用Integer类型.

效果截图:

 这就是 菊子曰啦！