วิธีตัดข้อความโดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้คุณสมบัติ WrapText ใน VBA เพื่อตัดข้อความในเซลล์ที่ระบุในแผ่นงาน Excel

ต่อไปนี้เป็นวิธีทั่วไปสามวิธีในการใช้คุณสมบัตินี้ในทางปฏิบัติ:

วิธีที่ 1: ตัดข้อความของเซลล์เฉพาะ

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

วิธีที่ 2: ตัดข้อความเซลล์ในช่วงที่ระบุ

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

วิธีที่ 3: ตัดข้อความของเซลล์ทั้งหมดในแผ่นงาน

 Sub UseWrapText()
Cells.WrapText = True
End Sub

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับชุดข้อมูลต่อไปนี้ใน Excel:

ไปกันเถอะ!

ตัวอย่างที่ 1: ตัดข้อความของเซลล์เฉพาะโดยใช้ VBA

เราสามารถสร้างแมโครต่อไปนี้เพื่อตัดข้อความในเซลล์ B2 เท่านั้น:

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราสามารถคลิกเซลล์ B2 และเห็นว่ามีการเปิดใช้ งานการตัดข้อความ ในกลุ่ม การจัดตำแหน่ง บนแท็บ หน้าแรก ตามริบบิ้นด้านบน:

อย่างไรก็ตาม เราจำเป็นต้องลดความยาวของคอลัมน์ B และเพิ่มความสูงของแถวที่ 2 เพื่อดูข้อความที่ตัด:

ตอนนี้เราจะเห็นได้อย่างง่ายดายว่าข้อความในเซลล์ B2 ถูกตัด ในขณะที่ข้อความในเซลล์อื่นๆ ทั้งหมดในคอลัมน์ B ไม่ได้ตัด

ตัวอย่างที่ 2: ตัดข้อความเซลล์ในช่วงเฉพาะโดยใช้ VBA

เราสามารถสร้างมาโครต่อไปนี้เพื่อตัดข้อความในแต่ละเซลล์ในช่วง B2:B11 :

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

เราจะเห็นว่าแต่ละเซลล์ในช่วง B2:B11 มีข้อความที่ตัดแล้ว

ตัวอย่างที่ 3: ตัดข้อความของเซลล์ทั้งหมดในแผ่นงานโดยใช้ VBA

เราสามารถสร้างแมโครต่อไปนี้เพื่อตัดข้อความในแต่ละเซลล์ของแผ่นงาน:

 Sub UseWrapText()
Cells.WrapText = True
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

เราจะเห็นว่าทุกเซลล์ในแผ่นงานมีข้อความที่ตัดแล้ว

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับคุณสมบัติ VBA WrapText ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีเปลี่ยนสีตัวอักษร
VBA: วิธีแทนที่อักขระในสตริง
VBA: วิธีแทรกบรรทัดด้วยการจัดรูปแบบ