Проверка столбцов на соответствие

[SAS888]

Вашу задачу можно решить с помощью пользовательской функции:

Function CompRanges(rng1 As Range, rng2 As Range) As Boolean
    Dim i As Long: CompRanges = True: Application.Volatile
    For i = 1 To rng1.Count
        If rng1.Item(i) > rng2.Item(i) Then
            CompRanges = False: Exit Function
    End If: Next
End Function

Пример во вложении. Диапазоны сравниваемых столбцов, которые задаются в качестве аргументов функции, могут находиться на любых листах. Более того, эти диапазоны могут находиться в разных строках (например, "A1:A100" на листе "Лист1" и "B11:B110" на листе "Лист2").

[ZSV]

СПАСИБО ВАМ ОГРОМНОЕ!!!!! ВЫ МЕНЯ ОЧЕНЬ ВЫРУЧИЛИ!!!!!
ЭТО КАК РАЗ ТО ЧТО НУЖНО!! СПАСИБО

[ZSV]

Сообщение от SAS888

Вашу задачу можно решить с помощью пользовательской функции:

Function CompRanges(rng1 As Range, rng2 As Range) As Boolean
    Dim i As Long: CompRanges = True: Application.Volatile
    For i = 1 To rng1.Count
        If rng1.Item(i) > rng2.Item(i) Then
            CompRanges = False: Exit Function
    End If: Next
End Function

Пример во вложении. Диапазоны сравниваемых столбцов, которые задаются в качестве аргументов функции, могут находиться на любых листах. Более того, эти диапазоны могут находиться в разных строках (например, "A1:A100" на листе "Лист1" и "B11:B110" на листе "Лист2").

Скажите пожалуйста, а если первый столбец находится на другом листе, то как будет выглядеть функция?

[ZSV]

Сообщение от ZSV

Скажите пожалуйста, а если первый столбец находится на другом листе, то как будет выглядеть функция?

Сорри.... я не то спрашиваю....
тут маленькая корректировочка... я не учла кое-что...
например:
если:
1 1
2 2
3 3 - истина

1 1
2 1
3 3 - ложь
НО если:
1 1
2 0
3 3 - это тоже истина

Помогите плиз)

[DV68]

Формулой массива:

=И(ЕСЛИ(A3:A23=0;B3:B23;A3:A23)=ЕСЛИ(B3:B23=0;A3:A23;B3:B23))

правда пустые ячейки считаются тоже за 0.

[Hugo121]

Так если отличие больше, чем на 1, то это ИСТИНА?
Тогда так пробуйте:
If rng1.Item(i) = rng2.Item(i) +1 Then

[ZSV]

Сообщение от Hugo121

Так если отличие больше, чем на 1, то это ИСТИНА?
Тогда так пробуйте:
If rng1.Item(i) = rng2.Item(i) +1 Then

Попробовала.... так нельзя.... потому что какие бы не были значения результат всегда получается ИСТИНА(

[ZSV]

Сообщение от DV68

Формулой массива:

=И(ЕСЛИ(A3:A23=0;B3:B23;A3:A23)=ЕСЛИ(B3:B23=0;A3:A23;B3:B23))

правда пустые ячейки считаются тоже за 0.

Спасибо Вам большое! Так самое ТО ЧТО НАДО!!)

А все таки интересно было бы узнать как все это дело в Basic подкорректировать чтобы правильный результат получился)

[Hugo121]

Function CompRanges(rng1 As Range, rng2 As Range) As Boolean
    Dim i As Long: CompRanges = True: Application.Volatile
    For i = 1 To rng1.Count
    If rng2.Item(i) <> 0 And rng1.Item(i) <> 0 Then
        If rng1.Item(i) <> rng2.Item(i) Then CompRanges = False: Exit Function
    End If:    Next
End Function

[ZSV]

Сообщение от DV68

Формулой массива:

=И(ЕСЛИ(A3:A23=0;B3:B23;A3:A23)=ЕСЛИ(B3:B23=0;A3:A23;B3:B23))

правда пустые ячейки считаются тоже за 0.

I'm sorry тут есть малькое НО, дело в том что попробывала я протестировать формулку в своей программе... и вот что выходит... выходит, что применима она не для всех случаев. В приложении я загружу далачку где я отметила заливкой ячейку, короче там ответ должен быть ИСТИНА а получается ЛОЖЬ
Посмотрите ПЛИЗ уж очень хочется разобраться с этой задачкой и знать разные варианты решений)