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