Note: The other languages of the website are Google-translated. Back to English

วิธีการส่ง / อีเมลช่วงเซลล์ผ่าน Outlook จาก Excel

คุณเคยประสบกับปัญหาที่หลังจากเสร็จสิ้นการรายงานในแผ่นงานและคุณต้องส่งไปยังเซลล์ต่างๆในแผ่นงานนี้ซึ่งมีข้อมูลสำคัญบางอย่างไปยังผู้รับเฉพาะของคุณ มีวิธีง่ายๆในการส่งอีเมลจาก Excel โดยไม่ต้องเปิด Outlook หรือไม่?

ส่งช่วงของเซลล์เป็นไฟล์แนบจาก Excel ด้วยรหัส VBA

ส่งช่วงของเซลล์เป็นร่างกายจาก Excel ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวาส่งช่วงของเซลล์เป็นไฟล์แนบจาก Excel ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยให้คุณส่งช่วงที่คุณเลือกเป็นไฟล์แนบใน Excel กรุณาทำตามนี้:

1. เปิดสมุดงานของคุณแล้วกดไฟล์ ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งช่วงของเซลล์เป็นไฟล์แนบจาก Excel

Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "information of kte"
    .Body = "hello, please check and read this document. "
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบนคุณสามารถเปลี่ยนข้อมูลต่อไปนี้ตามความต้องการของคุณเอง

  • . ถึง = "skyyang @extendoffice.com "
  • .CC = ""
  • .BCC = ""
  • .ubject = "ข้อมูลของ kte"
  • .Body = "สวัสดีโปรดตรวจสอบและอ่านเอกสารนี้"

3. จากนั้นคลิก F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงที่คุณต้องการส่ง ดูภาพหน้าจอ:

doc ส่ง range1

4. จากนั้นคลิก OKและกล่องพร้อมต์จะปรากฏขึ้นหลังจากเสร็จสิ้นแถบความคืบหน้าให้คลิก อนุญาตจากนั้นช่วงของเซลล์ที่ระบุจะถูกส่งไปยังผู้รับของคุณเป็นไฟล์แนบ

doc ส่ง range2


ลูกศรสีฟ้าฟองขวาส่งช่วงของเซลล์เป็นร่างกายจาก Excel ด้วยรหัส VBA

หากคุณต้องการส่งช่วงที่เฉพาะเจาะจงเป็นส่วนหนึ่งของเนื้อหาข้อความจาก Excel คุณยังสามารถใช้รหัส VBA ต่อไปนี้เพื่อแก้ไขได้

Kutools สำหรับ Excel, ที่มีมากกว่า 120 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

1. เปิดใช้งานแผ่นงานของคุณและกดไฟล์ ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ส่งช่วงของเซลล์เป็นร่างกายจาก Excel

Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "Please read this email."
    .Item.To = "skyyang@extendoffice.com"
    .Item.Subject = "information of kte"
    .Item.Send
End With
Application.ScreenUpdating = True
End Sub

หมายเหตุ ในรหัสด้านบนคุณสามารถเปลี่ยนข้อมูลต่อไปนี้ตามความต้องการของคุณ

  • .Introduction = "โปรดอ่านอีเมลนี้"
  • .Item To = "skyyang @extendoffice.com "
  • .Item.Subject = "ข้อมูลของ kte"

3. จากนั้นคลิก F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงที่คุณต้องการส่ง

doc ส่ง range1

4. จากนั้นคลิก OKและกล่องพร้อมต์จะปรากฏขึ้นหลังจากเสร็จสิ้นแถบความคืบหน้าให้คลิก อนุญาตจากนั้นช่วงของเซลล์ที่ระบุจะถูกส่งไปยังผู้รับของคุณเป็นเนื้อหาข้อความ

doc ส่ง range2

หมายเหตุ:

1. รหัสเหล่านี้จะใช้ได้เฉพาะเมื่อ Outlook เป็นโปรแกรมเมลของคุณ

2. หลังจากส่งแผ่นงานปัจจุบันคุณสามารถไปที่ Outlook ของคุณเพื่อให้แน่ใจว่าส่งอีเมลสำเร็จหรือไม่


บทความที่เกี่ยวข้อง:

วิธีส่งแผ่นงานผ่าน Outlook จาก Excel เท่านั้น

วิธีส่งสมุดงานปัจจุบันผ่าน Outlook จาก Excel


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (26)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันใช้ Marco ซึ่งเลือกเซลล์ที่จำเป็นในการส่งอีเมล ฉันได้รวมสิ่งนี้กับมาโครอื่นเพื่อที่ฉันจะได้เปิด "อีเมลใหม่" ปัญหาของฉันคือตอนนี้ถ้าคุณใส่ข้อมูลจำนวนมากลงในเซลล์เดียว มันจะใช้เฉพาะ iformaiton ที่คุณไม่ได้ดูข้อมูลทั้งหมดในเซลล์นั้น แนวคิดใด ๆ ?? ขอบคุณมากสำหรับความช่วยเหลือของคุณด้วยเสียงเชียร์นี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน
ฉันมีโครงการให้เลือกช่วงในแผ่นที่ 1 ที่จะส่งทางอีเมลทีละรายการไปยังที่อยู่อีเมลจำนวนมากที่เขียนในแผ่นที่ 2 ในคอลัมน์ A และถ้าคอลัมน์ B ว่างเปล่าโดยมีหัวเรื่องบางอย่างและหลังจากส่งเขาเขียนในแผ่นที่ 2 คอลัมน์ b ส่ง
และให้รอเวลา 10 วินาทีในการส่งอีเมลต่อไปตามเงื่อนไขของเซิร์ฟเวอร์
ใครก็ได้ช่วยฉันที   
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี โปรดแจ้งให้เราทราบถึงวิธีการเพิ่มลายเซ็นและบรรทัดแนะนำที่สองในอีเมลนี้สำหรับโปรแกรมที่สอง ขอบคุณล่วงหน้า.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดี & มีประโยชน์ งานดี!!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก. ขอขอบคุณ . ฉันมีรายชื่อที่อยู่อีเมลในแผ่นงานเดียวกัน เมื่อฉันคลิกไปยังที่อยู่อีเมลหนึ่ง ช่วงของเซลล์ที่เลือกจะถูกส่งเป็นไฟล์แนบในอีเมลนี้ โปรดช่วยฉันในเรื่องนี้ได้ไหม ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี อธิบายได้ดีมาก แทนที่จะส่งเวิร์กบุ๊กใหม่ เราสามารถคัดลอกและวางช่วงที่เลือกลงในเนื้อหาอีเมลแล้วส่งเท่านั้น ฉันไม่ต้องการส่งช่วงที่เลือกเป็นรูปภาพ ฉันต้องการส่งแบบมุมมองตารางในเนื้อหาของอีเมล เราทำได้ไหม??
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ สิ่งนี้มีประโยชน์มาก แต่ถ้าฉันต้องเพิ่มคำอธิบายในเนื้อหาของเมลก่อนส่ง กรุณาแนะนำรหัส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ทุกอย่างดูดีแต่ไม่ให้เส้นขอบช่วงที่เลือก คุณช่วยแนะนำได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากฉันพบวิธีแก้ปัญหานี้นานมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานที่ยอดเยี่ยม มันจะดีกว่าถ้าเห็นสิ่งนี้ส่งออกไปโดยอัตโนมัติ ฉันควรทำอย่างไรเพื่อไม่ให้เกิดข้อผิดพลาดก่อนที่จะส่งต่อ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราสามารถใส่ที่อยู่อีเมลหลาย ๆ ที่จะส่งไปได้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Carey ทั้งหมดข้างต้น VBA สามารถเพิ่มที่อยู่อีเมลจำนวนมาก (ถึง, BCC, CC) เพื่อส่งโดยใช้ ; เป็นตัวคั่น ตัวอย่างเช่น .To = "skyyang@extendoffice.com; ทดสอบ1@extendoffice.com; ทดสอบ2@extendoffice.com "
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ich möchte das kopierte nicht als Datei ใน eine E-Mail einfügen, sondern ต่อสำเนาและวางใน E-Mail einfügen Wie geht das ใน dem VBA-Code?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันมีตารางการตั้งค่าที่ต้องการให้พนักงานกรอกแล้วกดปุ่มคำสั่งที่จะสร้างอีเมลโดยอัตโนมัติ แต่ฉันต้องการให้ข้อมูลจากตารางอยู่ในเนื้อหาอีเมล มีรหัสสำหรับสิ่งนั้นหรือไม่? 
ขอขอบคุณ 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน
ฉันมีโครงการให้เลือกช่วงในแผ่นที่ 1 ที่จะส่งทางอีเมลทีละรายการไปยังที่อยู่อีเมลจำนวนมากที่เขียนในแผ่นที่ 2 ในคอลัมน์ A และถ้าคอลัมน์ B ว่างเปล่าโดยมีหัวเรื่องบางอย่างและหลังจากส่งเขาเขียนในแผ่นที่ 2 คอลัมน์ b ส่ง
และให้รอเวลา 10 วินาทีในการส่งอีเมลต่อไปตามเงื่อนไขของเซิร์ฟเวอร์
ใครก็ได้ช่วยฉันที   
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน
ฉันมีโครงการให้เลือกช่วงในแผ่นที่ 1 ที่จะส่งทางอีเมลทีละรายการไปยังที่อยู่อีเมลจำนวนมากที่เขียนในแผ่นที่ 2 ในคอลัมน์ A และถ้าคอลัมน์ B ว่างเปล่าโดยมีหัวเรื่องบางอย่างและหลังจากส่งเขาเขียนในแผ่นที่ 2 คอลัมน์ b ส่ง
และให้รอเวลา 10 วินาทีในการส่งอีเมลต่อไปตามเงื่อนไขของเซิร์ฟเวอร์
ใครก็ได้ช่วยฉันที   
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี hriad " ถ้าคอลัมน์ B ว่างเปล่ากับเรื่องใดเรื่องหนึ่งและหลังจากส่งเขาเขียนในแผ่นที่ 2 คอลัมน์ b ส่ง
และต้องรอเวลา 10 วินาทีในการส่งอีเมลถัดไปตามเงื่อนไขของเซิร์ฟเวอร์" ฉันไม่เข้าใจ โปรดบอกฉันเกี่ยวกับความต้องการของคุณอีกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีซันนี่
ก่อนอื่น ขอบคุณสำหรับความช่วยเหลือ เนื่องจากเซิร์ฟเวอร์มีเงื่อนไขว่าจะไม่ส่งอีเมลจำนวนมากในวินาทีเดียวกัน ฉันต้องการรอ 10 วินาทีหลังจากส่งอีเมลฉบับแรกและอีเมลฉบับต่อไป
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี hriad โปรดลองใช้โค้ดด้านล่างหลังจากเรียกใช้แล้วจะมีกล่องโต้ตอบให้เลือกช่วงที่คุณต้องการส่ง จากนั้นจะส่งไปยังที่อยู่ในแผ่นงานที่ 2 คอลัมน์ A และหัวข้อในคอลัมน์ B ทุกๆ 10 วินาที , ส่งไปยังที่อยู่เดียว คุณสามารถเปลี่ยนรหัส "โปรดอ่านอีเมลนี้" ได้ตามต้องการ
Sub SendEmailRange()

'อัปเดตโดยExtendoffice20220414

Dim WorkRng เป็นช่วง

Dim xSU, EV เป็นบูลีน

Dim xWsh เป็นเวิร์กชีต

Dim xCount เป็นจำนวนเต็ม

Dim xI เป็นจำนวนเต็ม

เกี่ยวกับข้อผิดพลาดต่อไป

xTitleId = "KutoolsforExcel"

'เลือกช่วงที่ใช้ส่งเป็น body

ตั้งค่า WorkRng = Application.InputBox("Range", xTitleId, Application.Selection.Address, , , , , , 8)

ถ้า WorkRng ไม่มีอะไร ให้ออกจาก Sub
WorkRng.เปิดใช้งาน
งานRng.Select

ตั้งค่า xWsh = ActiveWorkbook.Worksheets("Sheet2") 'แผ่นงานที่มีที่อยู่และหัวเรื่อง

xCount = xWWh.UsedRange.Rows.Count

xSU = Application.ScreenUpdating

EV = ActiveWorkbook.EnvelopeVisible

Application.ScreenUpdating = เท็จ


สำหรับ xI = 1 ถึง xCount

ถ้า (xWsh.Range("A" & xI) = "") แล้ว
ออกสำหรับ
End If
ActiveWorkbook.EnvelopeVisible = จริง
ด้วย ActiveSheet.MailEnvelope
.Introduction = "โปรดอ่านอีเมลนี้"

.Item.To = xWsh.Range("A" & xI)

.Item.Subject = xWsh.Range("B" & xI)

.รายการ.ส่ง
จบด้วย
ถ้า (xI = xCount) แล้ว

ออกสำหรับ

End If

Application.Wait Now + TimeValue("0:00:10")

ต่อไป


Application.ScreenUpdating = xSU

ActiveWorkbook.EnvelopeVisible = EV

ย่อยสิ้นสุด

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีซันนี่
ขอบคุณมากสำหรับความพยายามของคุณ.... ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราสามารถกำหนดช่วง ? ในมาโครของตัวเอง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

แหม่ม พลิก z 6 arkuszami. Każdy z arkuszy 2-6 เพลง zostać wysłany do innej grupy odbiorców jako załącznik excela Czy da się ถึง podpiąć pod 5 przycisków?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะคุณpawerl
ในการแก้ปัญหาของคุณ บทความด้านล่างอาจช่วยคุณได้ โปรดตรวจสอบ:

https://www.extendoffice.com/documents/excel/7178-send-each-sheet-to-different-email.html

ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสิ่งนี้! ฉันจะทดสอบทันทีที่ฉันกลับจากวันหยุด มีคำถามอีกหนึ่งคำถาม มีปัญหากับการเรียกใช้โค้ด vba โดยใช้ปุ่ม Activex (ไม่มีการดำเนินการใดๆ เลย) แม้ว่าโค้ดจะทำงานได้อย่างสมบูรณ์ในโหมดแก้ไขหรือเมื่อเรียกใช้โดย ctrl+ปุ่มที่เลือกจากแป้นพิมพ์ก็ตาม ฉันเพิ่งเริ่มต้นการเดินทาง vba และไม่มี
คิดว่าฉันทำอะไรผิด :/
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะคุณpawerl
คุณเพียงแค่ต้องคัดลอกและวางรหัสลงใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างแล้วคลิก วิ่ง จากแถบเครื่องมือดังภาพด้านล่างที่แสดง: (หมายเหตุ: ในรหัส S1 คือเซลล์ที่มีที่อยู่อีเมลที่คุณต้องการส่งอีเมลไป กรุณาเปลี่ยนตามความต้องการของคุณ)

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-emails.png

กรุณาลองอีกครั้ง!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

ฉันได้ทำทุกอย่างดังที่กล่าวมาแล้วและผลลัพธ์ก็คือ: ทั้งหมดทำงานได้อย่างสมบูรณ์ยกเว้นปุ่ม :) ไม่ได้สนใจเรื่องนี้ในขณะนี้ :)

ขอบคุณมาก!!! ปิดกระทู้ :)
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ