Вставьте дату в ячейку другого столбца, используя VBA

Question

Я пытаюсь создать гиперссылку в Excel.По сути, я хочу, чтобы он отправил электронное письмо (которое я сделал, используя формулу, поскольку в нем используются различные VLOOKUP), а также добавил сегодняшнюю дату в другую ячейку (с указанием даты отправки электронного письма).

Каждая строка в столбце D содержит эту гиперссылку, и в зависимости от информации о каждой строке создается другая гиперссылка.После того, как гиперссылка нажата, я хочу, чтобы в строке AD аналогичной была указана сегодняшняя дата.

т.е. если я щелкну гиперссылку в ячейке D4, AD4 будет иметь вывод текущей даты (и появится окно создания нового электронного письма).

Я довольно новичок в построении макросов, но то, что янужно предположить, что слушатель проверяет, нажата ли гиперссылка в столбце D. После того, как она нажата, она берет ячейку, в которую я нажал, и добавляет в нее число столбцов, чтобы превратить ее из D в AD,затем выведите сегодняшнюю дату.

Answer 1

Я предполагаю, что с помощью HYPERLINK вы используете команду mailto для создания электронной почты? В любом случае ... вы можете использовать следующее:

Откройте VBA и вставьте приведенный ниже код в объект Sheet (например, Sheet1 (Sheet1)) в VBA. Каждый раз, когда вы щелкаете ячейку в столбце 4 в листе 1, она помещает дату в соответствующую строку AD (изменяется соответствующим образом).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 Then
    Range("AD" & Target.Row).Value = Date
Else
End If
End Sub

Это очень просто, вы можете добавить проверку, чтобы увидеть, что нажатая ячейка содержит HYPERLINK, или, возможно, запросить окно сообщения, подтверждающее отправку электронной почты и дату добавления.