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

วิธีซ่อนคอลัมน์ตามเวลาจริงตามการป้อนข้อมูลของผู้ใช้ใน Excel?

อาจเป็นงานทั่วไปสำหรับพวกเราส่วนใหญ่ในการซ่อนคอลัมน์ใน Excel แต่คุณเคยพยายามซ่อนคอลัมน์โดยอัตโนมัติตามค่าอินพุตบางค่าหรือไม่? ตัวอย่างเช่น เมื่อฉันป้อนข้อความ "AA" ในเซลล์ คอลัมน์ A จะถูกซ่อน เมื่อฉันป้อน "BB" คอลัมน์ B และ C จะถูกซ่อน เมื่อเข้าสู่ "CC" คอลัมน์ D และ E จะถูกซ่อน เมื่อเข้าสู่ "DD" คอลัมน์ F จะถูกซ่อนตามที่แสดงด้านล่าง บทความนี้จะสร้างโค้ด VBA เพื่อแก้ปัญหาใน Excel

ซ่อนหรือเลิกซ่อนคอลัมน์ตามเวลาจริงตามการป้อนข้อมูลของผู้ใช้ด้วยรหัส VBA

ซ่อนหรือเลิกซ่อนคอลัมน์เพื่อกรองข้อมูลตามข้อมูลที่ผู้ใช้ป้อนด้วยโค้ด VBA


ซ่อนหรือเลิกซ่อนคอลัมน์ตามเวลาจริงตามการป้อนข้อมูลของผู้ใช้ด้วยรหัส VBA

หากต้องการซ่อนคอลัมน์เฉพาะตามเวลาจริงตามค่าอินพุต โปรดใช้โค้ด VBA ด้านล่าง:

1. ในเวิร์กชีตที่คุณต้องการซ่อนคอลัมน์ ให้คลิกขวาที่แท็บแผ่นงาน แล้วคลิก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง คัดลอกและวางรหัส VBA ต่อไปนี้ใน แผ่น (รหัส) หน้าต่าง

รหัส VBA: ซ่อนคอลัมน์ตามเวลาจริงตามการป้อนข้อมูลของผู้ใช้

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
หมายเหตุ: ในโค้ดด้านบน K1 เป็นเซลล์ที่คุณป้อนข้อความเฉพาะ และคุณควรเปลี่ยนชื่อข้อความและคอลัมน์ตามที่คุณต้องการ นอกจากนี้ คุณสามารถเพิ่มเกณฑ์ใหม่อื่นๆ เพียงแค่เพิ่มสคริปต์ด้านล่าง:
  • กรณี "AA": คอลัมน์ ("A")).EntireColumn.Hidden = False
  • คอลัมน์("A")).EntireColumn.Hidden = True

3. จากนั้นปิดหน้าต่างรหัส ตอนนี้เมื่อป้อน “AA” ในเซลล์ K1 แล้วกด เข้าสู่ คีย์ คอลัมน์ A ถูกซ่อนไว้ เมื่อเข้าสู่ “BB” แล้วกด เข้าสู่ คีย์ คอลัมน์ B และ C ถูกซ่อน และอื่นๆ หากคุณป้อนค่าอื่นหรือลบเนื้อหา คอลัมน์ที่ซ่อนอยู่จะแสดงพร้อมกัน ดูการสาธิตด้านล่าง:


ซ่อนหรือเลิกซ่อนคอลัมน์เพื่อกรองข้อมูลตามข้อมูลที่ผู้ใช้ป้อนด้วยโค้ด VBA

ในตัวอย่างนี้ ฉันจะกรองช่วงข้อมูลตามชื่อผลิตภัณฑ์ที่ป้อน เมื่อฉันป้อน "Hoodie" เฉพาะข้อมูล Hoodie เท่านั้นที่จะแสดงและคอลัมน์อื่น ๆ จะถูกซ่อนในครั้งเดียว และเมื่อฉันป้อน "ทั้งหมด" คอลัมน์ทั้งหมดจะแสดงดังที่แสดงด้านล่าง:

1. ในเวิร์กชีตที่คุณต้องการซ่อนคอลัมน์ ให้คลิกขวาที่แท็บแผ่นงาน แล้วคลิก ดูรหัส จากเมนูบริบทดูภาพหน้าจอ:

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง คัดลอกและวางรหัส VBA ต่อไปนี้ใน แผ่น (รหัส) หน้าต่าง

รหัส VBA: ซ่อนหรือเลิกซ่อนคอลัมน์เพื่อกรองข้อมูลตามอินพุตของผู้ใช้

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub
หมายเหตุ: ในโค้ดด้านบน K1 คือเซลล์ที่คุณป้อนข้อความเฉพาะ B1: H1 คือส่วนหัวของแถวที่มีชื่อผลิตภัณฑ์ที่คุณต้องการกรอง

3. จากนั้นปิดหน้าต่างรหัส ตอนนี้ หากคุณป้อนชื่อผลิตภัณฑ์ลงในเซลล์ K1 ระบบจะแสดงเฉพาะคอลัมน์ที่เกี่ยวข้อง คอลัมน์อื่นๆ จะถูกซ่อน และหากคุณป้อนข้อความ "ทั้งหมด" คอลัมน์ทั้งหมดจะปรากฏตามตัวอย่างที่แสดงด้านล่าง:

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

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

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

kte แท็บ 201905


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations