Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нетипичная задача. Диапозоны без данных. / 15 сообщений из 15, страница 1 из 1
22.11.2008, 22:09:54
    #35669912
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Буду очень благодарен, если кто-нибудь откликнется! Задача в следующем. В столбце B пользователь выделяет ручками диапозон пустых ячеек(строк 10-15). Необходимо, чтобы выделение таких же диапозонов проходило в столбцах D,F,H,J. Потом ячейки в этих диапозонах будут объединяться. Но таблица не статична, т.е. постоянно в прокрутке и каждое следуещее выделение в столбце B может проводиться пользователем как выше, так и ниже уже выделеного диапозона.
Извините, если бестолково описал свою проблему!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2008, 11:26: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:33:46
    #35671126
A-Nik
A-Nik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Строку
Код: plaintext
ActiveWorkbook.Names.Add Name:="Addr", RefersTo:=LastTarget.Address
можно убрать, если сделать это же соответствующией формулой макроса Excel4, только я не нашёл какой именно :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 21:44:48
    #35675224
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Большущее спасибо! Отлично работает. Но если столбцы соседние, то макрос объединяет ячейки не в столбцах, а формирует одну большую область. Как этого можно избежать?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 22:02:59
    #35675240
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Большущее спасибо! Отлично работает. Но если столбцы соседние, то макрос объединяет ячейки не в столбцах, а формирует одну большую область. Как этого можно избежать?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2008, 22:31:39
    #35675256
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Большое спасибо! Отлично работает.
Но если столбцы в которых происходит выделение являются смежными, при последующем объединении ячеек в выделенных диапозонах, происходит объединение типа А1:В3, а необходимо получить типа А1:А3 и В1:В3.
Извините, что рарушаю Ваш мозг!
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2008, 10:35:19
    #35675735
A-Nik
A-Nik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Ты скажи вначале для чего тебе это надо? Может можно всё это сделать по другому... ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2008, 20:33:27
    #35680491
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Уважаемый A-Nik Вы один заинтересовались моей проблемой. Попытаюсь объяснить зачем это надо.
Буду очень признателен если сможете помочь.
Таблица создана лет 6 назад (не мной). Для регистрации поступающих материалов.
В столбец F пользователь вносит № счета и объединяет ячейки соответствующие кол-ву материалов, которые приобрели в какой-нибудь конторе. В последнем столбце сумма по счету.
Задача в том, что-бы при объединении ячеек в столбце F, такое же объединение проходило в столбцах G,H,I,P,Q,L.
В столбцах J,K,L,M,N,O объединение привязано к столбцу J.
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2008, 09:48:02
    #35680990
A-Nik
A-Nik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Крик, а вы файлом не ошиблись случасйно ? :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2008, 17:21:25
    #35682677
A-Nik
A-Nik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Опа, ошибочка вышла :-) То я не в тот файл посмотрел
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2008, 17:37:16
    #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
| Ответить | Цитировать | Написать  
29.11.2008, 10:59:24
    #35683285
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Что-то видимо с сервером. Вижу три новых ответа в списке тем, но при открытии темы я их не вижу.
Повторите пожалуйста!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.11.2008, 11:07:57
    #35683292
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Виноват, все отобразилось.
О результатах отчитаюсь позже.
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2008, 15:48:51
    #35683992
Крик
Крик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Отлично! Все получилось.
Большое спасибо!
У меня правда есть еще пара вопросов, но не знаю, задать их в этой теме или организовать новые?
Что скажите?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2008, 17:01:07
    #35684038
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нетипичная задача. Диапозоны без данных.
Крик
У меня правда есть еще пара вопросов, но не знаю, задать их в этой теме или организовать новые?
Что скажите?
В новой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нетипичная задача. Диапозоны без данных. / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 303ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2180066]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 193ms
total:  303ms
x
x
Закрыть


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