Как добавить метку времени, когда данные ячейки равны определенным значениям

Я ищу решение о том, как ввести 2 метки времени на основе значения одной ячейки, не оставляя ни одной пустой при изменении.

Пример: В столбце А есть выпадающий список для "завершено" и "ожидающий аудит" - я хочу, чтобы в столбце 17 для этой же строки появилась отметка времени, когда выбран ожидающий аудит. И как только он изменится с ожидающего аудита на завершенный для этой же строки, введите метку времени в столбец 18. Таким образом, создаются две временные метки от ожидания до завершения и могут быть документировано, чтобы проанализировать, сколько времени потребовалось от ожидания до завершения.

Формат

Метку времени "м:д:М Ч:М"

1 2
excel vba excel-vba timestamp

1 ответ:

Форматируйте столбцы Q и R, чтобы удовлетворить ваши требования, а затем введите этот небольшой макрос события: 

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim A As Range: Set A = Range("A:A")
   Dim v As String
   If Intersect(Target, A) Is Nothing Then Exit Sub

   Application.EnableEvents = False
      v = Target.Value
      If v = "PENDING AUDIT" Then Target.Offset(0, 16) = Now()
      If v = "COMPLETED" Then Target.Offset(0, 17) = Now()
   Application.EnableEvents = True
End Sub

Поскольку это код рабочего листа, его очень легко установить и автоматически использовать:

  1. Щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
  2. выберите Код вида-откроется окно VBE
  3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте его на пробном листе.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем 2003, необходимо сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

  1. вызовите окна VBE, как указано выше
  2. очистите код
  3. закройте окно VBE

Чтобы узнать больше о макросах в целом, смотрите:

Http://www.mvps.org/dmcritchie/excel/getstarted.htm

И

Http://msdn.microsoft.com/en-us/library/ee814735 (v=office.14).aspx

Чтобы узнать больше о макросах событий (код рабочего листа), см.:

Http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть включены, чтобы это работало!

0