Пользовательская функция вставки текущих даты-времени в качестве статического значения

@ooos · Регистрация: 08.04.2021

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Возможно ли создать пользовательскую функцию для заданного диапазона соответствующую формуле:
При заполнении ячейки В2 текстом или числами ячейка E2 заполняется значением текущей даты а F2 - времени?

Visual Basic
1
2
3
4
5
6
7
Sub ЗначДатаВремяТекущ()
    If Not Intersect(ActiveCell, Range("B2:B13")) Is Nothing Then
        Cells(ActiveCell.Row, 5).Value = Format(Date, "mm/dd/yyyy")
        Cells(ActiveCell.Row, 6).Value = Format(Now, "hh:mm:ss")
'       как вариант Cells(ActiveCell.Row, 5).Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
    End If
End Sub

@Hugo121 · 10.02.2025, 15:42

ooos, я сейчас просто добавил в тот файл строку чтоб потестить - и формула пересчиталась. Так что использовать с осторожностью!

Добавлено через 30 секунд

Сообщение от ooos

Попытался уже получить данный эффект,

Visual Basic
1
2
3
Function DateTime2cells(c As Range)
If Len(c.Value) > 0 Then DateTime2cells = Array(Date, Time) Else DateTime2cells = Array("", "")
End Function

@ooos · 10.02.2025, 15:47 **[ТС]**

Сообщение от Hugo121

Так что использовать с осторожностью!

Хорошо, учту ньюансы.
Похоже что пересчет происходит только при смене кода функции на новый, далее - в штатном режиме..

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

Опции темы