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

Вход

Регистрация

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

 

= Мир MS Excel/Фиксированная текущая дата - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Фиксированная текущая дата (Формулы/Formulas)
Фиксированная текущая дата
mrkanevav Дата: Пятница, 02.01.2026, 15:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Как добавить в ячейку фиксированную текущую дату? Чтоб когда заполнял одну ячейку, во второй заполнялась дата. Создаю документ для оплаты квитанций квартиры
 
Ответить
СообщениеКак добавить в ячейку фиксированную текущую дату? Чтоб когда заполнял одну ячейку, во второй заполнялась дата. Создаю документ для оплаты квитанций квартиры
Автор - mrkanevav
Дата добавления - 02.01.2026 в 15:05
DrMini Дата: Пятница, 02.01.2026, 15:21 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2170
Репутация: 385 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
И вам mrkanevav здравствовать.
Формулами это не получится, а вот при помощи VBA запросто.
Без вашего файла поглядите тут.
 
Ответить
СообщениеИ вам mrkanevav здравствовать.
Формулами это не получится, а вот при помощи VBA запросто.
Без вашего файла поглядите тут.
Автор - DrMini
Дата добавления - 02.01.2026 в 15:21
mrkanevav Дата: Пятница, 02.01.2026, 15:48 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

DrMini, правильно? Я профан в экселе
К сообщению приложен файл: 5441564.png (130.2 Kb)
 
Ответить
СообщениеDrMini, правильно? Я профан в экселе
Автор - mrkanevav
Дата добавления - 02.01.2026 в 15:48
mrkanevav Дата: Пятница, 02.01.2026, 15:50 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

DrMini,
К сообщению приложен файл: 9362037.png (79.4 Kb)
 
Ответить
СообщениеDrMini,
Автор - mrkanevav
Дата добавления - 02.01.2026 в 15:50
i691198 Дата: Пятница, 02.01.2026, 15:57 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 470
Репутация: 145 ±
Замечаний: 0% ±

2016
mrkanevav, Если для вас макросы пока сложны, то можно и без них, выделить эту "вторую" ячейку и нажать Ctrl+Shift+4, будет зафиксирована текущая дата. (Четверка в верхнем ряду клавиатуры)
 
Ответить
Сообщениеmrkanevav, Если для вас макросы пока сложны, то можно и без них, выделить эту "вторую" ячейку и нажать Ctrl+Shift+4, будет зафиксирована текущая дата. (Четверка в верхнем ряду клавиатуры)
Автор - i691198
Дата добавления - 02.01.2026 в 15:57
DrMini Дата: Пятница, 02.01.2026, 18:41 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2170
Репутация: 385 ±
Замечаний: 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)
 
Ответить
СообщениеЗдесь обычно по фоткам не лечат.
Я сам в 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]
Попробовал подогнать под ваш пример.
Вроде работает.
Автор - DrMini
Дата добавления - 02.01.2026 в 18:41
DrMini Дата: Суббота, 03.01.2026, 05:24 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2170
Репутация: 385 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Ну, и ещё Вариант2
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(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"), Target) Is Nothing Then
        If Target > 0 Then Target.Offset(, 2) = Date
        If Target = "" Then Target.Offset(, 2) = ""
    End If
    Application.EnableEvents = True
End Sub
[/vba]
Дата появляется не по любому изменению в ячейке столбца "К уплате", а только если ввести число больше 0.
Когда удаляем данные из столбца "К уплате" в столбце "Дата" данные обнуляются.
Выберите, какой вам вариант предпочтительнее.
К сообщению приложен файл: 9830344.xlsm (20.3 Kb)
 
Ответить
СообщениеНу, и ещё Вариант2
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(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"), Target) Is Nothing Then
        If Target > 0 Then Target.Offset(, 2) = Date
        If Target = "" Then Target.Offset(, 2) = ""
    End If
    Application.EnableEvents = True
End Sub
[/vba]
Дата появляется не по любому изменению в ячейке столбца "К уплате", а только если ввести число больше 0.
Когда удаляем данные из столбца "К уплате" в столбце "Дата" данные обнуляются.
Выберите, какой вам вариант предпочтительнее.
Автор - DrMini
Дата добавления - 03.01.2026 в 05:24
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Фиксированная текущая дата (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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