ฉลากมีประโยชน์ต่อเราในหลายๆ ด้าน คุณสามารถสร้างฉลากใน Excel ด้วยความช่วยเหลือของ Microsoft Word ได้ แต่ในบางกรณี อาจเป็นความยุ่งยากและใช้เวลามาก ดังนั้น คุณอาจต้องการสร้างฉลากใน Excel โดยไม่ใช้ Word บทความนี้สาธิตคู่มือทีละขั้นตอนของวิธีสร้างฉลากใน Excel โดยไม่ใช้ Word
คุณสามารถดาวน์โหลดสมุดงานฝึกปฏิบัติได้จากลิงก์ด้านล่าง
ฉลากคืออะไร?
โดยทั่วไป ฉลากคือสติกเกอร์หรือชิ้นกระดาษที่อธิบายวัตถุหรือผลิตภัณฑ์ที่ติดอยู่ ฉลากถูกใช้ในหลายๆ การประยุกต์ ตัวอย่างเช่น ผู้คนต้องสร้างฉลากสำหรับที่อยู่ เพื่อที่จะติดบนซองจดหมาย นอกจากนี้ เรายังเห็นฉลากติดอยู่บนฮาร์ดแวร์ในคอมพิวเตอร์ของเรา เพื่อที่เราจะสามารถระบุและทราบข้อกำหนดของพวกเขาได้
4 ขั้นตอนสร้างฉลากโดยไม่ใช้ Word ใน Excel ด้วย VBA
การสร้างฉลากใน Excel โดยไม่ต้องใช้ Microsoft Word นั้นสะดวกมาก นอกจากนี้ยังประหยัดเวลาและความยุ่งยากอีกด้วย
ตอนนี้ สมมติว่าคุณมีชุดข้อมูลที่มีรายการ ที่อยู่ ที่คุณต้องการส่งการ์ดคริสต์มาส ณ จุดนี้ คุณต้องการสร้างฉลากสำหรับ ที่อยู่ เหล่านี้ใน Excel โดยไม่ใช้ Word ในกรณีนี้ คุณสามารถทำตามชุดขั้นตอนด้านล่างเพื่อทำได้
ขั้นตอนที่ 01: คัดลอกข้อมูลไปยังแผ่นใหม่ใน Excel
- ขั้นแรก คัดลอกที่อยู่ในคอลัมน์และวางลงใน New Sheet เริ่มต้นจากเซลล์ A1
ขั้นตอนที่ 02: เปิดหน้าต่าง VBA และสร้าง Module ใน Excel
- จากนั้น กด ALT + F11 เพื่อเปิดหน้าต่าง VBA
- ตอนนี้ เลือกแผ่นที่คุณกำลังทำงานอยู่และ Right-Click บนมัน ในกรณีนี้คือ Sheet 2
- ต่อไป เลือก Insert > Module ตามลำดับ
สุดท้าย ชุดขั้นตอนเหล่านี้จะเปิดหน้าต่าง VBA และแทรก Module ใหม่ในแผ่นของคุณ
ขั้นตอนที่ 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 
💡 คำอธิบายโค้ด:
ในขั้นตอนนี้ จะอธิบายโค้ดที่ใช้ข้างต้น ตามที่คุณเห็น มีสองส่วนของโค้ดนี้ ส่วนหนึ่งมี sub AskForColumn () ซึ่งจะเรียกว่า ส่วน 01 และอีกส่วนมี sub Createlabels() ซึ่งจะเรียกว่า ส่วน 02 ตอนนี้ จะอธิบายทั้งสองส่วนนี้ทีละส่วน
ส่วน 01:
ในจุดนี้ แบ่งโค้ดออกเป็นส่วนต่างๆ และใหม่หมายเลขแต่ละส่วนในภาพหน้าจอต่อไป conséquent นี่คือคำอธิบายแต่ละส่วนตามหมายเลขของพวกเขา
- ส่วน 1: สร้าง sub ชื่อ AskForColumn
- ส่วน 2: ประกาศตัวแปรต่างๆ ที่นี่
- ส่วน 3: ในส่วนนี้ เรานับจำนวนแถวในคอลัมน์
- ส่วน 4: ตอนนี้ ที่นี่เราสร้าง InputBox เพื่อถามจำนวนคอลัมน์ที่ต้องการ
- ส่วน 5: ในส่วนนี้ เราใช้ลูป For นอกจากนี้ ใช้คีย์เวิร์ด Step เพื่อรันลูปจำนวนครั้งที่เราใส่ใน InputBox
- ส่วน 6: ในขั้นตอนนี้ ใช้ส่วนนี้เพื่อกระจายเซลล์ของคอลัมน์ไปยังแถวและคอลัมน์ที่แตกต่างกันโดยใช้ Transpose ของ application และคุณสมบัติ Resize
- ส่วน 7: สุดท้าย เราลบเนื้อหาเพิ่มเติมในส่วนนี้
ส่วน 02:
ในกรณีนี้ ยังแบ่งโค้ดออกเป็นส่วนต่างๆ และใหม่หมายเลขแต่ละส่วนในภาพหน้าจอต่อไป conséquent นี่คือคำอธิบายแต่ละส่วนตามหมายเลขของพวกเขา
- ส่วน 1: สร้าง sub ชื่อ Createlabels()
- ส่วน 2: ในส่วนนี้ เราเรียก sub AskForColumn() ให้ทำงาน
- ส่วน 3: ณ จุดนี้ ส่วนนี้กำหนด Cell Format สำหรับเซลล์ทั้งหมดโดยใช้คุณสมบัติ Cells
ขั้นตอนที่ 04: รันโค้ดเพื่อสร้างฉลากโดยไม่ใช้ Word ใน Excel
- ตอนนี้ กด F5 เพื่อรัน sub Createlabels ()
- ผลลัพธ์คือ คุณจะเห็นกล่องปรากฏบนหน้าจอของคุณเหมือนภาพหน้าจอด้านล่าง
- ณ จุดนี้ ใส่จำนวนคอลัมน์ที่คุณต้องการให้ฉลากอยู่
- จากนั้น คลิก OK
- สุดท้าย คุณจะได้ฉลากที่สร้างขึ้นเหมือนภาพหน้าจอด้านล่าง
💡 หมายเหตุ:
- วิธีนี้จะทำงานก็ต่อเมื่อคุณมีข้อมูลในคอลัมน์เดียวเท่านั้น
- หลังจากสร้างฉลากแล้ว คุณสามารถเพิ่มขอบโดยใช้ตัวเลือก All Borders ในแท็บ Home
- นอกจากนี้ ให้แน่ใจว่าคุณรัน sub Createlabels() ในกรณีนี้ หากคุณรัน sub AskForColumn () คุณจะไม่ได้ผลลัพธ์ที่ต้องการ
- 而且 อย่าใส่สิ่งอื่นนอกจากที่อยู่ในคอลัมน์ A
อ่านเพิ่มเติม: วิธีสร้างฉลากใน Word จากรายการ Excel (แนวทางทีละขั้นตอน)
วิธีพิมพ์ฉลากใน Excel โดยไม่ใช้ Word
หลังจากสร้างฉลากโดยใช้ขั้นตอนที่กล่าวมาข้างต้น ตอนนี้คุณอาจต้องการ พิมพ์ฉลาก ตอนนี้ หากคุณต้องการทำเช่นนั้น คุณสามารถทำตามขั้นตอนด้านล่างได้
ขั้นตอน:
- ขั้นแรก ไปที่แท็บ Page Layout จากด้านบนของหน้า
- ต่อไป คลิกที่ปุ่ม Page Setup
- หลังจากนั้น ไปที่ Margins
- ตอนนี้ แก้ไข Top และ Bottom margins เป็น 0.5 และแก้ไข Left และ Right margins เป็น 0.215
- ตามลำดับ คลิก OK
- ตอนนี้ กด CTRL + P เพื่อเปิดเมนู Print
- ณ จุดนี้ คลิกที่ No Scaling และจะมี 4 ตัวเลือกแสดงขึ้น
- ต่อไป จากตัวเลือกเหล่านั้น เลือก Fit All Columns on One Page
- สุดท้าย คุณพร้อมที่จะพิมพ์แล้ว
- ในกรณีนี้ ตัวอย่างการพิมพ์ของคุณจะเหมือนภาพหน้าจอด้านล่าง
อ่านเพิ่มเติม: วิธี Mail Merge ฉลากจาก Excel ไป Word (พร้อมขั้นตอนง่ายๆ)
สรุป
สุดท้ายนี้ หวังว่าคุณจะพบสิ่งที่คุณมองหาจากบทความนี้ หากมีคำถาม โปรดทิ้งความคิดเห็นด้านล่าง นอกจากนี้ หากคุณต้องการอ่านบทความแบบนี้เพิ่มเติม คุณสามารถเยี่ยมชมเว็บไซต์ ExcelDemy ของเราได้
บทความที่เกี่ยวข้อง
- วิธีพิมพ์ฉลากที่อยู่ใน Excel (2 วิธีเร็ว)
- วิธีสร้างฉลากจัดส่งใน Excel (พร้อมขั้นตอนง่ายๆ)
- วิธีผสานไฟล์ Excel เป็นฉลากจัดส่ง (พร้อมขั้นตอนง่ายๆ)
- วิธีพิมพ์ฉลาก Avery จาก Excel (2 วิธีง่ายๆ)
