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

วิธีซ่อนคอลัมน์โดยอัตโนมัติตามวันที่ใน Excel

สมมติว่าฉันมีช่วงข้อมูลในแผ่นงานตอนนี้ฉันต้องการซ่อนคอลัมน์ตามวันที่ที่ระบุโดยอัตโนมัติ ตัวอย่างเช่นเมื่อฉันป้อนวันที่ 5/16/2016 ในเซลล์ฉันต้องการซ่อนคอลัมน์ที่วันที่น้อยกว่าวันที่ระบุนี้ทันทีตามภาพหน้าจอต่อไปนี้ บทความนี้จะแนะนำเทคนิคบางอย่างสำหรับการแก้ปัญหา

doc ซ่อนคอลัมน์ตามวันที่ 1

ซ่อนคอลัมน์โดยอัตโนมัติตามวันที่ที่ระบุด้วยรหัส VBA

ซ่อนคอลัมน์ตามวันที่ที่ระบุด้วย Kutools for Excel


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

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

1. เลือกแท็บแผ่นงานที่คุณต้องการซ่อนตามวันที่และคลิกขวาเพื่อเลือก ดูรหัส จากเมนูบริบทเพื่อไปที่ไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน จากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูล:

รหัส VBA: ซ่อนคอลัมน์โดยอัตโนมัติตามวันที่ระบุ:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xCell As Range
    If Target.Address <> Range("K4").Address Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In Range("A1:I1")
        xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
    Next
    Application.ScreenUpdating = True
End Sub

doc ซ่อนคอลัมน์ตามวันที่ 2

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

หมายเหตุ: ในโค้ดด้านบน K4 คือเซลล์วันที่ที่คุณต้องการซ่อนคอลัมน์ตาม A1: I1 คือเซลล์แถวประกอบด้วยวันที่ที่คุณใช้


ลูกศรสีฟ้าฟองขวา ซ่อนคอลัมน์ตามวันที่ที่ระบุด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับรหัสนี่คือเครื่องมือที่มีประโยชน์ -Kutools สำหรับ Excelเดียวกันกับที่ เลือกเซลล์เฉพาะ ยูทิลิตี้คุณสามารถทำงานนี้ได้อย่างง่ายดาย

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. 

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกส่วนหัววันที่แล้วคลิก Kutools > เลือก > เลือกเซลล์เฉพาะดูภาพหน้าจอ:

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

doc ซ่อนคอลัมน์ตามวันที่ 4

3. จากนั้นคลิก Ok ปุ่มคอลัมน์เฉพาะที่เลือกวันที่น้อยกว่า 5/16/2016 พร้อมกันดูภาพหน้าจอ:

doc ซ่อนคอลัมน์ตามวันที่ 5

4. จากนั้นคลิกขวาที่ส่วนหัวของคอลัมน์ที่เลือกและเลือก ซ่อน เพื่อซ่อนคอลัมน์ที่เลือกตามที่คุณต้องการ ดูภาพหน้าจอ:

doc ซ่อนคอลัมน์ตามวันที่ 6

คลิกดาวน์โหลด Kutools for 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have the same issue as Chris. The cell with my date does not always change. I need the macro to run regardless of whether the date has changed from last month or is the same as last month without having to click on the cell itself and hit enter to trigger the "Change"
This comment was minimized by the moderator on the site
Hello,
Thanks for the code.
In my case the cell K4 is a calculation cell from the formula =EOMONTH(A1,0). Example: A1 = 01.03.2017. K4 takes the value 31.03.2017. But the VBA code that you propose does not hide the columns until I click on K4 cell and press Enter to refresh it. I tried to add Range("K4").calculate but with no effect. Help please.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations