求大神EXCEL VBA代码 点击一个单元格,另一单元格显示该单元格内容

求大神EXCEL VBA代码 问题一:光标点击 B2:H5 任意一个单元格 ,点击的单元内容自动显示在A2单元格内。问题2:光标点击 I2:I5 任意一个单元格 , 点击的单元格内容自动显示A3单元格内。

答:右键工作表名,点击"查看代码",复制如下代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Union(Target.Cells(1, 1), Range("B2:H5")).Address = Range("B2:H5").Address Then
        Range("A2") = Target.Cells(1, 1)
    ElseIf Union(Target.Cells(1, 1), Range("I2:I5")).Address = Range("I2:I5").Address Then
        Range("A3") = Target.Cells(1, 1)
    End If
End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  2018-07-30
我会写这样的代码,有实际的文件更方便测试
相似回答