วิธีพิมพ์ป้ายชื่อเอเวอรี่จาก Excel (2 วิธีง่ายๆ)

ฉลากประกอบด้วยกระดาษชิ้นเล็กๆ ที่ให้ข้อมูลเกี่ยวกับวัตถุ บทความนี้อธิบายวิธีการพิมพ์ฉลาก Avery จาก Excel

คุณสามารถดาวน์โหลดสมุดแบบฝึกหัดได้จากลิงค์ด้านล่าง

2 วิธีในการพิมพ์ฉลากเอเวอรี่จาก Excel

Microsoft Excel ทำให้การพิมพ์ฉลากเป็นเรื่องง่าย เป็นที่ยอมรับว่าฉันได้ข้ามรายละเอียดเกี่ยวกับป้ายกำกับที่คุณอาจสำรวจหากต้องการ ที่นี่ วิธีแรกใช้ Word ในขณะที่วิธีที่สองพิมพ์ป้ายกำกับโดยไม่ใช้ Word

มาดูกันว่าเราจะพิมพ์ฉลากได้อย่างไร

1. พิมพ์ฉลากเอเวอรี่โดยใช้ Word จาก Excel

คุณสามารถพิมพ์ฉลาก Avery โดยใช้ Excel และ Word มาดูขั้นตอนกันเลย

ลองพิจารณาชุดข้อมูลต่อไปนี้ที่แสดงใน B4:F14 เซลล์. ที่นี่ คอลัมน์แสดงชื่อบริษัท , ที่อยู่ , เมือง , สถานะ และ รหัสไปรษณีย์ ของผู้รับแต่ละคน

ขั้นตอนที่ 01:กำหนดตารางผู้รับ

• เริ่มแรก เลือก  B4:F14 เซลล์และไปที่ สูตร> กำหนดชื่อ .
• ตอนนี้ กล่องโต้ตอบจะปรากฏขึ้นในตำแหน่งที่เราระบุชื่อที่เหมาะสม ในกรณีนี้คือ Company_Name .

หมายเหตุ: ตรวจสอบให้แน่ใจว่าไม่มีช่องว่างระหว่างคำ แต่คุณอาจใช้ขีดล่างเพื่อแยกแต่ละคำ

ขั้นตอนที่ 02:สร้าง Avery Labels ใน Word

• ประการที่สอง เปิดเอกสารเปล่าใน Microsoft Word และไปที่แท็บ
• กำลังติดตาม ไปที่ Mailings> เริ่มจดหมายเวียน> ป้ายกำกับ .

• ตอนนี้ ให้เลือกตัวเลือกตามที่แสดงในภาพด้านล่าง และคลิก ตกลง เพื่อปิดกล่องโต้ตอบ

• ถัดไป เลือก ออกแบบ> เส้นขอบของหน้า .
• กล่องตัวช่วยสร้างจะปรากฏขึ้นทันที เลือก เส้นขอบ> ตาราง .

สิ่งนี้จะสร้างกริดในเอกสารเปล่า

ขั้นตอนที่ 03:นำเข้ารายชื่อผู้รับจาก Excel ลงใน Word

• ประการที่สาม ไปที่การส่งจดหมาย อย่างไรก็ตาม คราวนี้เลือก เลือกผู้รับ> ใช้รายการที่มีอยู่ .

• ต่อไป เราจะนำเข้าข้อมูลต้นฉบับไปยัง Word โดยเลือกไฟล์ Excel ในกรณีนี้ พิมพ์ Avery Labels .

• ในทางกลับกัน เราเลือกชื่อตาราง Company_Name จากรายการ

สิ่งนี้สร้างการเชื่อมต่อระหว่างเวิร์กชีต Excel และเอกสาร Word

ขั้นตอนที่ 04:แทรกฟิลด์ใน Word

• ประการที่สี่ ไปที่ การส่งจดหมาย> ช่องที่อยู่ และเลือกช่องที่ตรงกัน ตัวเลือกจากกล่องโต้ตอบ

เห็นได้ชัดว่าส่วนหัวของคอลัมน์จากเวิร์กชีตตรงกับฟิลด์ที่เกี่ยวข้องโดยอัตโนมัติ

• คลิก ตกลง เพื่อปิดกล่องโต้ตอบ

ในทางกลับกัน เราจะเห็นตัวอย่างฉลากเพื่อแก้ไขข้อบกพร่องก่อนที่จะดำเนินการต่อไป

• ต่อไป เราคลิก อัปเดตป้ายกำกับ อยู่ใน การส่งจดหมาย แท็บ

เป็นผลให้ป้ายกำกับทั้งหมดเปลี่ยนเป็น AddressBlock .

ขั้นตอนที่ 05:เสร็จสิ้นกระบวนการผสาน

• สุดท้าย ไปที่ การส่งจดหมาย> เสร็จสิ้นและรวม> แก้ไขเอกสารส่วนบุคคล ตัวเลือก

• ถัดไป ในกล่องโต้ตอบ ให้เลือกตัวเลือกตามภาพด้านล่าง และคลิก ตกลง .

ในที่สุด ป้ายกำกับทั้งหมดจะปรากฏในเอกสาร Word

• นอกจากนี้ กด CTRL + P เพื่อเปิดตัวเลือกการพิมพ์ใน Word

นอกจากนี้ คุณยังสามารถดูตัวอย่างฉลากได้จากหน้าต่างแสดงตัวอย่าง

อ่านเพิ่มเติม: วิธีสร้างป้ายกำกับใน Word จากรายการ Excel (คำแนะนำทีละขั้นตอน)

การอ่านที่คล้ายกัน

• วิธีการสร้างป้ายกำกับการส่งจดหมายใน Excel (ด้วยขั้นตอนง่ายๆ)
• วิธีการส่งจดหมายเวียนจาก Excel ไปยัง Word (ด้วยขั้นตอนง่ายๆ)

2. พิมพ์ Single Avery Label โดยไม่ต้องใช้ Word จาก Excel

หากคุณมีข้อมูลที่ขยายเพียงคอลัมน์เดียว คุณสามารถพิมพ์ป้ายผนึกโดยไม่ใช้ Word เป็นขั้นตอนง่ายๆ ทำตามได้เลย

สมมติว่าเรามีชุดข้อมูลต่อไปนี้ใน B4:B13 เซลล์ที่มีคอลัมน์เดียวแสดงที่อยู่ .

ขั้นตอนที่ 01:ทำสำเนาชุดข้อมูล

• ขั้นแรก ให้คัดลอกชุดข้อมูลและวางลงในเวิร์กชีตใหม่

หมายเหตุ: คุณต้องวางข้อมูลในคอลัมน์แรกโดยเริ่มจาก A1 เซลล์และนำส่วนหัวของคอลัมน์ออก

ขั้นตอนที่ 02:ใส่รหัส VBA

• ประการที่สอง ไปที่ นักพัฒนา > ภาพพื้นฐาน .

• ถัดไป ใส่ โมดูล ที่คุณจะวาง VBA รหัส.

เพื่อความสะดวกในการอ้างอิง คุณสามารถคัดลอกและวางโค้ดจากที่นี่

Sub Makelabels()
Application.Run "EnterColumn"
Cells.Select
Selection.RowHeight = 75.75
Selection.ColumnWidth = 34.14
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Sub EnterColumn()
Dim reference As Range
Dim item As Long
Dim data As Long
Set reference = Cells(Rows.Count, 1).End(xlUp)
data = 1
On Error Resume Next
incolno = InputBox("Enter Number of Columns Desired")
For item = 1 To reference.Row Step incolno
Cells(data, "A").Resize(1, incolno).Value = _
Application.Transpose(Cells(item, "A").Resize(incolno, 1))
data = data + 1
Next
Range(Cells(data, "A"), Cells(reference.Row, "A")).ClearContents
End Sub

รายละเอียดโค้ด:

ตอนนี้ ฉันจะอธิบายโค้ด VBA ที่ใช้สร้างป้ายกำกับ ในกรณีนี้ รหัสจะแบ่งออกเป็นสองส่วน

ส่วนที่ 1:คำอธิบายของรูทีนย่อย EnterColumn()

คำอธิบายของ VBA รหัสอยู่ด้านล่าง

• 1- ประการแรก รูทีนย่อยจะได้รับชื่อ และตัวแปรจะถูกกำหนด
• 2- ต่อไป เราจะนับจำนวนแถวและสร้าง InputBox เพื่อรับข้อมูลจากผู้ใช้
• 3- จากนั้น สำหรับ วนซ้ำทำงานหลายครั้งตามที่ระบุใน InputBox .
• 4- ในที่สุด เรา ย้าย คอลัมน์เป็นแถว ปรับขนาด เซลล์ และนำเนื้อหาเพิ่มเติมออก

ส่วนที่ 2:คำอธิบายของรูทีนย่อยของ Makelabels()

ในทำนองเดียวกัน VBA โค้ดอธิบายไว้ด้านล่าง

• 1- ในส่วนนี้ รูทีนย่อยจะได้รับชื่อ
• 2- ต่อไป เราดำเนินการรูทีนย่อย
• 3- สุดท้าย ระบุการจัดรูปแบบเซลล์โดยใช้ เซลล์ ทรัพย์สิน

ขั้นตอนที่ 03:การเรียกใช้โค้ด VBA เพื่อสร้างป้ายกำกับ

• ประการที่สาม กดปุ่ม F5 คีย์เพื่อเรียกใช้ Makelabels() กิจวัตรย่อย
• ในกล่องโต้ตอบ ให้ป้อนจำนวนคอลัมน์

คุณสามารถเพิ่มเส้นขอบโดยใช้ เส้นขอบทั้งหมด ตัวเลือกใน หน้าแรก แท็บ

ขั้นตอนที่ 04:พิมพ์ฉลากจาก Excel

• ประการที่สี่ ไปที่ เค้าโครงหน้า แท็บแล้วคลิก ตั้งค่าหน้ากระดาษ ลูกศรที่มุม
• จากนั้น เลือก ระยะขอบ แล้วปรับระยะขอบของหน้าตามที่แสดงด้านล่าง

• ต่อไป ใช้ CTRL + P เพื่อเปิด พิมพ์ เมนู
• ณ จุดนี้ ให้กดปุ่ม No Scaling แบบเลื่อนลงและเลือก พอดีทุกคอลัมน์ในหน้าเดียว ตัวเลือก

สุดท้าย คุณก็พร้อมที่จะพิมพ์ฉลาก . นอกจากนี้ คุณสามารถดูตัวอย่างก่อนพิมพ์ตามที่แสดงในภาพหน้าจอด้านล่าง

อ่านเพิ่มเติม:วิธีสร้างป้ายกำกับโดยไม่ใช้ Word ใน Excel (คำแนะนำทีละขั้นตอน)

สิ่งที่ควรจำ

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

บทสรุป

ในการสรุป ฉันหวังว่าบทความนี้จะช่วยให้คุณเข้าใจวิธีพิมพ์ป้ายชื่อ Avery จาก Excel หากคุณมีคำถามใด ๆ โปรดแสดงความคิดเห็นด้านล่าง นอกจากนี้ หากคุณต้องการอ่านบทความลักษณะนี้เพิ่มเติม คุณสามารถไปที่เว็บไซต์ของเรา ExcelDemy .

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

• วิธีพิมพ์ป้ายชื่อที่อยู่ใน Excel (2 วิธีด่วน)
• วิธีการแปลง Excel เป็น Word Labels (ด้วยขั้นตอนง่ายๆ)
• วิธีการผสานไฟล์ Excel เข้ากับป้ายกำกับการส่งจดหมาย (ด้วยขั้นตอนง่ายๆ)