你好,电晕你
可以使用这行代码:
按住Alt+F11,打开VBA编辑器,然后找到你的工作表(比如Sheet1),双击打开,然后输入以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutlookApp As Object
Dim MailItem As Object
Dim cell As Range
' 检查是否是J列,如果你是在别的列输入,直接代码里更改即可
If Not Intersect(Target, Me.Columns("J")) Is Nothing Then
For Each cell In Target
If cell.Value = "提醒" Then
' 创建Outlook应用对象
Set OutlookApp = CreateObject("Outlook.Application")
Set MailItem = OutlookApp.CreateItem(0)
' 设置邮件属性,下面输入你的outlook具体邮箱
With MailItem
.To = "[email protected]"
.Subject = "提醒通知"
.Body = "J" & cell.Row & "单元格已输入提醒"
.Send
End With
End If
Next cell
End If
End Sub
希望以上信息能对您有所帮助。如果您需要进一步帮助,请随时发送信息。
最美好的祝愿
Aiden.C - MSFT |微软社区支持专家