excel高级应用selectionchange事件

 我来答

2个回答

#合辑# 面试问优缺点怎么回答最加分？

ChenryLee
推荐于2016-08-13 · TA获得超过1728个赞

知道小有建树答主

回答量：864

采纳率：90%

帮助的人：664万

我也去答题访问个人页

关注

展开全部

其实只要一句就好了：

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。

本回答被提问者和网友采纳

已赞过 已踩过<

评论收起

ZESTRON
2024-09-04 广告

在Dr. O.K. Wack Chemie GmbH，我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质，为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸... 点击进入详情页

本回答由ZESTRON提供

世界喜欢不一样
2015-10-08 · TA获得超过2374个赞

知道大有可为答主

回答量：1546

采纳率：50%

帮助的人：639万

我也去答题访问个人页

关注

展开全部

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