วิธีปรับคอลัมน์ให้พอดีอัตโนมัติโดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้วิธี ปรับพอดีอัตโนมัติ ใน VBA เพื่อปรับความกว้างของคอลัมน์ตั้งแต่หนึ่งคอลัมน์ขึ้นไปในแผ่นงาน Excel โดยอัตโนมัติ

นี่เป็นวิธีทั่วไปในการใช้วิธีนี้ในทางปฏิบัติ:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

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

ตัวอย่างต่อไปนี้แสดงวิธีการใช้วิธี ปรับพอดีอัตโนมัติ ในทางปฏิบัติ

ตัวอย่าง: วิธีปรับคอลัมน์ให้พอดีอัตโนมัติโดยใช้ VBA

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

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

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubAutoFitColumns ()
Columns(" A:D ").AutoFit
End Sub

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

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

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

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

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

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

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มของวิธี ปรับพอดีอัตโนมัติ ใน VBA ได้ที่นี่

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

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

VBA: วิธีนับจำนวนคอลัมน์ที่ใช้
VBA: วิธีค้นหาคอลัมน์ที่ใช้ล่าสุด
VBA: วิธีลบคอลัมน์