Excel 2010 VBA 入门 071 工作表事件之Worksheet_Change

最新推荐文章于 2025-03-27 11:06:26 发布

ngbshzhn

最新推荐文章于 2025-03-27 11:06:26 发布

阅读量4.7k

点赞数

分类专栏： # Excel 2010 VBA 入门

本文链接：https://blog.csdn.net/ngbshzhn/article/details/116189777

版权

这篇博客介绍了如何利用Excel VBA中的Worksheet_Change事件来增强数据有效性设置，当用户尝试粘贴或输入不符合规则的数据时，通过VBA代码自动撤销操作或显示错误提示，防止数据损坏。

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

示例

如图所示，在该表中设置了数据有效性，并进行了工作表保护。希望通过该设置允许用户仅输入规定的内容。然而当用户从其他表格复制并粘贴至已经设置数据有效性的区域时，数据有效性并不起作用。如何利用VBA避免这种情况的发生，以完善数据有效性？

实现代码

当单元格的值改变之后，无论是粘贴还是将数值写入单元格，都会触发工作表对象的Change事件。在该Change事件中编写程序，执行数据有效性对象(Validation)的Value属性，判断单元格的值是否满足有效性验证。若验证失败，则执行Application的Undo方法取消赋值操作。

Private Sub Worksheet_Change(ByVal Target As Range)
    '禁用事件，防止不断触发事件
    Application.EnableEvents = False
    '判断改变的单元格的值是否通过有效性验证
    If Target.Validation.Value = False Then
        '若没有通过，则取消之前的赋值操作
        Application.Undo
    End If
    '启用事件
    Application.EnableEvents = True
End Sub