在 VBA 中将字符串格式化为电子邮件

Question

我觉得我需要做的很简单。基本上，如果您在 Excel 中的单元格中输入电子邮件地址并点击“Enter”，它会自动变为蓝色并加下划线。然后，如果您将鼠标悬停在它上面，则会弹出一个工具提示，内容为“mailto:email@example.com”。我想完成完全相同的事情，但不是键入字符串，而是 VBA 将其放入单元格中。

我目前已将 VBA 正确插入到单元格中，但之后它不会变成那种“mailto”格式。 这是我的代码中的一个非常基本的版本：

    Dim Email As String
    Email = Cells(7, "B").Value
    ActiveSheet.Cells(1, "D").Value = Email

Answer 1

它的真正基础是：

Cells(1, "A").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "mailto:taco@gmail.com", TextToDisplay:="taco@gmail.com"