excel高级应用selectionchange事件

2024-11-22 01:31:01

推荐回答（2个）

回答1：

其实只要一句就好了：

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

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

回答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