-2

В моих ячейках A1, A2, ..., A10 у меня есть этот код

=IF(B1>0,NOW(),0)

Так что, если B1> 0 A1 равно Date time сейчас, и все это для B2 и A2, B3 и A3 и так далее.

Но проблема в том, что если я изменю, например, B4, все ячейки с A1 на An автоматически изменятся на дату A4, если я что-то сделаю на этом листе A1 ... Автоматическое изменение текущего времени сейчас

1 ответ1

0

Попробуйте этот короткий макрос событий:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim B As Range, I As Range, cell As Range
   Set B = Range("B1:B10")
   Set I = Intersect(Target, B)
   If I Is Nothing Then Exit Sub

   Application.EnableEvents = False
      For Each cell In I
         If cell.Value > 0 Then
            cell.Offset(0, -1).Value = Now()
         Else
            cell.Offset(0, -1).Value = 0
         End If
      Next cell
   Application.EnableEvents = True
End Sub

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

  1. щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
  2. выберите View Code - откроется окно 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

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .