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

最新推荐文章于 2022-07-07 08:24:10 发布

carter_yu

最新推荐文章于 2022-07-07 08:24:10 发布

阅读量887

点赞数 2

分类专栏： Android面试 Github 职业文章标签：办公软件

本文链接：https://blog.youkuaiyun.com/carter_yu/article/details/104384047

版权

Android面试同时被 3 个专栏收录

13 篇文章

订阅专栏

Github

2 篇文章

订阅专栏

职业

2 篇文章

订阅专栏

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

所以采用宏去处理，这里使用的是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