'构建一个函数，名字叫：Worksheet_SelectionChange，需要传入的参数名：Target，参数类型是Range，也就是单元格或区域。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'如果Target这个参数的单元格区域的行大于7并且列数等于2
If Target.Cells(1, 1).Row > 7 And Target.Cells(1, 1).Column = 2 Then
'用s代表选择区域的第一行第一列的值。
s = Target.Cells(1, 1)
'激活一个叫“曲柄轴”的表。
Worksheets("曲柄轴").Activate
'把s代表的值写入到“曲柄轴”表的B3单元格。
Worksheets("曲柄轴").Range("B3").Value = s
'判断结束
End If
'如果Target这个参数的单元格区域的行小于7或者列数不等于2，都不理会，直接结束、
'函数结束
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024