|
▼チチクイック さん:
>僕やりたいのは、条件が
>1行目 Aセル Bセル Cセル
>2行目 Aセル
>3行目 何もない
>みたいな時に
>If お金 >= Range("A1") And お金 >= Range("B1") And お金 >= Range("C1")Then
>End If
>If お金 >= Range("A2") Then
>End If
>みたいにコードを書かないといけなくなってしまいます。、
つまり、「対象の行に記入されている全ての数値が[お金]という変数に入っている
数値以下かどうかを1行ずつ比較したい」ということですね。
>If お金 >= Range("A1") And お金 >= Range("B1") And お金 >= Range("C1")Then
ということは、その行の全ての数値の最大値がお金以下であれば、その行のほかの
数値もお金以下であるはずですね。
ということで、以下のコードでどうでしょうか。
Sub Macro1()
Dim Cell As Range
Dim お金 As Long
お金 = 1000
For Each Cell In ActiveSheet.UsedRange.Rows 'シート内の使用している範囲を1行ずつCellに割り当て
With WorksheetFunction
If .Count(Cell) > 0 Then '対象の行に数値が1つでもあれば
If お金 >= .Max(Cell) Then '対象の行の最大値がお金以下なら
Debug.Print Cell.Row & "行目は" & .Count(Cell) & "個数字があって、" & _
"その全てが" & お金 & "以下です。"
End If
End If
End With
Next Cell
End Sub
|
|