|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.02.2013, 16:56 | #1 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Время внесения изменения в ячейке
Здравствуйте!
Подскажите пожалуйста. При занесении данных в ячейки - в соседних автоматом ставится время занесения данных. Сделал так : Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target 'проходим по всем измененным ячейкам If Not Intersect(cell, Range("B3:B42")) Is Nothing Then 'если изменененная ячейка попадает в диапазон B3:B50 With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату .Value = Now .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With End If Next cell Всё работает. Единственное время изменения ячейки ставится и при удалении данных. Как этого избежать? |
14.02.2013, 18:24 | #2 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Например так
Код:
Код:
Последний раз редактировалось agregator; 14.02.2013 в 18:33. |
14.02.2013, 18:30 | #3 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Кто нибудь, поскажите, как сделать, чтобы при копирование из Редактор Visual Basic, русские буквы отображались правильно, а не так как с здесь.
|
14.02.2013, 18:40 | #4 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Закиньте в блокнот а из блокнота сюда...
+ Как вариант подключите кодировку 20880
Заказать макрос можно на сайте http://excel4you.ru/
Последний раз редактировалось Watcher_1; 14.02.2013 в 18:42. |
14.02.2013, 18:45 | #5 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
У меня и в блокнот, вставляются кракозябры.
|
14.02.2013, 18:51 | #6 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Первый раз в блокнот, вставились кракозябры, а потом стали вставляться русские на сам сайт напрямую. Спасибо за совет.
|
14.02.2013, 19:48 | #7 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Спасибо всё работает!!!:
|
14.02.2013, 23:31 | #8 |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
|
15.02.2013, 16:51 | #9 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
strannick, СПАСИБО. Всё именно так и есть. Проблема была именно в раскладке клавиатуры.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обработчик события изменения в ячейке в Excel | TorLink | Microsoft Office Excel | 38 | 10.10.2012 22:01 |
Время изменения файла | Fok | Общие вопросы Delphi | 4 | 04.10.2010 16:13 |
На какое событие повесить процедуру изменения насыщенности шрифта в ячейке? | O_H | Microsoft Office Excel | 3 | 19.08.2010 20:06 |
макрос изменения формулы в ячейке по назначеной клавише | sdlm | Microsoft Office Excel | 2 | 25.12.2009 13:53 |
Насчет изменения цвета текста в ячейке | motorway | Microsoft Office Excel | 2 | 18.07.2009 19:38 |