ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нетипичная задача. Диапозоны без данных.
15 сообщений из 15, страница 1 из 1
Нетипичная задача. Диапозоны без данных.
    #35669912
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Буду очень благодарен, если кто-нибудь откликнется! Задача в следующем. В столбце B пользователь выделяет ручками диапозон пустых ячеек(строк 10-15). Необходимо, чтобы выделение таких же диапозонов проходило в столбцах D,F,H,J. Потом ячейки в этих диапозонах будут объединяться. Но таблица не статична, т.е. постоянно в прокрутке и каждое следуещее выделение в столбце B может проводиться пользователем как выше, так и ниже уже выделеного диапозона.
Извините, если бестолково описал свою проблему!
...
Рейтинг: 0 / 0
22.11.2008, 22:09:54
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35671097
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Если я вас правильно понял, то как-то вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastTarget As Range
Set LastTarget = Target.Areas(Target.Areas.Count)
If LastTarget.Address Like "$B*:$B*" Then
  Application.EnableEvents = False
  ActiveWorkbook.Names.Add Name:="Addr", RefersTo:=LastTarget.Address
  Union(Selection, Range(Join([Transpose(Transpose(SUBSTITUTE(Addr,"B",{"D","F","H","J"})))], ","))).Select
  Application.EnableEvents = True
End If
End Sub
...
Рейтинг: 0 / 0
24.11.2008, 11:26:54
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35671126
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Строку
Код: plaintext
ActiveWorkbook.Names.Add Name:="Addr", RefersTo:=LastTarget.Address
можно убрать, если сделать это же соответствующией формулой макроса Excel4, только я не нашёл какой именно :-)
...
Рейтинг: 0 / 0
24.11.2008, 11:33:46
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35675224
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Большущее спасибо! Отлично работает. Но если столбцы соседние, то макрос объединяет ячейки не в столбцах, а формирует одну большую область. Как этого можно избежать?
Спасибо!
...
Рейтинг: 0 / 0
25.11.2008, 21:44:48
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35675240
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Большущее спасибо! Отлично работает. Но если столбцы соседние, то макрос объединяет ячейки не в столбцах, а формирует одну большую область. Как этого можно избежать?
Спасибо!
...
Рейтинг: 0 / 0
25.11.2008, 22:02:59
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35675256
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Большое спасибо! Отлично работает.
Но если столбцы в которых происходит выделение являются смежными, при последующем объединении ячеек в выделенных диапозонах, происходит объединение типа А1:В3, а необходимо получить типа А1:А3 и В1:В3.
Извините, что рарушаю Ваш мозг!
Спасибо!
...
Рейтинг: 0 / 0
25.11.2008, 22:31:39
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35675735
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Ты скажи вначале для чего тебе это надо? Может можно всё это сделать по другому... ;-)
...
Рейтинг: 0 / 0
26.11.2008, 10:35:19
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35680491
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Уважаемый A-Nik Вы один заинтересовались моей проблемой. Попытаюсь объяснить зачем это надо.
Буду очень признателен если сможете помочь.
Таблица создана лет 6 назад (не мной). Для регистрации поступающих материалов.
В столбец F пользователь вносит № счета и объединяет ячейки соответствующие кол-ву материалов, которые приобрели в какой-нибудь конторе. В последнем столбце сумма по счету.
Задача в том, что-бы при объединении ячеек в столбце F, такое же объединение проходило в столбцах G,H,I,P,Q,L.
В столбцах J,K,L,M,N,O объединение привязано к столбцу J.
Спасибо!
...
Рейтинг: 0 / 0
27.11.2008, 20:33:27
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35680990
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Крик, а вы файлом не ошиблись случасйно ? :-)
...
Рейтинг: 0 / 0
28.11.2008, 09:48:02
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35682677
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Опа, ошибочка вышла :-) То я не в тот файл посмотрел
...
Рейтинг: 0 / 0
28.11.2008, 17:21:25
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35682723
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Nik
Гость
Тогда попробуйте так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastTarget As Range
On Error Resume Next
Set LastTarget = Target.Areas(Target.Areas.Count)
If LastTarget.Address Like "$B*:$B*" Then
  Application.EnableEvents = False
  ActiveWorkbook.Names.Add Name:="Addr", RefersTo:=LastTarget.Address( 0 ,  0 )
  Range(Selection.Address( 0 ,  0 ) & "," & Join([Transpose(Transpose(SUBSTITUTE(Addr,"B",{"A","D","F","H","J"})))], ",")).Select
  Application.EnableEvents = True
End If
End Sub
...
Рейтинг: 0 / 0
28.11.2008, 17:37:16
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35683285
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Что-то видимо с сервером. Вижу три новых ответа в списке тем, но при открытии темы я их не вижу.
Повторите пожалуйста!
...
Рейтинг: 0 / 0
29.11.2008, 10:59:24
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35683292
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Виноват, все отобразилось.
О результатах отчитаюсь позже.
Спасибо!
...
Рейтинг: 0 / 0
29.11.2008, 11:07:57
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35683992
Крик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Крик
Участник
Отлично! Все получилось.
Большое спасибо!
У меня правда есть еще пара вопросов, но не знаю, задать их в этой теме или организовать новые?
Что скажите?
...
Рейтинг: 0 / 0
30.11.2008, 15:48:51
| Ответить | Цитировать | Написать  
Нетипичная задача. Диапозоны без данных.
    #35684038
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Крик
У меня правда есть еще пара вопросов, но не знаю, задать их в этой теме или организовать новые?
Что скажите?
В новой.
...
Рейтинг: 0 / 0
30.11.2008, 17:01:07
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нетипичная задача. Диапозоны без данных.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35671126&tid=2180066]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 194ms
total:  302ms
созд. / загр.: 302ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]