ไปยังเนื้อหาหลัก

วิธีปรับความกว้างของคอลัมน์ใน Excel โดยอัตโนมัติ

ใน Excel คุณสามารถปรับความกว้างของคอลัมน์ให้พอดีกับเนื้อหาของเซลล์ได้อย่างรวดเร็วโดยใช้ไฟล์ ความกว้างคอลัมน์ปรับพอดีอัตโนมัติ ลักษณะเฉพาะ. บางครั้งคุณต้องการให้ความกว้างของคอลัมน์อัปเดตโดยอัตโนมัติตามข้อความที่ยาวที่สุดในคอลัมน์นั้นกล่าวคือเมื่อป้อนสตริงข้อความแบบยาวในเซลล์ความกว้างของคอลัมน์จะถูกปรับขนาดโดยอัตโนมัติเพื่อให้พอดีกับความยาวของเนื้อหา เป็นไปได้ไหมที่จะจัดการกับมันใน Excel

ปรับความกว้างของคอลัมน์ให้พอดีโดยอัตโนมัติด้วยรหัส VBA

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


ลูกศรสีฟ้าฟองขวา ปรับความกว้างของคอลัมน์ให้พอดีโดยอัตโนมัติด้วยรหัส VBA

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

1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

2. จากนั้นดับเบิลคลิก สมุดงานนี้ ใน โครงการ VBA วัตถุในบานหน้าต่างด้านซ้ายเพื่อเปิดโมดูลว่างจากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูล:

รหัส VBA: พอดีกับคอลัมน์ในสมุดงาน

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub

doc-autofit-column-width-1.dc

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


ลูกศรสีฟ้าฟองขวา ปรับความกว้างของคอลัมน์ให้พอดีโดยอัตโนมัติด้วยปุ่มลัด

หากคุณมีคอลัมน์หลายคอลัมน์ที่มีเนื้อหาบางส่วนของเซลล์ซ่อนอยู่ตามภาพหน้าจอต่อไปนี้คุณต้องการปรับขนาดความกว้างของคอลัมน์พร้อมกันเพื่อให้พอดีกับเนื้อหา ปุ่มลัดต่อไปนี้อาจช่วยคุณได้

doc-autofit-column-width-1.dc

1. เลือกช่วงข้อมูลที่คุณต้องการปรับขนาดความกว้างของคอลัมน์

2. กดค้างไว้ อื่น ๆ คีย์และกด H + O + ฉันและตอนนี้ความกว้างของคอลัมน์ของคุณได้รับการติดตั้งโดยอัตโนมัติกับเนื้อหาทันที ดูภาพหน้าจอ:

doc-autofit-column-width-1.dc

หมายเหตุ หากคุณใช้ Excel 2003 และเวอร์ชันก่อนหน้าคุณต้องใช้ปุ่มลัดเหล่านี้: ALT + O + C + A.


บทความที่เกี่ยวข้อง:

วิธีปรับความสูงของแถวของเซลล์ที่ผสานใน Excel โดยอัตโนมัติ

วิธีปรับขนาดความสูงของแถวหรือความกว้างของคอลัมน์ให้พอดีกับข้อความใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
saya tertarik dengan code VB yang anda terapkan tentang Cara mengisi kolom excel dengan VBA, jika pertanyaannya begini Bagaimana cara mengisi kolom dan baris tertentu di excel dnegan VBA?
jadi yang terisi adalah kolom dan barisnya secara otomatis? mohon jawabannya..
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations