Если пользователь вводит текст в ячейку, то возвращает имя пользователя и дату в другой ячейке.

Question

Справка, На общем листе, если пользователь добавляет текст в ячейку, нажмите кнопку, чтобы вернуть имя пользователя и дату в другой ячейке. Например, ячейка B3 = Complete, затем ячейка C3 возвращает Джона Смита 14/04/19

Большое спасибо!

Answer 1

Нет необходимости в VBA.Попробуйте:

=IF(B6="Complete", "User Name " & TEXT(NOW(),"dd/mm/yyyy"),"")

Результаты:

Answer 2

Может быть полезна дополнительная информация. Я собираюсь предположить, что макет листа выглядит следующим образом. Вам понадобится какой-то способ указать, кто является текущим пользователем, и в этом примере я использовал ячейку A2.

Если макет не такой, как показано, вам необходимо соответствующим образом отредактировать код.

Sub date_user()

Dim lastrow As Long
Dim rng As Range, cell As Range

With Application.ActiveSheet
    Name = .Range("A2").Value
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set rng = .Range("B3:B" & lastrow)
End With

For Each cell In rng
    If cell.Offset(0, 1).Value = 0 Then
        If Len(cell.Value) > 0 Then
           cell.Offset(0, 1).Value = Name & " " & Format(Now(), "MMM-DD-YYYY")
        End If
    End If
Next     
End Sub