พิมพ์ฉลากโดยตรงจาก Excel—ไม่ต้องใช้ Word

กระบวนการพิมพ์ฉลากปกติจาก Microsoft Excel เกี่ยวข้องกับการรวมไปรษณีย์ (mail merge) สเปรดชีตกับ Microsoft Word แต่บางคนชอบทำทุกอย่างภายใน Excel خوشดีที่มีวิธีพิมพ์ฉลากใน Excel โดยไม่ต้องเกี่ยวข้องกับ Word บทช่วยสอนนี้จะเน้นที่วิธีทำให้บรรลุเป้าหมายนั้น

วิธีพิมพ์ฉลากใน Excel โดยไม่ใช้ Word: ขั้นตอนทีละขั้น

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

ก่อนอื่น สมมติว่าเรามีชุดข้อมูลดังนี้

เราจะแปลงข้อมูลแต่ละชิ้นเป็นฉลากก่อน แล้วพิมพ์ใน Excel โดยไม่ใช้ความช่วยเหลือจาก Word

เพื่อวัตถุประสงค์ในการใช้ Microsoft Visual Basic for Applications (VBA) ใน Excel คุณต้องมีแท็บ Developer บนริบบอนของคุณ คลิกที่นี่เพื่อดูวิธี แสดงแท็บ Developer บนริบบอนของคุณ เมื่อคุณมีแล้ว ให้ทำตามขั้นตอนที่เราสาธิตเพื่อพิมพ์ฉลากเหล่านี้ใน Excel โดยไม่ใช้ Word

ขั้นตอนที่ 1: คัดลอกข้อมูลไปแผ่นใหม่

การเลือกของโค้ด VBA ที่นี่จะทำงานได้อย่างถูกต้องก็ต่อเมื่อรายการเซลล์เริ่มต้นจากเซลล์ A1 ดังนั้น เราจึงต้องจัดเรียงชุดข้อมูลที่มีฉลากทั้งหมดให้เป็นเช่นนั้น ในกรณีที่ชุดข้อมูลของคุณเริ่มที่อื่นนอกจากเซลล์ A1 เช่นของเราที่เริ่มที่เซลล์ B5 ให้คัดลอกไปยังสเปรดชีตใหม่และวางที่จุดเริ่มต้น มันควรจะมีลักษณะอย่างนี้

ตอนนี้มันควรพร้อมทำงานกับโค้ด VBA แล้ว

ขั้นตอนที่ 2: แทรกโค้ด VBA

ต่อไป เราต้องแทรกโค้ด VBA เพื่อปรับฉลากให้มีขนาดและรูปร่างที่ต้องการ เพื่อแทรกโค้ด VBA-

• ก่อนอื่น ไปที่แท็บ Developers บนริบบอนของคุณ
• จากนั้นเลือก Visual Basic จากกลุ่ม Code

• ผลคือ หน้าต่าง VBA จะเปิดขึ้น ตอนนี้เลือกแท็บ Insert ในหน้าต่างนั้น และเลือก Module จากเมนูดรอปดาวน์

• หลังจากนั้น ไปที่โมดูลและเขียนโค้ดต่อไปนี้

'This Code Will Create Labels in Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number of Columns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

🔎 คำอธิบายโค้ด

มีสองส่วนหรือ Sub ในโค้ด VBA นี้ คือ Sub CreateLabel และ Sub AskForColumn ก่อนอื่น เราจะอธิบายสิ่งที่เกิดขึ้นใน Sub AskForColumn จากนั้นจึงไปที่ Sub CreateLabel เพื่ออธิบายว่าโค้ดทำงานอย่างไร

ส่วนที่ 1:

เพื่อความเข้าใจที่ดีกว่า เราแบ่งส่วนนี้ออกเป็นส่วนต่างๆ ดูรูปที่ท้ายของการอภิปราย

👉 ส่วนที่ 1: ส่วนนี้ประกาศชื่อ Sub AskForColumn

👉 ส่วนที่ 2: เราใช้ส่วนนี้เพื่อประกาศตัวแปรสามตัว คือ refrg, vrb, และ data

👉 ส่วนที่ 3: ในส่วนนี้ เราตั้งค่าสำหรับ refrg และ data

👉 ส่วนที่ 4: ในจุดนี้ โค้ดจะแสดงกล่องป้อนข้อมูล (Input Box) บนสเปรดชีต

👉 ส่วนที่ 5: ในส่วนนี้ ลูป For จะทำงานสำหรับจำนวนที่ป้อนในกล่องป้อนข้อมูล

👉 ส่วนที่ 6: ส่วนนี้ของโค้ดปรับขนาดเซลล์ใหม่

👉 ส่วนที่ 7: สุดท้าย ส่วนนี้ล้างเนื้อหาเกิน

ส่วนที่ 2:

คล้ายกับส่วนก่อนหน้า เราแบ่ง Sub นี้ออกเป็นส่วนต่างๆ ด้วย ตามรูปที่ท้ายการอภิปราย

👉 ส่วนที่ 1: ส่วนนี้ของโค้ดประกาศชื่อ Sub Createlabels

👉 ส่วนที่ 2: คำสั่งนี้รัน Sub ก่อนหน้าในจุดนี้ของโค้ด

👉 ส่วนที่ 3: ส่วนนี้จัดรูปแบบเซลล์แต่ละเซลล์โดยใช้คุณสมบัติ VBA Cells

ขั้นตอนที่ 3: รันโค้ด VBA

เมื่อคุณใส่โค้ดแล้ว ให้ปิดหน้าต่าง VBA เพื่อรันโค้ด ตามขั้นตอนเหล่านี้

• ก่อนอื่น ไปที่แท็บ Developer บนริบบอนของคุณ
• สอง เลือก Macros จากกลุ่ม Code

• ตอนนี้ในกล่อง Macro เลือก Createlables ภายใต้ Macro name

• จากนั้นคลิก Run
• ต่อไป เลือกจำนวนคอลัมน์ที่คุณต้องการ เราเลือก 3 สำหรับการสาธิต จากนั้นคลิก OK

สเปรดชีตจะมีลักษณะอย่างนี้โดยอัตโนมัติ

ฉลากตอนนี้พร้อมพิมพ์ใน Excel โดยไม่ใช้ Word แล้ว

อ่านเพิ่มเติม: วิธีพิมพ์ฉลาก Avery จาก Excel

ขั้นตอนที่ 4: ตั้งค่าขอบหน้ากำหนดเอง

เพื่อพิมพ์ฉลาก เราต้องตั้งขอบหน้าที่ถูกต้องสำหรับหน้าที่พิมพ์ สำหรับนั้น เราควรเลือกขนาดที่เหมาะสมโดยที่ไม่ส่งผลต่อตำแหน่งฉลากหรือทำให้ฉลากบนแผ่นเสียหาย เพื่อตั้งขอบหน้ากำหนดเอง ตามขั้นตอนเหล่านี้

• ก่อนอื่น ไปที่แท็บ Page Layout บนริบบอนของคุณ
• จากนั้นเลือกปุ่ม Page Setup ตามที่แสดงในรูป คุณสามารถหาได้ที่มุมขวาล่างของแต่ละกลุ่ม

• ผลคือ กล่อง Page Setup จะโผล่ขึ้นมา ตอนนี้ไปที่แท็บ Margins ในกล่องนั้น
• จากนั้นเลือกความยาวขอบหน้าที่ต้องการสำหรับหน้าที่พิมพ์ เราเลือกดังนี้

• เมื่อเสร็จแล้ว คลิก OK

ขั้นตอนที่ 5: เลือกตัวเลือกการปรับขนาดสำหรับการพิมพ์

การปรับขนาดที่เหมาะสมก็สำคัญสำหรับการพิมพ์ฉลาก ตัวอย่างเช่น สิ่งที่เราทำจนถึงตอนนี้จะพิมพ์หน้าออกมาแบบนี้

ซึ่งแน่นอนว่าไม่ใช่เป้าหมายของเรา ดังนั้นเราจึงต้องพอดีกับแผ่นงานในหน้าหนึ่ง เพื่อทำเช่นนั้น-

• ก่อนอื่น ไปที่ส่วนตัวอย่างการพิมพ์โดยกด Ctrl+P บนคีย์บอร์ดของคุณ
• ที่มุมซ้ายล่างของมุมมอง คุณจะพบ Settings ภายใต้นั้น คุณจะพบตัวเลือก Scaling ที่ท้ายสุด

• ตอนนี้ คลิกที่ตัวเลือกการปรับขนาดและเลือก Fit Sheet on One Page จากเมนูดรอปดาวน์

การปรับขนาดสำหรับฉลากจะเสร็จสมบูรณ์ในจุดนี้

อ่านเพิ่มเติม: วิธีพิมพ์ฉลากที่อยู่ใน Excel

ขั้นตอนที่ 6: พิมพ์สเปรดชีต

ในขณะที่คุณยังอยู่บนหน้าจอตัวอย่างการพิมพ์ ให้คลิก Print ที่มุมซ้ายบนของมุมมอง

คลิกที่มัน และมันจะพิมพ์ฉลากทั้งหมดใน Excel โดยไม่ต้องใช้ความช่วยเหลือจาก Word

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

👉 ก่อนรันโค้ด VBA ตรวจสอบให้แน่ใจว่าฉลากทั้งหมดของคุณเริ่มต้นที่เซลล์ A1

👉 เลือกขอบหน้าและการปรับขนาดที่เหมาะสมก่อนพิมพ์ เพื่อให้ฉลากทั้งหมดพอดีกับหน้า มิฉะนั้น บางฉลากอาจถูกตัดออก

👉 การกระทำของโค้ด VBA ไม่สามารถย้อนกลับได้ ดังนั้น ตรวจสอบให้แน่ใจว่าคุณมีข้อมูลที่จำเป็นสำรองไว้ก่อนรันโค้ด

ดาวน์โหลดสมุดงานฝึกฝน

นี่คือไฟล์ที่มีฉลากที่พิมพ์ได้

สรุป

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

สำหรับคู่มือแบบนี้เพิ่มเติม โปรดเยี่ยมชม Exceldemy

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

• วิธีพิมพ์ฉลากจาก Excel ใน Word
• วิธีพิมพ์ฉลาก Avery 5160 จาก Excel
• วิธีพิมพ์ฉลาก Avery 8160 จาก Excel

<< กลับไปที่ Print Labels in Excel | Mailing Labels in Excel | Mail Merge Excel | Learn Excel

รับแบบฝึกหัด Excel ขั้นสูงพร้อมเฉลยฟรี!