อัปเดต: สิงหาคม 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