จะส่งอีเมลได้อย่างไรหากมีการแก้ไขเซลล์บางเซลล์ใน Excel
บทความนี้กล่าวถึงการส่งอีเมลผ่าน Outlook เมื่อมีการแก้ไขเซลล์ในช่วงที่กำหนดใน Excel
ส่งอีเมลหากเซลล์ในช่วงหนึ่งถูกแก้ไขด้วยรหัส VBA
ส่งอีเมลหากเซลล์ในช่วงหนึ่งถูกแก้ไขด้วยรหัส VBA
ถ้าคุณต้องการสร้างอีเมลใหม่โดยอัตโนมัติโดยแนบสมุดงานที่ใช้งานอยู่เมื่อเซลล์ในช่วง A2:E11 ถูกแก้ไขในแผ่นงานบางแผ่น รหัส VBA ต่อไปนี้สามารถช่วยคุณได้
1. ในแผ่นงานที่คุณต้องส่งอีเมลตามเซลล์ที่แก้ไขในช่วงหนึ่งให้คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:
2. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: ส่งอีเมลหากเซลล์ในช่วงที่ระบุถูกแก้ไขใน 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
หมายเหตุ / รายละเอียดเพิ่มเติม:
3 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
จากนี้ไปเซลล์ใด ๆ ในช่วง A2: E11 จะถูกแก้ไขอีเมลใหม่จะถูกสร้างขึ้นพร้อมแนบสมุดงานที่อัปเดตแล้ว และฟิลด์ที่ระบุทั้งหมดเช่นหัวเรื่องผู้รับและเนื้อหาอีเมลจะแสดงอยู่ในอีเมล กรุณาส่งอีเมล
หมายเหตุ: รหัส VBA ใช้ได้เฉพาะเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลของคุณ
บทความที่เกี่ยวข้อง:
- วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel
- วิธีส่งอีเมลผ่าน Outlook เมื่อบันทึกสมุดงานใน Excel
- จะส่งอีเมลได้อย่างไรหากคลิกปุ่มใน Excel
- จะส่งอีเมลได้อย่างไรหากตรงตามวันที่ครบกำหนดใน Excel
- วิธีส่งอีเมลเตือนความจำหรือการแจ้งเตือนหากมีการอัปเดตสมุดงานใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!