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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .