Question

关于excel vba 的Worksheet_Change事件

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 11 Then
Target.Offset(, 1) = Val(Target) * 3
End If
End Sub
这个代码效果：比如a1值为10，点一下a1，b1显示30
要是想要做到：a1为空值，在a1输入10后，切换到其他单元格，这时B1自动显示30，该怎么写代码？

Answer 1

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 即可

追问

我复制错代码了
用Worksheet_SelectionChange就是那个效果，点一个空白的单元格时候，相邻的显示0
我要的是输入数值，离开这个单元格之后再计算

追答

说清楚点，理解你的半天不知你要什么结果

追问

开始都是空白的
a1输入10，光标离开a1到A2，b1显示30
a2输入20，光标离开a2后，b2显示60
……
……

Answer 2

1楼，正确，学习了