将string格式化为VBA中的电子邮件

我觉得我需要做的很简单。 基本上，如果您在Excel中的单元格中input电子邮件地址，然后按“Enter”键，它将自动变为蓝色并加下划线。 然后，如果将鼠标hover在上面，则会popup一个工具提示“mailto：[e-mail]”。 我想完成同样的事情，但不是键入string，而是将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:[e-mail]", TextToDisplay:="[e-mail]"