Note: The other languages of the website are Google-translated. Back to English

Excel: วิธีขยายเซลล์เพื่อแสดงเนื้อหาทั้งหมดเมื่อคลิก

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

หมายเหตุ: วิธีการที่ให้ไว้ในบทช่วยสอนนี้ได้รับการทดสอบใน Excel 2021 อาจมีบางวิธีที่แตกต่างกันใน Excel เวอร์ชันต่างๆ


ขยายเซลล์เพื่อแสดงเนื้อหาทั้งหมดเมื่อคลิก

1. เปิดใช้งานเวิร์กชีตที่คุณต้องการขยายเซลล์ คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ตัวควบคุม ActiveX).
เติมข้อความอัตโนมัติจากรายการอื่น

ถ้าไม่มี ผู้พัฒนา แท็บในริบบิ้น โปรดแสดงในตอนแรก โปรดดูบทช่วยสอนนี้ วิธีแสดง/แสดงแท็บนักพัฒนาซอฟต์แวร์ใน Excel Ribbon

2 จากนั้นลากเคอร์เซอร์เพื่อวาดกล่องข้อความที่มีความกว้างและความสูงซึ่งสามารถแสดงเนื้อหาที่ยาวที่สุดของเซลล์ จำชื่อ textbox นี้ไว้ นี่คือ TextBox1
เติมข้อความอัตโนมัติจากรายการอื่น

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

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

4. คลิกขวาที่แท็บชื่อแผ่นงานในแถบสถานะ แล้วคลิก ดูรหัส จากเมนูบริบท

5 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคัดลอกและวางโค้ดด้านล่างลงในสคริปต์เปล่า

VBA: ขยายเซลล์เพื่อแสดงเนื้อหา

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

เติมข้อความอัตโนมัติจากรายการอื่น

โปรดสังเกตว่า TextBox1 เป็นชื่อของกล่องข้อความที่คุณวาด และ A1:B4 คือช่วงของโค้ดนี้ ให้เปลี่ยนตามที่คุณต้องการ

6. กลับไปที่แผ่นงาน คลิก ผู้พัฒนา > โหมดการออกแบบ โหมดการออกแบบที่มีอยู่
เติมข้อความอัตโนมัติจากรายการอื่น

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


การดำเนินงานอื่น ๆ (บทความ)

วิธีปิดการเติมอัตโนมัติ
นี่คือตัวเลือกใน Excel ที่สามารถหยุดการเติมข้อความอัตโนมัติได้

วิธีการลดขนาดไฟล์ Excel?
บางครั้ง การเปิดหรือบันทึกอาจใช้เวลาไม่กี่นาทีหากไฟล์ Excel ใหญ่เกินไป สำหรับการแก้ปัญหานี้ ในบทช่วยสอนนี้จะบอกคุณถึงวิธีลดขนาดไฟล์ Excel โดยการลบเนื้อหาหรือรูปแบบที่ไม่จำเป็นหรือไม่เคยใช้

วิธีการเติมเซลล์อัตโนมัติจากตารางอื่น
ในบทช่วยสอนนี้ จะพูดถึงวิธีเติมเซลล์คอลัมน์อื่นจากตารางในชีตอื่นโดยอัตโนมัติหลังจากป้อนค่าคอลัมน์หนึ่งค่า

วิธีใช้การแรเงากับแถว / คอลัมน์คี่หรือคู่ (ทางเลือก) ใน Excel
ในขณะที่ออกแบบเวิร์กชีตหลายคนมักจะใช้การแรเงากับแถวหรือคอลัมน์คี่หรือคู่ (ทางเลือก) เพื่อทำให้เวิร์กชีตมีภาพมากขึ้น บทความนี้จะแสดงวิธีการสองวิธีในการใช้การแรเงากับแถว / คอลัมน์คี่หรือคู่ใน Excel



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

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

  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
kte แท็บ 201905
  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ