auto hide Column

[kingarthers]

อยากรบกวนขอถามว่าเราสามารถ ทำ Auto hide Column ได้หรือไม่ครับ
จากรูป หากต้องการดูให้หัวตาราง ช่วงแถว 2 หาก เป็น False ให้ซ่อนคอลัมน์นั้นไปเลยได้หรือไม่ครับ ช่องไหนเป็น True ก็ให้แสดงเหมือนปกติ

[snasui]

การทำเช่นนั้นคงต้องพึ่ง VBA ครับ ยกตัวอย่าการซ่อน A2:IV2 ทีมีค่า False ตาม Code ด้านล่าง

Code: Select all

Sub HideOrUnhide()
Dim r As Range
Dim rAll As Range
Set rAll = Worksheets("Sheet1").Range("A2:IV2")
For Each r In rAll
    If r <> "" And r = False Then
        r.EntireColumn.Hidden = True
    Else
        r.EntireColumn.Hidden = False
    End If
Next r
End Sub

[kingarthers]

ขอบคุณครับ จะขอรับไปทดสอบก่อนนะครับแล้วจะมาแจ้งผลอีกทีครับ

[liveday]

เเล้วจะ Unhide ละครับอาจารย์

[snasui]

คงหมายถึง Unhide ทั้งที่เป็น False และ True ใช่ไหมครับ

ถ้าใช่ สามารถเขียน Code ตามด้านล่างครับ

Code: Select all

Worksheets("Sheet1").Range("A2:IV2").EntireColumn.Hidden = False