[已解决]这个代码怎么写

9910343

点击单元格A1时，A2为空

最佳答案

月排行榜 / 总排行榜

zzbilly

2012-9-3 18:53

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x, y As Integer
x = Target.Row
y = Target.Column
Cells(x, y + 1).Clear
End Sub

跳转到最佳答案楼层

windimi007

这个意思？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = "A1" Then Cells(1, 2).ClearContents
   
3. End Sub
   

复制代码

gdsgzhrsh

Sub AA()
If Range("A1").Select Then
Range("A2") = ""
End If
End Sub

gdsgzhrsh

请写清楚你想要的，最好上传附件

wk0316

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row = 1 And Target.Column = 1 Then Range("a2").Clear
   
3. End Sub
   

复制代码

wk0316

000.rar (7.47 KB, 下载次数: 3)

2012-9-1 09:59 上传

点击文件名下载附件

hwc2ycy

wk0316 发表于 2012-9-1 09:58

也在学V？

9910343

谢谢大家，结合大家给出的答案，总结如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Select Then
Range("A2") = ""
End If
End Sub
这个代码的好处在于A1，A2可以换成其他单元格
可这个代码运行时光标总是停在A1里

9910343

windimi007 发表于 2012-9-1 09:54
这个意思？

怎么样把A1，A2可以换成其他单元格

9910343

wk0316 发表于 2012-9-1 09:58

怎么样把A1，A2可以换成其他单元格