Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Дата изменения ячейки
 
#1
23.05.2013 20:36:09
Здравствуйте!
Помогите, пожалуйста,  поправить макрос. Необходимо, чтобы при выборе ответственного в столбце «А», например, «Иванов»  в столбце «В» проставлялась  дата выбора его ответственным.  Если вместо Иванова выбирать другого человека, дата должна меняться.
Самое веселое:
Если повторно выбрать в той же ячейке Иванова менять дату в столбце «В» не нужно.
И просто по двойному клику, без выбора менять дату в столбце «В» не нужно.
Сейчас же у меня макрос реагирует на любое «движение» в столбце «А»
 
 
 
#2
23.05.2013 21:11:37
См. вариант.
 
 
 
#3
23.05.2013 21:19:10
Ловко у Вас получилось!
Спасибо!
 
 
 
#4
24.05.2013 11:45:04
Юрий, столкнулся со следующей проблемой.
Если данные в столбце "А" вводить руками или выбирать из списка макрос работает без проблем. Но если в те же ячейки данные пишутся из формы , то время меняется на текущее даже при отсутствии изменений. Т.е. форму открыл, ничего не меняя закрыл с сохранением и время меняется.
 
 
 
#5
24.05.2013 11:54:13
User386, Отключите автоматическое обновление формул в настройках
Изменено: Ivan.kh - 24.05.2013 11:57:54
 
 
 
#6
24.05.2013 12:02:32
Ivan.kh, во-первых, ручной режим обсчета формул это не выход. А во вторых у меня в книге вообще нет ни одной формулы, только макросы и пользователькие формы.
З.Ы. отключить автомат на всякий случай попробовал. Проблема остается.
 
 
 
#7
24.05.2013 12:03:22
Цитата
User386 пишет:
если в те же ячейки данные пишутся из формы , то время меняется на текущее даже при отсутствии изменений.
Правильно - нужен другой подход. Но покажите - где Вы предупреждали о том, что будет использоваться форма?
 
 
 
#8
24.05.2013 12:04:00
Цитата
Ivan.kh пишет:
Отключите автоматическое обновление формул в настройках
А причём тут формулы?
 
 
 
#9
24.05.2013 12:06:35
Юрий М, Что-то затупил, читать разучился :) Прочитал не с формы, а формулой
 
 
 
#10
24.05.2013 12:11:22
Вариант с малой кровью: переда записью из формы программно активировать ячейку, в которую будет производиться запись. Неэстетично, но сработает. Или запоминать в переменную ПЕРЕД записью нового значения, но уже не по SelectionChange, и сравнивать.
 
 
 
#11
24.05.2013 12:12:00
Цитата
Юрий М пишет: ...где Вы предупреждали о том, что будет использоваться форма?
действительно о формах речи не было. Но мысль прикрутить работу с формой показалась интересной, а код работать отказался
 
 
 
#12
24.05.2013 13:09:10
Цитата
Юрий М пишет:
Или запоминать в переменную ПЕРЕД записью нового значения, но уже не по SelectionChange, и сравнивать.
За идею с переменной спасибо!
перед записью формы добавил конструкцию вида

tmp = .Cells(n + 1, 3)
       If tmp <> FIO Then
         .Cells(n + 1, 3).Value = FIO.Text
      End If

и все стало ОК. И даже ваш макрос не пришлось переделывать.
 
 
 
#13
24.05.2013 13:21:32
получается, я просто запретил форме писать в ячейку если там такое же значение.
Но думаю, Юрий, у Вас решение было бы более элегантное.
 
 
 
#14
24.05.2013 13:24:19
Ну почему? Ведь и раньше мы использовали переменную ))
 
 
 
#15
24.05.2013 13:33:53
я не об использовании переменной, а о том куда я ее прикрутил. При дальнейших доработках эта конструкция может мне боком выйти.
Вероятно, разумнее было бы править макрос , проставляющий дату в ячейки.
 
 
 
#16
24.05.2013 13:37:52
Да всё верно: проверяем равенство значения в ячейке и в ТектБоксе - если не равны - пишем, а дата сама встанет (из "старого" макроса).
 
 
 
#17
24.05.2013 13:38:25
Даже без переменной можно обойтись в этом случае.
 
 
 
#18
24.05.2013 13:53:31
Без нее и сделал сравнение.
Спасибо Вам большое!
но чувствую к этой теме еще вернусь
 
 
 
#19
27.05.2013 13:07:31
обнаружилась следующая ошибка:
при попытке выделиль несколько ячеек в любом направлении и попадании в область выделения ячейки из отслеживаемого диапазона макрос выпадает с ошибкой 13.
 
 
 
#20
27.05.2013 21:11:45
Файл где?
 
 
 
#21
27.05.2013 22:05:05
можете попробовать свой вариант ответа во втором сообщении. Выделите несколько ячеек, захватив хоть одну из столбца "А"
 
 
 
#22
27.05.2013 22:13:37
User386, а скажите мне, пожалуйста,- зачем выделять несколько ячеек, если дату нужно менять/оставлять при выборе ОДНОЙ фамилии?
 
 
 
#23
28.05.2013 09:18:59
хотя бы для того, чтобы удалить содержимое нескольких ячеек
 
 
 
#24
28.05.2013 10:34:47
Тогда проверяйте количество выделенных ячеек и при необходимости выполняйте выход из процедуры. Для этого добавьте в самом начале такую проверку:
Код
If Target.Cells.Count > 1 Then Exit Sub
 
 
 
#25
28.05.2013 10:55:16
и то правда!
Спасибо!
 
 
 
#26
02.12.2017 09:15:04
Здравствуйте. Скачал файл Дата изменения 01.xls
Не могу найти макрос, на верно я просто не знаю где он находится. Функция очень полезная, только мне надо что бы в первом столбце стояла формула и при изменении результата формулы менялась дата. Скиньте пожалуйста код макроса.
 
 
 
#27
02.12.2017 10:52:01
Цитата
real-78 написал: я просто не знаю где он находится
ПКМ по ярлыку листа 'Лист1' - Исходный текст
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх