Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение/разбиение диапазона в Range - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение/разбиение диапазона в Range (Макросы/Sub)
Изменение/разбиение диапазона в Range
Nikolay86 Дата: Среда, 13.04.2016, 10:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
В примере при клике в диапазон ячеек B8:B888 появляется TextBox, как изменить/разбить диапазон, например, на B8:B34, B45:B56 (чтобы TextBox появлялся только этих диапазонах). Я не знаю синтаксис(, подскажите. Спасибо.
К сообщению приложен файл: Primer2.xls(63Kb)


Сообщение отредактировал Nikolay86 - Среда, 13.04.2016, 10:29
 
Ответить
СообщениеВ примере при клике в диапазон ячеек B8:B888 появляется TextBox, как изменить/разбить диапазон, например, на B8:B34, B45:B56 (чтобы TextBox появлялся только этих диапазонах). Я не знаю синтаксис(, подскажите. Спасибо.

Автор - Nikolay86
Дата добавления - 13.04.2016 в 10:12
Pelena Дата: Среда, 13.04.2016, 10:24 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9890
Репутация: 2269 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Используйте Union
[vba]
Код
Union(Range("B8:B34"), Range("B45:B56"))
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеИспользуйте Union
[vba]
Код
Union(Range("B8:B34"), Range("B45:B56"))
[/vba]

Автор - Pelena
Дата добавления - 13.04.2016 в 10:24
Nikolay86 Дата: Среда, 13.04.2016, 10:36 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Используйте Union

При использовании Union(Range("B8:B34"), Range("B45:B56"), открывает TextBox в диапазоне В8:В56. Приложил пример
[moder]Не надо цитировать пост целиком. Это нарушение Правил форума[/moder]
К сообщению приложен файл: Primer3.xls(58Kb)


Сообщение отредактировал Pelena - Среда, 13.04.2016, 10:48
 
Ответить
Сообщение
Используйте Union

При использовании Union(Range("B8:B34"), Range("B45:B56"), открывает TextBox в диапазоне В8:В56. Приложил пример
[moder]Не надо цитировать пост целиком. Это нарушение Правил форума[/moder]

Автор - Nikolay86
Дата добавления - 13.04.2016 в 10:36
KuklP Дата: Среда, 13.04.2016, 10:38 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Так попробуйте:
[vba]
Код
If Not Intersect(Target, Range("B8:B34,B45:B56")) Is Nothing Then
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеТак попробуйте:
[vba]
Код
If Not Intersect(Target, Range("B8:B34,B45:B56")) Is Nothing Then
[/vba]

Автор - KuklP
Дата добавления - 13.04.2016 в 10:38
Pelena Дата: Среда, 13.04.2016, 10:41 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9890
Репутация: 2269 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
открывает TextBox в диапазоне В8:В56

У меня в В40, например, не открывает


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
открывает TextBox в диапазоне В8:В56

У меня в В40, например, не открывает

Автор - Pelena
Дата добавления - 13.04.2016 в 10:41
KuklP Дата: Среда, 13.04.2016, 10:42 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

У меня в В40, например, не открывает
У меня тоже. Имею ввиду твой вариант, Лен.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Среда, 13.04.2016, 10:43
 
Ответить
Сообщение
У меня в В40, например, не открывает
У меня тоже. Имею ввиду твой вариант, Лен.

Автор - KuklP
Дата добавления - 13.04.2016 в 10:42
Pelena Дата: Среда, 13.04.2016, 10:51 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 9890
Репутация: 2269 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Range("B8:B34,B45:B56")

А я так пыталась [vba]
Код
Range("B8:B34","B45:B56")
[/vba] не вышло :'(


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
Range("B8:B34,B45:B56")

А я так пыталась [vba]
Код
Range("B8:B34","B45:B56")
[/vba] не вышло :'(

Автор - Pelena
Дата добавления - 13.04.2016 в 10:51
Nikolay86 Дата: Среда, 13.04.2016, 12:45 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
If Not Intersect(Target, Range("B8:B34,B45:B56")) Is Nothing Then

Вот это работает как надо!)), странно, я вроде так пробовал и до открытия темы <_< , но видимо где-то ошибся синтаксисе. Спасибо большое, задача решена.
 
Ответить
Сообщение
If Not Intersect(Target, Range("B8:B34,B45:B56")) Is Nothing Then

Вот это работает как надо!)), странно, я вроде так пробовал и до открытия темы <_< , но видимо где-то ошибся синтаксисе. Спасибо большое, задача решена.

Автор - Nikolay86
Дата добавления - 13.04.2016 в 12:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменение/разбиение диапазона в Range (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!