[已解决]worksheet_change事件无效

love_liwu

附件里边代码是望帝春心老师帮我的，在此表示非常感谢。 分数统计.zip (11.95 KB, 下载次数: 1)

2016-12-26 14:00 上传

点击文件名下载附件

各位老师：您好，我的问题是：R6变化时候，清空A1：P65536的数据。代码如下：
If Target.Address = Sheet1.[R6] Then
   If Sheet1.[R6].Value <> "" Then
     Sheet1.Range("A1:P65536").ClearContents
   End If
End If


好像运行不了。不知哪里出错了。

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-26 14:12

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address(0, 0) = "R6" Then
   
3.    If [R6].Value <> "" Then
   
4.      Sheet1.Range("A1:P65536").ClearContents
   
5.    End If
   
6. End If

复制代码

跳转到最佳答案楼层

望帝春心

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address(0, 0) = "R6" Then
   
3.    If [R6].Value <> "" Then
   
4.      Sheet1.Range("A1:P65536").ClearContents
   
5.    End If
   
6. End If

复制代码

love_liwu

望帝春心 发表于 2016-12-26 14:12

您好，老师，为什么要这样书写代码？不是很明白。

love_liwu

望帝春心 发表于 2016-12-26 14:12

还有个问题，那就是A列没那么容易清除内容。

望帝春心

love_liwu 发表于 2016-12-26 14:25
还有个问题，那就是A列没那么容易清除内容。

用这句：Range("A1:P65536").Clear，清除不掉是因为后面的这句代码Cells(Target.Row, 1).FormulaR1C1 = "=SUM(RC2:RC" & Cells(6, "R") + 1 & ")"，又往A列写入内容了

love_liwu

望帝春心 发表于 2016-12-26 14:45
用这句：Range("A1:P65536").Clear，清除不掉是因为后面的这句代码Cells(Target.Row, 1).FormulaR1C1 = " ...

恩，还是不能一次清除，加多一句：
range("A:A").clearcontents
非常感谢老师的帮助，祝您生活愉快。

望帝春心

love_liwu 发表于 2016-12-26 15:02
恩，还是不能一次清除，加多一句：
range("A:A").clearcontents
非常感谢老师的帮助，祝您生活愉快。

注意理解我前面的回复...已经说了为什么清除不掉了，可能我没理解你的意思吧，你自己能改好就行了

love_liwu

望帝春心 发表于 2016-12-26 15:07
注意理解我前面的回复...已经说了为什么清除不掉了，可能我没理解你的意思吧，你自己能改好就行了

嗯，再次感谢老师。