![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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 Всё работает. Единственное время изменения ячейки ставится и при удалении данных. Как этого избежать? |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 370
|
![]()
Например так
Код:
Код:
Последний раз редактировалось agregator; 14.02.2013 в 18:33. |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 370
|
![]()
Кто нибудь, поскажите, как сделать, чтобы при копирование из Редактор Visual Basic, русские буквы отображались правильно, а не так как с здесь.
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
![]()
Закиньте в блокнот а из блокнота сюда...
+ Как вариант подключите кодировку 20880
Заказать макрос можно на сайте http://excel4you.ru/
Последний раз редактировалось Watcher_1; 14.02.2013 в 18:42. |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 370
|
![]()
У меня и в блокнот, вставляются кракозябры.
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 370
|
![]()
Первый раз в блокнот, вставились кракозябры, а потом стали вставляться русские на сам сайт напрямую. Спасибо за совет.
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
Спасибо всё работает!!!:
![]() |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 21.10.2011
Сообщений: 433
|
![]() |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 370
|
![]()
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 |