VBA提高篇_16 传递Range提升自定义函数,巧用属分辨公式型内容

需求1: 工作簿内各表单元格区域红色字体求和

普通写法:

Sub demo()
    Dim i As Long, j As Long, s As Long
    Dim r As Range, w As Worksheet, r1 As Range 's和, w 表格, r 单元格, r1 子单元格
    
    For Each w In Worksheets
        s = 0 '和
        
        Set r = w.UsedRange
        For Each r1 In r
                If r1.Font.Color = vbRed Then
                
                s = s + r1.Value
                
        Next r1
        
        w.Cells(1, 1) = s
    Next w
    
End Sub

---

过程化写法: Range自定义函数

Sub demo