全民一起VBA基础篇第八课：过程与函数

过程

可以通过call来调用子程序，达到结构清晰，功能明确的作用

Option Explicit
Sub 汇总和登记()
Call 汇总
Call 登记
End Sub

Sub 我只需要汇总()
Dim i, j, total         '定义循环变量和累加器

Dim wperson As Worksheet     '定义wperson为工作表

Dim wall As Worksheet        '用来存总分的工作表

Set wall = Worksheets("总分榜") '用字符串来表示不会搞混淆


For i = 1 To Worksheets.Count '用worksheets来调用属性，这里count是算有多少工作表

    Set wperson = Worksheets(i)      '对对象进行赋值用set，有点类似于C语言的指针
    If wperson.Name <> "总分榜" Then
        total = 0
    
    j = 2
    
        Do While wperson.Cells(j, 1) <> ""
        
        total = total + wperson.Cells(j, 2)  '不能忘了wperson. 否则会编译出错
        
        j = j + 1
        
        Loop
        
    wperson.Cells(2, 3) = total
    End If
           
Next i

End Sub

Sub 我只需要登记()
Dim k, i
Dim w1 As Worksheet
Dim w2 As Worksheet
Set w2 = Worksheets("总分榜")
k = 2
For i = 1 To Worksheets.Count '用worksheets来调用属性，这里count是算有多少工作表

    Set w1 = Worksheets(i)

    If w1.Name <> "总分榜" Then    '赋值到总分榜里面
    
        w2.Cells(k, 1) = w1.Cells(1, 2)
        
        w2.Cells(k, 2) = w1.Cells(2, 3)
        
        k = k + 1
        
    End If
Next i
End Sub

函数

Option Explicit
Sub 扫描()
Dim score, level
Dim i
i = 3

Do While Cells(i, 2) <> ""
    score = Cells(i, 3)
    level = 分类(score)     '传参调用函数
    Cells(i, 4) = level
    i = i + 1
Loop

End Sub

Function 分类(s)        '函数头改为function ()用于接收参数
Dim score, level
score = s
    If score > 0 And score < 30 Then
        level = "甲型"
        ElseIf score >= 30 And score < 60 Then
        level = "乙型"
        ElseIf score >= 60 And score < 90 Then
        level = "丙型"
        ElseIf score >= 90 And score < 100 Then
        level = "丁型"
    End If
分类 = level        '返参
End Function

把扫描链接到控件，可以直接使用该段代码
或者是可以把 分类 用作函数来使用