Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

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

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

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

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

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ ทำงานร่วมกับ Office 2007-2019 และ 365; รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวา ปรับความกว้างของคอลัมน์ให้พอดีโดยอัตโนมัติด้วยรหัส 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

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


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

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

doc-autofit-column-width-1

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

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

doc-autofit-column-width-1

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


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

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

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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

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

 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bakrudin · 2 years ago
    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..