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

or

วิธีซ่อนคอลัมน์โดยอัตโนมัติตามวันที่ใน 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 สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • Super Formula Bar (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); 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.
    Seven · 3 years ago
    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"
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    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.