2

さて、基本的には、特定の文字列の行位置が別の文字列の行位置よりも下にあるかどうかを判断したいと思います。そうであれば、値をゼロに設定する必要があります。これの多くのバリエーションを試しましたが、この方法で範囲を比較できるようには見えません。この比較を行うことができるように、セルの位置を取得する別の方法はありますか?

    If i < 56 Then
        If Rng4(j) < Rng5(i + 1) Then
            Rng4(j).Activate
            X(i, j, 1) = ActiveCell.Offset(0, 1)
            X(i, j, 2) = ActiveCell.Offset(0, 2)
        Else
            X(i, j, 1) = 0
            X(i, j, 2) = 0
        End If
    End If
4

1 に答える 1

2

範囲のRowプロパティを比較する必要があります

If i < 56 Then
    If Rng4(j).Row < Rng5(i + 1).Row Then
        Rng4(j).Activate
        X(i, j, 1) = ActiveCell.Offset(0, 1)
        X(i, j, 2) = ActiveCell.Offset(0, 2)
    Else
        X(i, j, 1) = 0
        X(i, j, 2) = 0
    End If
End If
于 2013-03-18T19:30:59.110 に答える