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

Вход

Регистрация

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

 

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

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

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


Сообщение отредактировал 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

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


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

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

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

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


Сообщение отредактировал 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

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


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
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
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

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

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


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

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

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

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


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


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

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

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

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 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
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 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 из 1
  • 1
Поиск:

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