三大结构用的好 VBA编程差不了

微信公众号原文

难度系数：初级

系统：Windows 7
软件：Excel 2010

学习路径图：

学习路径图.JPG

• 针对之前的学习路径图，会针对的写一些文章
• 之前讲解了不同Sub之间的一些关系，今天讲讲在一个Sub内的套路
• 三大结构：顺序，循环，判断，一个Sub内总体来说就是这三个结构的不断调用（基于过程编程）

目标

1. 如何完成对一个Sub的设计
2. 三大结构的代码设计

实例

输入

1.png

输出

2.png

1. 在“示例”工作表中的D2单元格写入当前日期，E列写入B列成绩高于60的人姓名，F列写入对应成绩
2. 三大结构解决方案

• 整体一个 Sub完成，从开始到结束，是一个顺序结构
• 对B列数据进行循环，获取每个人员的成绩
• 对获取的每个成绩进行判断，如果满足条件，写入E+F列
• 在D1处写上当前日期，顺序结构中的一部分
• 加上数据检验环节（检验B列成绩数据非空时才比较，判断）

代码

Sub test()
    Set sht = ThisWorkbook.Worksheets("示例")
    
    maxRow = sht.Cells(Rows.Count, "A").End(xlUp).Row
    
    rowInput = 2
    
    For i = 2 To maxRow Step 1
        note = sht.Cells(i, "B")
        If note <> "" Then
            stuName = sht.Cells(i, "A")
            If note > 60 Then
                sht.Cells(rowInput, "E") = stuName
                sht.Cells(rowInput, "F") = note
                
                rowInput = rowInput + 1
            End If
        
        End If

    Next i
    
    sht.Cells(2, "D") = Format(Now(), "yyyy-mm-dd")
    
End Sub

代码截图

4.png

.

运行结果

3.png

部分代码解读

1. 判断：

If 判断条件 Then
    代码块:  条件为Ture则执行
Else
    代码块:  条件为False则执行
End If

2. 循环

For i=起始 to 终止（包括终止） step
    代码块:  未超过终止前
Next

3. 顺序：在未遇到判断，循环结构前，代码默认自上往下运行

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去
• 本文为原创作品，如需转载，可加小编微信号learningBin

---

以上为本次的学习内容，下回见

如发现有错误，欢迎留言指出

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg