用vba快速选择单元格有负数值

同心/ty

求大神，帮我修改一下以下代码，此代码我是从百度查询的，应用中如果单元格中有负值，此代码能成功提示。如果没有负值的情况就提示代码错误需要调试。能否修改一下，如果没有负值，提示我，并结束。

Sub 选择所有负数单元格()

    Dim rng As Range, rg As Range

    For Each rng In Range("a1:d13")

    If rng < 0 Then

      If rg Is Nothing Then

        Set rg = rng

      Else

        Set rg = Application.Union(rg, rng)

      End If

    End If

    Next

    rg.Select

End Sub

大灰狼1976

代码最后部分：
   If Not rg Is Nothing Then
     rg.Select
   Else
     MsgBox "......"
   End If
End Sub

清风竹-

Sub 选择所有负数单元格()
    Dim rng As Range, rg As Range
    For Each rng In Range("a1:d13")
    If rng < 0 Then
      If rg Is Nothing Then
        Set rg = rng
      Else
         Set rg = Application.Union(rg, rng)
      End If
    End If
    Next
  If rg Is Nothing Then
      MsgBox "无负值"
  Else
     rg.Select
  End If
End Sub

同心/ty

清风竹- 发表于 2024-3-29 09:58
Sub 选择所有负数单元格()
    Dim rng As Range, rg As Range
    For Each rng In Range("a1:d13")

谢谢老师的帮助

同心/ty

大灰狼1976 发表于 2024-3-29 09:54
代码最后部分：
   If Not rg Is Nothing Then
     rg.Select

谢谢老师的帮助。

同心/ty

清风竹- 发表于 2024-3-29 09:58
Sub 选择所有负数单元格()
    Dim rng As Range, rg As Range
    For Each rng In Range("a1:d13")

老师，比如我选区里有3个负值，执行代码后，目前反馈的结果是将选区里负值单元格选上了。能否在选上的同时跳出提示框"有3个负值"?

清风竹-

同心/ty 发表于 2024-3-29 12:26
老师，比如我选区里有3个负值，执行代码后，目前反馈的结果是将选区里负值单元格选上了。能否在选上的同 ...

Sub 选择所有负数单元格()
     Dim rng As Range, rg As Range
     For Each rng In Range("a1:d13")
     If rng < 0 Then
       If rg Is Nothing Then
         Set rg = rng
         n = 1
       Else
          Set rg = Application.Union(rg, rng)
          n = n + 1
       End If
     End If
     Next
   If rg Is Nothing Then
       MsgBox "无负值"
   Else
      rg.Select
       MsgBox "有" & n & "个负值"
   End If
End Sub

同心/ty

清风竹- 发表于 2024-3-29 13:42
Sub 选择所有负数单元格()
     Dim rng As Range, rg As Range
     For Each rng In Range("a1:d13") ...

完美解决了我的问题。谢谢老师。