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

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

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

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

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

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

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

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

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

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

ขั้นตอนที่ 2:ใส่โค้ด VBA

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

• ขั้นแรก ไปที่ นักพัฒนาซอฟต์แวร์ แท็บบน Ribbon ของคุณ
• จากนั้นเลือก Visual Basic จาก โค้ด กลุ่ม

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

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

'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

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

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

ส่วนที่ 1:

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

08 ส่วนที่ 1: ส่วนนี้จะประกาศชื่อของส่วนย่อย AskForColumn .