Фиксированная текущая дата

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Фиксированная текущая дата (Формулы/Formulas)

mrkanevav

Дата: Пятница, 02.01.2026, 15:05 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Как добавить в ячейку фиксированную текущую дату? Чтоб когда заполнял одну ячейку, во второй заполнялась дата. Создаю документ для оплаты квитанций квартиры

Ответить

DrMini

Дата: Пятница, 02.01.2026, 15:21 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2149

Репутация: 380 ±

Замечаний: 0% ±

Excel LTSC 2024 RUS

И вам mrkanevav здравствовать.
Формулами это не получится, а вот при помощи VBA запросто.
Без вашего файла поглядите тут.

Ответить

mrkanevav

Дата: Пятница, 02.01.2026, 15:48 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

DrMini, правильно? Я профан в экселе

К сообщению приложен файл: 5441564.png (130.2 Kb)

Ответить

mrkanevav

Дата: Пятница, 02.01.2026, 15:50 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

DrMini,

К сообщению приложен файл: 9362037.png (79.4 Kb)

Ответить

i691198

Дата: Пятница, 02.01.2026, 15:57 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 464

Репутация: 142 ±

Замечаний: 0% ±

2016

mrkanevav, Если для вас макросы пока сложны, то можно и без них, выделить эту "вторую" ячейку и нажать Ctrl+Shift+4, будет зафиксирована текущая дата. (Четверка в верхнем ряду клавиатуры)

Ответить

DrMini

Дата: Пятница, 02.01.2026, 18:41 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2149

Репутация: 380 ±

Замечаний: 0% ±

Excel LTSC 2024 RUS

Здесь обычно по фоткам не лечат.
Я сам в VBA вообще ни, как.
Попался на просторах Interneta код от Николая Павлова.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cell In Target
       If Not Intersect(cell, Range("B5:B10,B15:B20,B25:B30,B35:B40,G5:G10,G15:G20,G25:G30,G35:G40,L5:L10,L15:L20,L25:L30,L35:L40")) Is Nothing Then
            With cell.Offset(0, 2)
               .Value = Now
               .EntireColumn.AutoFit
            End With
       End If
    Next cell
End Sub

[/vba]
Попробовал подогнать под ваш пример.
Вроде работает.

К сообщению приложен файл: data.xlsm (16.8 Kb)

Ответить

Фиксированная текущая дата (Формулы/Formulas)

Страница 1 из 1
1