|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.04.2011, 13:20 | #22 | |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Цитата:
Я нашел то, что мне нужно, только оно реализовано в макросе. Мне не принципиально, но он ошибку кидает: "Compile error: Ambiguous name detected: Workcheet_Change" на эту строку ругается: Private Sub Worksheet_Change(ByVal Target As Range) Макрос на двух пробных документах работает, а на основном - нет. Не могу понять почему. Вот макрос целиком: Код:
|
|
02.04.2011, 13:47 | #23 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Private Sub Worksheet_Activate()
и Private Sub Worksheet_Change(ByVal Target As Range) должны быть в коде листа, и в одном экземпляре.
webmoney: E265281470651 Z422237915069 R418926282008
|
02.04.2011, 14:02 | #24 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
да у меня этих строк получается две. А как исправить ошибку? Строку же нельзя просто стереть? Чем её заменить можно, подскажите, пожалуйста?
|
02.04.2011, 14:10 | #25 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Объединить оба кода в одной процедуре.
Т.е. в одной Private Sub Worksheet_Change(ByVal Target As Range) размещаете оба кода - AutoUniqCount Target и тот, что там был. Чтоб всё прошло гладко - это нужно по месту смотреть.
webmoney: E265281470651 Z422237915069 R418926282008
|
02.04.2011, 14:27 | #26 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Можно еще разочек Вас побеспокоить и всё ?
Посмотрите, пожалуйста, вот целиком все макросы: Код:
|
02.04.2011, 15:04 | #27 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Нет, я комбо рисовать не буду. Давйте в файле.
А так предварительно - Private Sub Worksheet_Change(ByVal Target As Range) AutoUniqCount Target If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b3:b300")) Is Nothing Then With Target(1, 0) .Value = Now End With End If End Sub Только ещё вероятно Application.EnableEvents = False нужно добавить.
webmoney: E265281470651 Z422237915069 R418926282008
|
02.04.2011, 15:30 | #28 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Попробовал, не работает, но и ошибку не кидает...
Добавил файлик во вложения, посмотрите пожалуйста, что не так. |
02.04.2011, 17:33 | #29 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну первопричина - это то, что на изменение комбо не происходит событие Worksheet_Change
Потому что: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 02.04.2011 в 17:35. |
02.04.2011, 17:48 | #30 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Замените весь свой код модуля листа на этот (лишнее не стирал, только закомментировал):
Код:
Но ограничение диапазона в 297 строк я бы вероятно переделал на динамическое, по последней заполненной ячейке. Так например - попробуйте эти два кода заменить на: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 02.04.2011 в 18:04. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как присвоить одной ячейке несколько значений? | Хорошая Девочка | Microsoft Office Excel | 2 | 10.10.2010 20:58 |
Присвоить ячейке StringGrid переменную | DimOn4Ik | Помощь студентам | 6 | 19.01.2010 16:27 |
присвоить значение ячейки с курсором ячейке А1 | Temnota | Microsoft Office Excel | 5 | 24.11.2009 21:10 |
Как присвоить ячейке имя? | Maxx | Microsoft Office Excel | 2 | 01.11.2008 11:30 |
как присвоить значение ячейки R1C1 из 1.xls, допустим какой-нибудь любой ячейке из 2.xls ? | diabloskrk | Microsoft Office Excel | 3 | 08.10.2007 12:27 |