วิธีเปลี่ยนความกว้างของคอลัมน์ใน vba (พร้อมตัวอย่าง)

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

วิธีที่ 1: เปลี่ยนความกว้างของคอลัมน์

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

มาโครเฉพาะนี้เปลี่ยนความกว้างของคอลัมน์ B เป็น 20

หมายเหตุ : ความกว้างคอลัมน์เริ่มต้นใน Excel คือ 8.29

วิธีที่ 2: เปลี่ยนความกว้างของหลายคอลัมน์

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

มาโครเฉพาะนี้จะเปลี่ยนความกว้างของคอลัมน์ทั้งหมดในช่วงจาก B เป็น D ถึง 20

วิธีที่ 3: ปรับความกว้างของหลายคอลัมน์โดยอัตโนมัติ

 SubChangeColumnWidth ()
Columns(" B:D ").AutoFit
End Sub

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

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

ตัวอย่างที่ 1: เปลี่ยนความกว้างของคอลัมน์

เราสามารถสร้างแมโครต่อไปนี้เพื่อเปลี่ยนความกว้างของคอลัมน์ B เป็น 20:

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

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

โปรดทราบว่าเฉพาะความกว้างของคอลัมน์ B (คอลัมน์ “จุด”) เท่านั้นที่เปลี่ยนเป็น 20 ในขณะที่ความกว้างของคอลัมน์อื่นๆ ทั้งหมดยังคงเท่าเดิม

ตัวอย่างที่ 2: เปลี่ยนความกว้างของหลายคอลัมน์

เราสามารถสร้างแมโครต่อไปนี้เพื่อเปลี่ยนความกว้างของคอลัมน์ B เป็น D เป็น 20:

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

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

โปรดทราบว่าความกว้างของแต่ละคอลัมน์จาก B ถึง D เปลี่ยนเป็น 20 ในขณะที่ความกว้างของคอลัมน์ A ยังคงเท่าเดิม

ตัวอย่างที่ 3: ปรับความกว้างของหลายคอลัมน์โดยอัตโนมัติ

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

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

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

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

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

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

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