请老师们帮忙

ntyyz

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "F1" Then Exit Sub
Sheets("Sheet2").Range("B2:R2").ClearContents
Range("G2:G5").ClearContents
End Sub
F1变动，删除表一G2:G5数据，并且删除表二B2:R2数据。这个 代码已实现。
求：1、E1变动或者F1变动都能达到以上效果，代码怎么写？
求： 2、D1变动，删除表一G2:G5数据，删除表二B2:R2数据。增加删除表三A3:D3数据，代码怎么写？
好像上面代码只能实现一个任务，请老师们帮忙。 新建 Microsoft Office Excel 工作表.rar (14.03 KB, 下载次数: 3)

2018-9-22 12:17 上传

点击文件名下载附件

微笑12345

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address(0, 0) = "F1" Or Target.Address(0, 0) = "E1" Then
   
3. Sheets("Sheet2").Range("B2:R2").ClearContents
   
4. Range("G2:G5").ClearContents
   
5. ElseIf Target.Address(0, 0) = "D1" Then
   
6. Sheets("Sheet2").Range("B2:R2").ClearContents
   
7. Range("G2:G5").ClearContents
   
8. Range("a3:d3").ClearContents
   
9. Else
   
10.   Exit Sub
    
11.   End If
    
12. End Sub
    

复制代码

扑腾

看看是否达到要求

lsc900707

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = "D1" Then
   
3.         [g2:g5] = "": Sheet2.[b2:r2] = "": Sheet3.[a3:d3] = ""
   
4.     ElseIf Target.Address(0, 0) = "E1" Or Target.Address(0, 0) = "F1" Then
   
5.         [g2:g5] = "": Sheet2.[b2:r2] = ""
   
6.     Else
   
7.         Exit Sub
   
8.     End If
   
9. End Sub

复制代码

ntyyz

扑腾 发表于 2018-9-22 12:56
看看是否达到要求

结果可行，谢谢。

ntyyz

lsc900707 发表于 2018-9-22 13:14

结果可行，谢谢。

ntyyz

微笑12345 发表于 2018-9-22 12:47

测试了表三数据不好清除，谢谢。

ntyyz

微笑12345 发表于 2018-9-22 12:47

08.Range("a3:d3").ClearContents
改成08.Sheets("Sheet3").Range("a3:d3").ClearContents就可以了，谢谢帮助。

lsc900707

ntyyz 发表于 2018-9-22 16:51
08.Range("a3:d3").ClearContents
改成08.Sheets("Sheet3").Range("a3:d3").ClearContents就可以了，谢 ...

有进步，自己可以尝试着修改了！