Excel使用笔记（二）：宏之VBA使用

在前面文章中，我们建立了“省市区”三级联动的效果，但是发现一个问题：修改第一级和第二级的目录，后边的层级不会跟随变化，也不会清除数据。

所以采用宏去处理，这里使用的是vba。

将下列代码复制进编辑器，对应的单元格修改，就会触发时间。

//代码中包含三个部分：1、三级列表变化的部分、
///2、计算触发的部分、3、根据前一个单元格的值显示数据的部分

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Row < 2 Then Exit Sub '修改第一行（标题）不往下执行
    For Each Rng In Target

        '三级列表联动
        If Rng.Column = 1 Then  '修改一级标题
            Rng.Offset(0, 1).ClearContents '清除二级
        End If
        If Rng.Column = 2 Then  '修改二级
            Rng.Offset(0, 1).ClearContents '清除三级
        End If
        
        '计算除法
        If Rng.Column = 6 Then
            If Rng.Value <> 0 Then
             Rng.Offset(0, 2) = Rng.Offset(0, 1) / Rng
             End If
        End If
        If Rng.Column = 7 Then
            If Rng.Offset(0, -1).Value <> 0 Then
             Rng.Offset(0, 1) = Rng / Rng.Offset(0, -1)
             End If
        End If
        If Rng.Column = 8 Then
            If Rng.Offset(0, -2).Value <> 0 Then
             Rng = Rng.Offset(0, -1) / Rng.Offset(0, -2)
             If Rng.Value >= 0.95 Then
                Rng.Offset(0, 1).Value = "是"
                Else
                Rng.Offset(0, 1).Value = "否"
                
             End If
             End If
        End If
        
        '根据数字显示
        If Rng.Column = 9 Then
            If Rng.Offset(0, -1).Value >= 0.95 Then
                Rng.Value = "是"
                Else
                Rng.Value = "否"
             End If
        End If
    Next
End Sub