求助！在表2中输入数值后、表1出现负数自动弹出对话框“单元格负值”。

sever40

如题，我找了一下其他老师提供的代码进行试一试，结果只能在表1中体现出对话框效果。
现假设在表2中输入数值，表1出现负数自动弹出对话框进行警告。

引用的代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each h In Range("H3:H635")
If h < 0 Then
  MsgBox h.Address & "单元格负值"
End If
Next
End Sub



烦劳各位老师、上面的代码哪个位置需要改进的。
感谢回帖。

lsc900707

温馨提示：提问请同步上传附件。

yxbaju

#在这里快Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)速回复#

yxbaju

在thisworkbook里面
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      If Target.Column <> 8 Then Exit Sub
     If Target.Rows.Count > 1 Then Exit Sub
     If Target.Value < 0 Then MsgBox Target.Address & "值为负"
End Sub

sever40

lsc900707 发表于 2018-10-1 21:42
温馨提示：提问请同步上传附件。

好的、下次一定注意细节问题。多些提醒！