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

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

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

ฉลากคืออะไร

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

4 ขั้นตอนในการสร้างป้ายกำกับโดยไม่มี Word ใน Excel โดยใช้ VBA

สะดวกในการสร้างป้ายกำกับใน Excel โดยไม่ต้องใช้ Microsoft Word . นอกจากนี้ยังช่วยประหยัดเวลาและความยุ่งยากได้อีกด้วย

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

ขั้นตอนที่ 01 :คัดลอกข้อมูลไปยังแผ่นงานใหม่ใน Excel

• ขั้นแรก ให้คัดลอกที่อยู่ในคอลัมน์แล้ววางลงใน แผ่นงานใหม่ เริ่มจากเซลล์ A1 .

ขั้นตอนที่ 02 :เปิดหน้าต่าง VBA และสร้างโมดูลใน Excel

• จากนั้น กด ALT + F11 เพื่อเปิด VBA หน้าต่าง
• ตอนนี้ เลือกแผ่นงานที่คุณกำลังทำงานอยู่และ คลิกขวา เกี่ยวกับมัน ในกรณีนี้คือ แผ่นที่ 2 .
• ต่อไป ให้เลือก แทรก . ตามลำดับ> โมดูล .

ในที่สุด ชุดขั้นตอนเหล่านี้จะเปิด VBA หน้าต่างและใส่ โมดูล . ใหม่ ในชีตของคุณ

ขั้นตอนที่ 03 :ใส่รหัสใน Excel

• ณ จุดนี้ ให้คัดลอกโค้ดต่อไปนี้แล้ววางลงในช่องว่าง

'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 = 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 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

💡 คำอธิบายโค้ด:

ในขั้นตอนนี้ ผมจะอธิบายโค้ดที่ใช้ด้านบน อย่างที่คุณเห็น รหัสนี้มีสองส่วน ส่วนหนึ่งประกอบด้วย AskForColumn () . ย่อย ซึ่งจะเรียกว่า ตอนที่ 01 และอีกอันมีย่อย Createlabels() ซึ่งจะเรียกว่า ตอนที่ 02 . ตอนนี้ฉันจะอธิบายทั้งสองส่วนนี้ทีละส่วน

ตอนที่ 01 :

ณ จุดนี้ ฉันได้แบ่งรหัสออกเป็นส่วนต่างๆ และกำหนดหมายเลขแต่ละส่วนในภาพหน้าจอต่อไปนี้ ดังนั้นฉันจะอธิบายแต่ละส่วนตามจำนวนของพวกเขาที่นี่

• ส่วนที่ 1: ส่วนนี้สร้างย่อยชื่อ AskForColumn .
• ส่วนที่ 2: ในที่นี้ เราประกาศตัวแปรต่างๆ
• ส่วนที่ 3: ในส่วนนี้ เราจะนับจำนวนแถวในคอลัมน์
• ส่วนที่ 4: ตอนนี้ เราสร้าง InputBox เพื่อขอจำนวนคอลัมน์
• ส่วนที่ 5: ในส่วนนี้ เราเรียกใช้ สำหรับ ห่วง นอกจากนี้เรายังใช้ ขั้นตอน คีย์เวิร์ดเพื่อรันลูปตามจำนวนครั้งที่เราใส่ใน InputBox .
• ส่วนที่ 6 :ในขั้นตอนนี้ เราใช้ส่วนนี้เพื่อกระจายเซลล์ของคอลัมน์ออกเป็นแถวและคอลัมน์ต่างๆ โดยใช้แอปพลิเคชัน ย้าย และคุณสมบัติ ปรับขนาด .
• ส่วนที่ 7: สุดท้ายนี้ เราจะลบเนื้อหาเพิ่มเติมในส่วนนี้

ตอนที่ 02 :

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

• ส่วนที่ 1: ส่วนนี้สร้างย่อยชื่อ Createlabels() .
• ส่วนที่ 2: ในส่วนนี้เราเรียกดวงอาทิตย์ว่า AskForColumn() ที่จะวิ่ง
• ส่วนที่ 3: ณ จุดนี้ ส่วนนี้จะกำหนด รูปแบบเซลล์ สำหรับเซลล์ทั้งหมดโดยใช้ เซลล์ ทรัพย์สิน

ขั้นตอนที่ 04 :เรียกใช้โค้ดเพื่อสร้างป้ายกำกับโดยไม่ใช้ Word ใน Excel

• ตอนนี้ กด F5 เพื่อเรียกใช้ย่อย Createlabels () .
• ดังนั้น คุณจะเห็นกล่องปรากฏขึ้นบนหน้าจอของคุณเหมือนภาพหน้าจอด้านล่าง
• ณ จุดนี้ ให้ใส่จำนวนคอลัมน์ที่คุณต้องการให้มีป้ายกำกับ
• จากนั้น คลิกที่ ตกลง .

• สุดท้าย คุณจะสร้างป้ายกำกับเหมือนภาพหน้าจอด้านล่าง

💡 หมายเหตุ :

• วิธีนี้จะใช้ได้ก็ต่อเมื่อคุณมีข้อมูลในคอลัมน์เดียว
• หลังจากสร้างป้ายกำกับแล้ว คุณสามารถเพิ่มเส้นขอบโดยใช้ เส้นขอบทั้งหมด ตัวเลือกใน หน้าแรก แท็บ
• นอกจากนี้ ตรวจสอบให้แน่ใจว่าคุณเรียกใช้ย่อย Createlabels() . ในกรณีนี้ หากคุณเรียกใช้ย่อย AskForColumn () คุณจะไม่ได้ผลลัพธ์ที่ต้องการ
• นอกจากนี้ อย่าป้อนอย่างอื่นนอกจากที่อยู่ในคอลัมน์ A .

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

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

หลังจากสร้างป้ายกำกับโดยใช้ขั้นตอนข้างต้นแล้ว คุณอาจต้องการพิมพ์ฉลาก . ตอนนี้ หากคุณต้องการทำเช่นนั้น คุณสามารถทำตามขั้นตอนด้านล่าง

ขั้นตอน :

• ขั้นแรก ไปที่ เค้าโครงหน้า จากด้านบนของหน้า
• ถัดไป คลิกที่ ตั้งค่าหน้า ปุ่ม.

• หลังจากนั้น ไปที่ ระยะขอบ .
• ตอนนี้ แก้ไข ด้านบน และ ล่าง ระยะขอบเป็น 0.5 แล้วแก้ไข ซ้าย และถูกต้อง ระยะขอบเป็น 0.215 .
• ดังนั้น คลิกที่ ตกลง .

• ตอนนี้ กด CTRL + P เพื่อเปิด พิมพ์ เมนู
• ณ จุดนี้ ให้คลิกที่  No Scaling และ 4 ตัวเลือกจะปรากฏขึ้น
• ถัดไป จากตัวเลือกเหล่านั้น ให้เลือก พอดีทุกคอลัมน์ในหน้าเดียว .

• สุดท้าย คุณก็พร้อมที่จะพิมพ์
• ในกรณีนี้ ตัวอย่างก่อนพิมพ์ของคุณจะเหมือนกับภาพหน้าจอด้านล่าง

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

บทสรุป

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

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

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