Question

我正在尝试在Excel中建立超链接。我想要它做的实际上是发送一封电子邮件（我已经使用公式完成了，因为它使用了各种VLOOKUPs），并且还将今天的日期添加到另一个单元格中（指示电子邮件的发送日期）。

D列中的每一行都包含此超链接，并根据每一行上的信息创建一个不同的超链接。按下超链接后，我希望等效项的AD行注明今天的日期。

即如果我单击单元格D4中的超链接，则AD4将显示今天的日期（并显示一个创建新电子邮件窗口）。

我对宏构建还很陌生，但是我想需要做的是让侦听器检查是否在D列中单击了超链接。单击后，它将带入我单击的单元格，并在其中添加列数，以将其从D转换为AD，然后输出今天的日期。

Answer 1

我认为通过使用HYPERLINK，您正在使用mailto命令来创建电子邮件吗？无论哪种方式，您都可以使用以下内容：

打开VBA，然后将以下代码粘贴到VBA的工作表对象（例如Sheet1（Sheet1））部分中。每次在Sheet1中，如果您单击第4列中的单元格，都会将日期放在广告的适当行中（视情况而定）。

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，或者提示您是否出现消息框，以确认电子邮件发送和添加日期。

使用VBA将日期插入另一列的单元格中

1 个答案: