Question

excel高级应用selectionchange事件

Answer 1

其实只要一句就好了：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(1, 1) = ActiveCell.Value
End Sub

Cells(1,1)即A1单元格，ActiveCell.Value即当前选择的单元格的值。

追问

但是我只需要C2到C7单元格的点击才会输入到A1中啊，怎么弄？

追答

另一位知友也回答了，只要结合一下就好：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And (Target.Row >= 2 And Target.Row <= 7) Then
    Cells(1, 1) = ActiveCell.Value
End If
End Sub

附注：

另一位知友的判断中，后面应该用AND，另外，如果用Range("A1")，赋值的时候建议用Range("A1").Value。

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 And (Target.Row >= 2 And Target.Row <= 7) Then
        Range("A1") = Target.Value
    End If
End Sub