如果包含多个工作表的工作簿的ActiveSheet中的单元格值发生更改，则清除内容
如果包含多个工作表的工作簿的ActiveSheet中的单元格值发生更改，则清除内容
提问于 2019-07-01 17:15:24
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
Range("H59:CP61").ClearContents
End If
End SubB4是一个数据验证列表。我想要在单元格B4更改时清除范围。
我尝试将代码放在"ThisWorkbook“和"Module”部分下。
我希望代码为所有工作表运行。与复制和粘贴每个工作表的代码不同，我如何修改代码以在"ThisWorkbook“或”模块“部分下工作？
代码应该只清除B4发生更改的活动表中的内容。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-07-01 17:45:18
如果要在每个可能的工作表上实现Change事件，请使用工作簿的_SheetChange事件。
将代码放在这里：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("B4")) Is Nothing Then
Sh.Range("H59:CP61").ClearContents
End If
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56839786
复制相关文章
相似问题
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
