Всем Привет! Помогите пожалуйста решить проблему.
В столбце А записывается исходное значение. В столбце В автоматически или вручную записывается изменяемое значение. В столбце С функция если В больше или равно А тогда YES иначе NO. Задача состоит в том, чтобы при изменении результата функции автоматически отправлялось письмо на почту с текстом в зависимости от результата функции. На одном из форумов нашел этот код. Он отправляет письмо только если вручную изменить ячейку C1. Как можно модифицировать код, чтобы он отправлял письма с разным текстом в зависимости от результата функции? Я в этом профан. Заранее благодарю за помощь!
В столбце А записывается исходное значение. В столбце В автоматически или вручную записывается изменяемое значение. В столбце С функция если В больше или равно А тогда YES иначе NO. Задача состоит в том, чтобы при изменении результата функции автоматически отправлялось письмо на почту с текстом в зависимости от результата функции. На одном из форумов нашел этот код. Он отправляет письмо только если вручную изменить ячейку C1. Как можно модифицировать код, чтобы он отправлял письма с разным текстом в зависимости от результата функции? Я в этом профан. Заранее благодарю за помощь!
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) 'Updated by Extendoffice 2017/9/12 Dim xRgSel As Range Dim xOutApp As Object Dim xMailItem As Object Dim xMailBody As String On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set xRg = Range("C1") Set xRgSel = Intersect(Target, xRg) ActiveWorkbook.Save If Not xRgSel Is Nothing Then Set xOutApp = CreateObject("Outlook.Application") Set xMailItem = xOutApp.CreateItem(0) xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _ " in the worksheet '" & Me.Name & "' were modified on " & _ Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _ " by " & Environ$("username") & "." With xMailItem .To = "Email Address" .Subject = "Worksheet modified in " & ThisWorkbook.FullName .Body = xMailBody .Attachments.Add (ThisWorkbook.FullName) .Display End With Set xRgSel = Nothing Set xOutApp = Nothing Set xMailItem = Nothing End If Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub |