vba - 列のすべての負の値を選択

Question

このサイトから次のコードを取得しました。これは、値「1」を含む列 H のすべてのセルを選択しますが、これは完全に機能しますが、負の値を含む列 H のすべてのセルを選択するのを手伝ってくれることを願っています。

Sub H()
    Dim TheSheet As Worksheet
    If TypeOf ActiveSheet Is Worksheet Then
        Set TheSheet = ActiveSheet
    Else
        Exit Sub
    End If
    Dim Row As Integer
    Dim CellsToSelect As String
    For Row = 1 To TheSheet.Range("H" & CStr(TheSheet.Rows.Count)).End(xlUp).Row
        If TheSheet.Range("H" & CStr(Row)).Value = 1 Then
            If CellsToSelect <> "" Then CellsToSelect = CellsToSelect & ","
            CellsToSelect = CellsToSelect & "H" & CStr(Row)
        End If
    Next Row
    TheSheet.Range(CellsToSelect).Select
End Sub

よろしくお願いしますノエル

Answer 1

この行を変更します。If TheSheet.Range("H" & CStr(Row)).Value = 1 Then

これに：If TheSheet.Range("H" & CStr(Row)).Value < 0 Then

便宜上、サブ全体を以下に示します。

 Sub H()
    Dim TheSheet As Worksheet
    If TypeOf ActiveSheet Is Worksheet Then
        Set TheSheet = ActiveSheet
    Else
        Exit Sub
    End If
    Dim Row As Integer
    Dim CellsToSelect As String
    For Row = 1 To TheSheet.Range("H" & CStr(TheSheet.Rows.Count)).End(xlUp).Row
        If TheSheet.Range("H" & CStr(Row)).Value < 0 Then
            If CellsToSelect <> "" Then CellsToSelect = CellsToSelect & ","
            CellsToSelect = CellsToSelect & "H" & CStr(Row)
        End If
    Next Row
    If Len(CellsToSelect) <> 0 Then
        TheSheet.Range(CellsToSelect).Select
    End If
End Sub