Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/фиксация текущего времени в момент ввода ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » фиксация текущего времени в момент ввода ячейки (Формулы/Formulas)
фиксация текущего времени в момент ввода ячейки
zaak88 Дата: Среда, 11.08.2021, 09:06 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 173
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Друзья, доброе утро.

Помогите, пожалуйста, с задачкой: требуется при проставлении фамилии вносить текущее время и его фиксировать на момент ввода, при этом запретить замену ввода фамилии.
К сообщению приложен файл: 5475334.xlsx (9.8 Kb)
 
Ответить
СообщениеДрузья, доброе утро.

Помогите, пожалуйста, с задачкой: требуется при проставлении фамилии вносить текущее время и его фиксировать на момент ввода, при этом запретить замену ввода фамилии.
Автор - zaak88
Дата добавления - 11.08.2021 в 09:06
китин Дата: Среда, 11.08.2021, 09:57 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
    
    If Target <> "" Then Target.Offset(0, 1) = Now
    End If
End Sub
[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениев модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
    
    If Target <> "" Then Target.Offset(0, 1) = Now
    End If
End Sub
[/vba]
Автор - китин
Дата добавления - 11.08.2021 в 09:57
zaak88 Дата: Среда, 11.08.2021, 10:08 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 173
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Игорь, попробовал, не срабатывает, возможно не то сделал. Можете в файле направить.
 
Ответить
СообщениеИгорь, попробовал, не срабатывает, возможно не то сделал. Можете в файле направить.
Автор - zaak88
Дата добавления - 11.08.2021 в 10:08
китин Дата: Среда, 11.08.2021, 10:24 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Алексей вводите данные в ячейки В3:В
К сообщению приложен файл: 5475334.xlsm (15.2 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеАлексей вводите данные в ячейки В3:В
Автор - китин
Дата добавления - 11.08.2021 в 10:24
китин Дата: Среда, 11.08.2021, 11:01 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Алексей это как это у вас получилось? с репутацией?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеАлексей это как это у вас получилось? с репутацией?
Автор - китин
Дата добавления - 11.08.2021 в 11:01
zaak88 Дата: Среда, 11.08.2021, 12:17 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 173
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Игорь, хотел повысить, а что получилось
 
Ответить
СообщениеИгорь, хотел повысить, а что получилось
Автор - zaak88
Дата добавления - 11.08.2021 в 12:17
китин Дата: Среда, 11.08.2021, 12:24 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
12 раз повысили. вот мне и интересно: КАК? 12 раз нажали или нажали один раз?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение12 раз повысили. вот мне и интересно: КАК? 12 раз нажали или нажали один раз?
Автор - китин
Дата добавления - 11.08.2021 в 12:24
Юрий_Ф Дата: Среда, 11.08.2021, 14:08 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 777
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
Прошу прощения за свою неосведомлённость.
А модуль листа, это где?

То, что мы делаем, завораживает!
Кстати! Я не могу всем нравиться! И это взаимно!
 
Ответить
СообщениеПрошу прощения за свою неосведомлённость.
А модуль листа, это где?
Автор - Юрий_Ф
Дата добавления - 11.08.2021 в 14:08
Nic70y Дата: Среда, 11.08.2021, 14:22 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Правой кнопкой мыши по ярлыку листа,
исходный текст

ЮMoney 41001841029809
 
Ответить
СообщениеПравой кнопкой мыши по ярлыку листа,
исходный текст
Автор - Nic70y
Дата добавления - 11.08.2021 в 14:22
Юрий_Ф Дата: Среда, 11.08.2021, 14:34 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 777
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
Nic70y

Мгм, спасибо!

То, что мы делаем, завораживает!
Кстати! Я не могу всем нравиться! И это взаимно!
 
Ответить
СообщениеNic70y

Мгм, спасибо!
Автор - Юрий_Ф
Дата добавления - 11.08.2021 в 14:34
Юрий_Ф Дата: Среда, 11.08.2021, 14:49 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 777
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
Nic70y,

Я посмотрел модуль. Виден диапазон столбца B (куда вносятся фамилии). А откуда таблица знает, куда вносить дату и время (столбец С)?
Чтобы значение даты и времени перенести в столбец А, что меняется в модуле? (Попытался перенести копированием в столбец А - дата и время перестают вставляться!)

То, что мы делаем, завораживает!
Кстати! Я не могу всем нравиться! И это взаимно!

Сообщение отредактировал Юрий_Ф - Среда, 11.08.2021, 14:53
 
Ответить
СообщениеNic70y,

Я посмотрел модуль. Виден диапазон столбца B (куда вносятся фамилии). А откуда таблица знает, куда вносить дату и время (столбец С)?
Чтобы значение даты и времени перенести в столбец А, что меняется в модуле? (Попытался перенести копированием в столбец А - дата и время перестают вставляться!)
Автор - Юрий_Ф
Дата добавления - 11.08.2021 в 14:49
китин Дата: Среда, 11.08.2021, 14:50 | Сообщение № 12
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата Nic70y, 11.08.2021 в 14:22, в сообщении № 9 ()
исходный текст

в более поздних версиях, чем 2010 офис написано Просмотреть код

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата Nic70y, 11.08.2021 в 14:22, в сообщении № 9 ()
исходный текст

в более поздних версиях, чем 2010 офис написано Просмотреть код
Автор - китин
Дата добавления - 11.08.2021 в 14:50
Юрий_Ф Дата: Среда, 11.08.2021, 14:55 | Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 777
Репутация: 1 ±
Замечаний: 60% ±

Excel 2010
китин,

У меня Исходный текст. Так что, нашёл и просмотрел!

То, что мы делаем, завораживает!
Кстати! Я не могу всем нравиться! И это взаимно!
 
Ответить
Сообщениекитин,

У меня Исходный текст. Так что, нашёл и просмотрел!
Автор - Юрий_Ф
Дата добавления - 11.08.2021 в 14:55
zaak88 Дата: Среда, 11.08.2021, 15:07 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 173
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Игорь, нажал по паре раз, не срабатывало. Но пусть будет 12 раз, спасибо за помощь.
 
Ответить
СообщениеИгорь, нажал по паре раз, не срабатывало. Но пусть будет 12 раз, спасибо за помощь.
Автор - zaak88
Дата добавления - 11.08.2021 в 15:07
grafok28 Дата: Вторник, 26.04.2022, 20:09 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

Доброго времени суток. К этой теме есть вопрос, как использовать код если в таблице таких столбцов к примеру 10, то есть в 1 вы вводите фамилию во 2ом выбивает время, в 3ем вы пишите имя в 4ом выбивает время и так далее.
Код который скинул Игорь работает, но не получаеться его как бы размножить, т к ругаеться на одинаковые названия в private sub worksheet-change
Помогите пожалуйста
 
Ответить
СообщениеДоброго времени суток. К этой теме есть вопрос, как использовать код если в таблице таких столбцов к примеру 10, то есть в 1 вы вводите фамилию во 2ом выбивает время, в 3ем вы пишите имя в 4ом выбивает время и так далее.
Код который скинул Игорь работает, но не получаеться его как бы размножить, т к ругаеться на одинаковые названия в private sub worksheet-change
Помогите пожалуйста
Автор - grafok28
Дата добавления - 26.04.2022 в 20:09
bigorq Дата: Вторник, 26.04.2022, 22:07 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
grafok28, в строке [vba]
Код
If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
[/vba] пропишите все свои столбцы через ИЛИ
 
Ответить
Сообщениеgrafok28, в строке [vba]
Код
If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
[/vba] пропишите все свои столбцы через ИЛИ
Автор - bigorq
Дата добавления - 26.04.2022 в 22:07
grafok28 Дата: Пятница, 29.04.2022, 16:34 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

bigorq, If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
Прописываю ("B1:B26", "O1:O26" & dat) работает а когда добавляю еще столбцы, то ругаеться.
Мне нужно таких 10 столбцов, я так понял запятая между ними это не команда ИЛИ. Подскажите как правильно пожалуйста
 
Ответить
Сообщениеbigorq, If Not Intersect(Target, Range("B1:B" & dat)) Is Nothing Then
Прописываю ("B1:B26", "O1:O26" & dat) работает а когда добавляю еще столбцы, то ругаеться.
Мне нужно таких 10 столбцов, я так понял запятая между ними это не команда ИЛИ. Подскажите как правильно пожалуйста
Автор - grafok28
Дата добавления - 29.04.2022 в 16:34
bigorq Дата: Пятница, 29.04.2022, 19:01 | Сообщение № 18
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
grafok28, если у вас размер диапазона известен, то &dat не нужен, перечисляйте через запятую столбцы.
 
Ответить
Сообщениеgrafok28, если у вас размер диапазона известен, то &dat не нужен, перечисляйте через запятую столбцы.
Автор - bigorq
Дата добавления - 29.04.2022 в 19:01
grafok28 Дата: Понедельник, 02.05.2022, 15:51 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 20% ±

bigorq, ругаеться на Range перед скобками когда пишу к примеру

If Not Intersect(Target, Range("B1:B", "D1:D", "H1:H")) Is Nothing Then
 
Ответить
Сообщениеbigorq, ругаеться на Range перед скобками когда пишу к примеру

If Not Intersect(Target, Range("B1:B", "D1:D", "H1:H")) Is Nothing Then
Автор - grafok28
Дата добавления - 02.05.2022 в 15:51
Pelena Дата: Понедельник, 02.05.2022, 18:56 | Сообщение № 20
Группа: Админы
Ранг: Местный житель
Сообщений: 19181
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
grafok28, оформите код тегами с помощью кнопки # в режиме правки поста

По теме: объединять диапазоны/столбцы можно так
[vba]
Код
Range("B:B, D:D, H:H")
[/vba]
или использовать UNION

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеgrafok28, оформите код тегами с помощью кнопки # в режиме правки поста

По теме: объединять диапазоны/столбцы можно так
[vba]
Код
Range("B:B, D:D, H:H")
[/vba]
или использовать UNION
Автор - Pelena
Дата добавления - 02.05.2022 в 18:56
Мир MS Excel » Вопросы и решения » Вопросы по Excel » фиксация текущего времени в момент ввода ячейки (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!