1

VBAでマクロを書こうとしています。マクロで、セル範囲内の値が別のセルの値と同じかどうかを確認したいと考えています。次に、セルを識別し、そのセルの下のセルで何かを行います。

したがって、範囲 B2:M6 に A1 と同じ値のセルがあるかどうかを確認したいと思います。これはセル D6 に当てはまりますか? その下のセル (この場合は B7) で計算を実行したいと考えています。

現時点では、範囲内の値を確認することしかできませんでしたが、どうすればよいかわかりません。

Sub CellCheck()
Dim DateString As String
DateString = Range("A1")

    result = IsNumeric(WorksheetFunction.Match(DateString, Range("B6:M6"), 0))
    If result = True Then MsgBox "It is True"
End Sub
4

1 に答える 1

3

.FIND() または単純なループを使用できます。

Sub FindIt()
    Dim V As Variant, rBig As Range, r As Range
    V = Range("A1").Value
    Set rBig = Range("B2:M6")
    For Each r In rBig
        If r.Value = V Then
            r.Offset(1, 0) = "XXX"
        End If
    Next r
End Sub
于 2013-10-23T12:05:48.477 に答える