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

Question

我觉得我需要做的事情非常简单。基本上，如果您在Excel中的单元格中键入电子邮件地址并点击＆＃34;输入＆＃34;，它将自动变为蓝色并加下划线。然后，如果将鼠标悬停在其上，则会弹出一个工具提示，读取＆＃34; mailto：email@example.com"。我想完成同样的事情，但不是键入字符串，VBA将其放入单元格。

我目前正在将VBA正确地插入到单元格中，但它不会变成那个＆＃34; mailto＆＃34;然后格式化。 这是我在代码中的基本版本：

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

Answer 1

它的真正基础是：

{{1}}