指定单元格里面的，内容发生变化，触发事件，调用VBA代码。

sun0322

已于 2022-03-15 11:23:45 修改

阅读量4.7w

点赞数 2

分类专栏： # VBA Excel操作相关文章标签： vba

于 2011-12-27 22:53:42 首次发布

本文链接：https://blog.youkuaiyun.com/sxzlc/article/details/7107415

版权

Excel操作相关同时被 2 个专栏收录

62 篇文章

订阅专栏

VBA

35 篇文章

订阅专栏

本文介绍如何使用VBA在Excel单元格内容更改时触发事件，并根据内容进行处理，包括显示或隐藏特定行。此外，还介绍了如何在保存或打开Excel文件时触发其他事件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

指定单元格里面的，内容发生变化，触发事件，调用VBA代码。_sun0322-优快云博客_单元格变化触发vba

■通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。

■扩展1：保存时，触发处理

■扩展2：打开Excel时，触发处理

■通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。

具体内容是，有一个单元个，里面的内容可以选择，分别是”1 选择；2填空；3读程序；4写代码“

这里，实现的功能是，选择部分的列

（注：也就是选择题时，会有四个选项，所占的4列，填空题时，不需要这4列）

当题型"1选择"被选中时，显示，没有被选中时，隐藏

这里面需要学习的是对这种事件接收的处理的写法。

Worksheet_Change

※：函数要定义在对应的【SheetN】中

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
       
        If Target.Address = "$E$1" Then
           
            If Range("E1").Value = "1 選択" Then
           
                Rows("4:7").Select
                Range("B4").Activate
                Selection.EntireRow.Hidden = False
           
            End If
           
            If Range("E1").Value <> "1 選択" Then
           
                Rows("4:7").Select
                Range("B4").Activate
                Selection.EntireRow.Hidden = True
           
            End If
           
           

        End If
    
    Application.EnableEvents = True
End Sub

■扩展1：保存时，触发处理

Workbook_BeforeSave

※：函数要定义在对应的【Workbook】中

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
    If Len(Worksheets("SheetName1").Range("A1")) = 0 Then 
        MsgBox "A1 Is Null", vbExclamation + vbOKOnly  ’A1空的话，提示
        Cancel = True ’不保存
    End If
    
End Sub

---

■扩展2：打开Excel时，触发处理

VBA的代码，在Excel启动时自动执行_sun0322-优快云博客_打开excel自动运行vba

１．建立一个Auto的モジュール

２．在里面写如下代码

Private Sub Auto_Open()
 
    'Demand Summaryの工数表示期間 (「list」シートの「D2」セル)
    Sheet2.Cells(2, 4) = 15
 
 
End Sub

---