Conas ríomhphost a sheoladh má athraítear cill áirithe in Excel?

Tá an t-alt seo ag caint faoi ríomhphost a sheoladh trí Outlook nuair a dhéantar cill i raon áirithe a mhodhnú in Excel.

Seol r-phost má athraítear cill i raon áirithe le cód VBA

Seol r-phost má athraítear cill i raon áirithe le cód VBA

Más gá duit ríomhphost nua a chruthú go huathoibríoch le leabhar oibre gníomhach ceangailte nuair a athraítear cill i raon A2: E11 i mbileog oibre áirithe, is féidir leis an gcód VBA seo a leanas cabhrú leat.

1. Sa bhileog oibre a chaithfidh tú ríomhphost a sheoladh bunaithe ar a chill modhnaithe i raon áirithe, cliceáil ar dheis ar an táb bileog agus ansin cliceáil ar an Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:

2. Sa popping suas Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid.

Cód VBA: Seol r-phost má athraítear cill i raon sonraithe in Excel

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("A2:E11")
    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

nótaí:

3. Brúigh an Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, athrófar aon chill i raon A2: E11, cruthófar r-phost nua agus an leabhar oibre nuashonraithe ceangailte leis. Agus liostálfar gach réimse sonraithe mar ábhar, faighteoir agus comhlacht ríomhphoist sa ríomhphost. Seol an ríomhphost le do thoil.

nótaí: Ní oibríonn an cód VBA ach amháin má tá Outlook á úsáid agat mar do chlár ríomhphoist.

Earraí gaolmhara:

• Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?
• Conas ríomhphost a sheoladh trí Outlook nuair a shábháiltear leabhar oibre in Excel?
• Conas ríomhphost a sheoladh má chliceáiltear an cnaipe in Excel?
• Conas ríomhphost a sheoladh má tá an dáta dlite comhlíonta in Excel?
• Conas meabhrúchán ríomhphoist nó fógra ríomhphoist a sheoladh má dhéantar an leabhar oibre a nuashonrú in Excel?