Проверка равенства регионов(Range)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка равенства регионов(Range)

Chelius

Дата: Суббота, 16.03.2013, 22:00 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Пусть есть таблица в файле эксель
1 2 3
4 5 6
засовываем ее в регион rgn1
[vba]

Код

set rgn1=range("A1:C2")

[/vba]

Пусть на строку ниже в этом же файле есть таблица
1 2 3
4 5 6
засовываем ее в регион rgn2
[vba]

Код

set rgn2=range("A4:C5")

[/vba]

как сравнить регионы rgn1 и rgn2 только по набору значений? В данном случае функция должна вернуть Тру. Если мы изменим цифру в любой из таблиц должно вернуться Фэлс.

Ответить

Chelius

Дата: Суббота, 16.03.2013, 22:28 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

если задача кажется не актуальной то представим, что регионы одинаковой, но произвольной формы smile

Ответить

Michael_S

Дата: Воскресенье, 17.03.2013, 10:32 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Chelius, попробуте показать в файле, что значит

Цитата (Chelius)

то представим, что регионы одинаковой, но произвольной формы

и когда ЛОЖЬ, а кода ИСТИНА. Например 1,2,3 и 2,1,3 - это ЛОЖЬ или ИСТИНА?

Сообщение отредактировал Michael_S - Воскресенье, 17.03.2013, 12:05

Ответить

nilem

Дата: Воскресенье, 17.03.2013, 10:53 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

судя по описанию, как-то так, наверное (UDF):
[vba]

Код

Function ert(r As Range, rr As Range) As Boolean
Dim x, y, i&, j&
x = r.Value: y = rr.Value
For i = 1 To UBound(x)
          For j = 1 To UBound(x, 2)
              If x(i, j) <> y(i, j) Then ert = False: Exit Function
          Next j
Next i
ert = True
End Function

[/vba]

а на листе будет такая формула

Код

=ert(A1:C2;A4:C5)