Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Проверить, находится ли заданный диапазон в пределах определенного столбца
 
#1
11.12.2018 00:49:09
Добрый день.
Как проверить, находится ли выбранный диапазон в пределах столбца "B".
Код
Range("A1:B44")

Здесь ячейки располагаются и в "А", и в "В" - условие не соблюдено.
Могу разве что проверить циклом каждую ячейку, но наверняка есть более короткий путь.

Изменено: ЕжеВика - 11.12.2018 01:11:30
 
 
 
#2
11.12.2018 01:02:08
ЕжеВика, где Вы назначили
Код
Set r1 = Range("A1:B44")
Может тут решение?
 
 
 
#3
11.12.2018 01:06:01
Цитата
ЕжеВика написал:
условие не соблюдено
Почему? Диапазон пересекается со столбцом В.
 
 
 
#4
11.12.2018 01:09:22
Нет :) Видимо не стоило ставить Set в примере, забудем его.
Я понимаю, что человеку это очевидно, но мне нужно чтобы макрос проверил это условие.  
 
 
 
#5
11.12.2018 01:44:11
Код
Sub qqq()
Dim r1 As Range
    Set r1 = Range("A1:B44")
'    Set r1 = Range("B1:B44") 'Раскомментировать для проверки
    If r1.Columns.Count = 1 Then
        If Not Intersect(r1, Columns(2)) Is Nothing Then MsgBox "Диапазон в столбце В"
    End If
End Sub
 
 
 
#6
11.12.2018 07:37:43
Юрий М,  ну интерсект тут явно перебор
Код
If r1.Columns.Count = 1 Then
    If r1.Column = 2 Then MsgBox

Если уж с ним то можно так в одном условии
Код
If r1.Address = Intersect(r1, Columns(2)).Address Then MsgBox
По вопросам из тем форума, личку не читаю.
 
 
 
#7
11.12.2018 13:44:36
Без Intersect никакой жизни. А если ещё учесть, что у меня видеокарта сломалась - вообще хана ((
 
 
 
#8
11.12.2018 14:00:55
Off
Цитата
Юрий М написал:
вообще хана ((
Без Кота и жизнь не та.  Соболезную. Что было?
По вопросам из тем форума, личку не читаю.
 
 
 
#9
11.12.2018 14:05:30
И было и пока есть: ужасно низкое разрешение и пропал красный.
 
 
 
#10
11.12.2018 14:18:51
Off
Цитата
Юрий М написал:
ужасно низкое разрешение и пропал красный.
Юрий, драйверочки проверить и если вдруг обновились, то откатить, если нет то переставить(обновить). Недавно такое было на Intel на одной из машин? правда только с цветом, но что-то мой опыт мне подсказывает что та же причина.
По вопросам из тем форума, личку не читаю.
 
 
 
#11
11.12.2018 14:29:55
Драйвер и откатывал, и ставил заново (с установочного диска и скаченный с сайта) - нет результата. Завтра отнесу в магазин - осталось два дня гарантии ))
 
 
 
#12
11.12.2018 15:04:06
OFF
Юрий М, у и последнее, грузануться с чего-либo точно независимого. LiveCD. Этот НОУТ?
Изменено: БМВ - 11.12.2018 15:09:00
По вопросам из тем форума, личку не читаю.
 
 
 
#13
12.12.2018 22:17:35
Победил: котёнок погрыз VGA кабель )))
 
 
 
Страницы: 1
Наверх