Excel中怎样用宏命令

比如在A列中输入数值，当小于零时，提示出错。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then
Exit Sub
Else
If Target < 0 Then
Target = Null
MsgBox "输入数值小于0，请注意！"
End If
End If
End Sub

不用宏
1.选定任意单元格
2.打开---数据----有效性---点击---设置----有效性条件里点击---允许---选择----自定义----公式输入----">0"-----点击-----出错警告-----点击---样式---下拉菜单选择----警告
3.提示内容，在同页面中----标题（T）和错误信息（E）内自由输入-------点击---确定
4.本单元格的----有效性-----可以复制
.......OK?