วิธีตั้งค่าความกว้างคอลัมน์สเปรดชีต Excel ด้วย VBA

อัปเดต: สิงหาคม 2564; ทำงานบน Excel 365, 2019, 2016

ในบทช่วยสอนการทำงานอัตโนมัติของ Excel วันนี้ เราจะได้เรียนรู้วิธีเปลี่ยนความกว้างของคอลัมน์เวิร์กชีตอย่างรวดเร็วตามต้องการ แต่โดยทางโปรแกรมโดยใช้ VBA (Visual Basic for Applications)

ข้อกำหนดเบื้องต้น

ในการเขียนโค้ด VBA คุณต้องแน่ใจว่าแท็บนักพัฒนาของคุณเปิดใช้งานอยู่ก่อน หากคุณไม่แน่ใจเกี่ยวกับขั้นตอน โปรดแน่ใจว่า ได้อ่าน ขั้นตอนโดยละเอียดของเรา

• ในคอมพิวเตอร์ Windows ของคุณ ให้เปิดMicrosoft Excel
• บน Ribbon หลักให้กดDeveloper
• กดคำสั่งVisual Basic ซึ่งจะเป็นการเปิดVBA Editor
• ในตัวสำรวจโปรเจ็กต์ด้านซ้ายมือ ให้ไฮไลต์ชีตเฉพาะที่คุณจะใส่โค้ดลงไป หรือจะแทรกโมดูลใหม่หรือเพิ่มโค้ดของเราลงในโมดูล VBA ที่มีอยู่ก็ได้

การตั้งค่าความกว้างหนึ่งคอลัมน์

ในตัวอย่างนี้ เราจะเลือกหนึ่งคอลัมน์ในเวิร์กชีตที่ใช้งานอยู่และแก้ไขตามนั้น

• ใช้ VBA Editor ให้คัดลอกโค้ดต่อไปนี้ไปยังเวิร์กชีตหรือโมดูลของคุณ

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• รันโค้ดของคุณโดยกด F5 หรือเลือก Run >> Run Sub หรือ Form
• บันทึกงานของคุณโดยกดปุ่ม File >> Save หรือไอคอน Disk

เปลี่ยนความกว้างของช่วงหลายคอลัมน์

ในตัวอย่างนี้ เราเลือกช่วงของคอลัมน์ แล้วเปลี่ยนความกว้าง

คุณสามารถใช้รหัสในลักษณะเดียวกับที่อธิบายไว้ในส่วนก่อนหน้า

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

ขั้นตอนถัดไป

เริ่มต้นด้วย VBA? ตรวจสอบให้แน่ใจว่าได้พิจารณาพื้นฐานVBA สำหรับคู่มือ Excel