![VBA 代码增强功能](https://linux22.com/image/1600340/VBA%20%E4%BB%A3%E7%A0%81%E5%A2%9E%E5%BC%BA%E5%8A%9F%E8%83%BD.png)
我一直在使用以下宏,它确实运行良好,但到了需要进行一些增强的地步:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myMail As String
If Target.Column = 7 Then
If Target.Value = "option 1" Then
myMail = "email1"
ElseIf Target.Value = "option 2" Then
myMail = "email2"
ElseIf Target.Value = "option 3" Then
myMail = "email3"
ElseIf Target.Value = "option 4" Then
myMail = "email4"
ElseIf Target.Value = "option 5" Then Exit Sub
End If
With CreateObject("Outlook.Application").CreateItem(0)
.To = myMail
.Subject = "Hello"
.Body = "Hi," & vbNewLine & vbNewLine & "This is a test"
.Display
End With
End If
End Sub
“选项”是从第 7 列中每个单元格的下拉列表中选择的(它不允许我使用“G”)。选择其中一个选项后,会自动生成一封电子邮件。
我现在想将同一行中“A”列单元格的值添加到电子邮件的主题行中。例如,如果在单元格 G15 中选择了选项 3,则需要将单元格 A15 中的值添加到电子邮件的主题行中。
除此之外,还需要进一步增强:
由于工作表可能会增长到 100 行,我希望宏生成一个超链接,该超链接链接到列“A”中的确切单元格(从该单元格获取添加到电子邮件主题行的值)。然后需要将此超链接自动添加到电子邮件正文中。