Sut i anfon e-bost os yw cell benodol yn cael ei haddasu yn Excel?
Mae'r erthygl hon yn sôn am anfon e-bost trwy Outlook pan fydd cell mewn ystod benodol yn cael ei haddasu yn Excel.
Anfon e-bost os yw cell mewn ystod benodol wedi'i haddasu gyda chod VBA
Anfon e-bost os yw cell mewn ystod benodol wedi'i haddasu gyda chod VBA
Os oes angen i chi greu e-bost newydd yn awtomatig gyda llyfr gwaith gweithredol ynghlwm pan fydd cell yn ystod A2: E11 yn cael ei haddasu mewn taflen waith benodol, gall y cod VBA canlynol eich helpu chi.
1. Yn y daflen waith y mae angen i chi anfon e-bost yn seiliedig ar ei gell wedi'i haddasu mewn ystod benodol, de-gliciwch y tab dalen ac yna cliciwch ar y Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:
2. Yn y popping up Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch islaw'r cod VBA i mewn i ffenestr y Cod.
Cod VBA: Anfon e-bost os yw cell mewn ystod benodol wedi'i haddasu yn 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
Nodiadau:
3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, mae unrhyw gell yn ystod A2: E11 yn cael ei haddasu, bydd e-bost newydd yn cael ei greu gyda'r llyfr gwaith wedi'i ddiweddaru ynghlwm. A bydd yr holl feysydd penodol fel pwnc, derbynnydd a chorff e-bost yn cael eu rhestru yn yr e-bost. Anfonwch yr e-bost.
Nodyn: Mae'r cod VBA yn gweithio dim ond os ydych chi'n defnyddio Outlook fel eich rhaglen e-bost.
Erthyglau cysylltiedig:
- Sut i anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel?
- Sut i anfon e-bost trwy Outlook pan arbedir llyfr gwaith yn Excel?
- Sut i anfon e-bost os yw'r botwm wedi'i glicio yn Excel?
- Sut i anfon e-bost os yw'r dyddiad dyledus wedi'i fodloni yn Excel?
- Sut i anfon nodyn atgoffa neu hysbysiad e-bost os yw'r llyfr gwaith yn cael ei ddiweddaru yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!