Question

一个关于EXCEL单元格赋值的问题

excel工作簿book1.sheet1的单位格A1、A2、A3的值分别是1，2，3。如何做到点击A1时，B1的值等于1,点击A2时，B1的值是2，点击A3时，B1的值是3？
希望：
1。写出VBA代码；
2。打开工作簿后，程序就能自动运行。
谢谢！我还想进一步知道：
如果A列的行数不确定，目标单元格与源数据不在同一个工作表中，如何写代码？
刚刚那段代码如何能自动激活？

Answer 1

把这段代码放在sheet1的代码窗口内
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.column=1 then
Range("b1") = Target
else
exit sub
end if
End Sub

如果目标单元格与源数据不在同一个工作表中
把以下代码放在sheet1代码窗口内。这里的工作表名称sheet2是假设的，可以自行修改
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.column=1 then
sheets("sheet2")Range("b1") = Target
else
exit sub
end if
End Sub

使用if的目的，是当光标的A列是程序才执行，如果光标在B列以后，就不执行程序

Answer 2

直接在SHEET1的代码窗口输入下列代码就可以啦。
打开此文件时允许运行宏。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b1") = Target
End Sub

Answer 3

VBA代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 3 Then Range("b1") = Target
End Sub

Answer 4

通过selectedrange判断选中的单元格坐标，然后赋值。