Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 11 Then
Target.Offset(, 1) = Val(Target) * 3
End If
End Sub
说明：只要把Worksheet_Change 改为 Worksheet_SelectionChange 即可
1楼，正确，学习了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024