Excel 2016 Автоматическая установка времени VBA

Я искал ответ в Интернете, но не нашел никакой помощи в отношении того, что я пытаюсь сделать. Я хочу, чтобы время автоматически вводилось в соответствующую ячейку в столбце B, когда ячейка столбца A была изменена, то же самое относится к столбцам C и D. Я не хочу, чтобы время обновлялось, что является проблемой, с которой я сейчас сталкиваюсь , Ниже приведен код, который у меня есть:

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 Then Target.Offset(, 1) = Time ElseIf Target.Column = 3 Then Target.Offset(, 1) = Time End If Application.EnableEvents = True End Sub 

Это кодирование работает, но оно обновляет время в столбцах B и D, чего я не хочу. Что я могу добавить, чтобы остановить обновление времени?

Благодарю вас <3

Если я правильно понял ваш вопрос, вы хотите обновить время, если в соседнем столбце уже не указано время? В этом случае это должно работать:

 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 Or Target.Column = 3 Then If Target.Offset(, 1) = vbNullString Then Target.Offset(, 1) = Now() End If Application.EnableEvents = True End Sub 

Это соответствует ответу Гэри Студента, но добавляет условное и немного упрощает код.

  • Проблема столбца fromate при чтении Excel в c #
  • Как написать инструкцию IF в excel для времени и дат в одной и той же ячейке
  • Макрос приложения.SendKeys выполняется слишком медленно. Как улучшить скорость?
  • Apache POI Time Cell
  • Интерконвертирование POSIXct и числовое значение в R
  • Чтение значения времени excel с использованием API OpenXML
  • Apache POI для Excel - нулевая дата
  • Функция «WEEKDAY» дает неправильное значение?
  • Преобразование времени из Excel в несколько секунд
  • Отображение миллисекунд в Excel
  • Excel изменяет формат времени на datetime с помощью MSQuery
  • Interesting Posts

    Скопировать и вставить макрос в определенные диапазоны столбцов

    Событие Click для управления Combobox

    Серия Excel VBA SeriesCollection две серии с различными шкалами значений xvalue

    Чтение файла Excel из Stream Asp.Net Core WebAPI

    Power Query – Yahoo – ошибка HTTP 301

    При генерации excel с использованием POI генерируемый excel имеет разрешение по умолчанию «SPLIT». Как отключить это …?

    vba – читать текстовый файл, сохранять запятые

    Как я могу прочитать несколько столбцов из базы данных Access?

    Excel dll addin не загружается

    ClosedXML: доступ к существующей сводной таблице

    Подсчитайте количество строк, в которых выполняется несколько критериев

    Пожалуйста, объясните элементы кода VBA, типы атрибутов с разным цветом и формой

    Как ускорить сброс DataTable в рабочий лист Excel?

    R: Как отображать значения NA в excel при использовании WriteXLS?

    файл поврежден и не может быть открыт при сохранении документа excel с использованием openXML 2.0

    Давайте будем гением компьютера.