清除内容vba

问题描述

我尝试使用此代码但没有用

Range("L3:ED3").Formula = "=IF(C3=0,L3:ED3,"",IF(C3>0,L3:ED3)).clearcontents"

解决方法

如果如果单元格（“ C3”）为空，则希望VBA代码清除范围（“ I3：ED3”），则需要创建Worksheet_Change代码。打开Visual Basic编辑器（Alt + F11），在“项目资源管理器”中VBAProject下方的左侧，单击“ Microsoft Excel对象”，然后双击所需的工作表要使用的代码（如果没有看到左侧窗口，请单击 Ctrl + r 打开Project Explorer）。在我的示例中，我选择“ Sheet1”来粘贴此代码。一旦进入相应工作表的“工作表”模块，请粘贴以下代码。

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Range("C3").Value = "" Then Range("I3:ED3").ClearContents
Application.EnableEvents = True
End Sub

excel-formula