Page 1 of 1
auto hide Column
Posted: Wed Jul 13, 2011 8:26 pm
by kingarthers
อยากรบกวนขอถามว่าเราสามารถ ทำ Auto hide Column ได้หรือไม่ครับ
จากรูป หากต้องการดูให้หัวตาราง ช่วงแถว 2 หาก เป็น False ให้ซ่อนคอลัมน์นั้นไปเลยได้หรือไม่ครับ ช่องไหนเป็น True ก็ให้แสดงเหมือนปกติ
Re: auto hide Column
Posted: Wed Jul 13, 2011 8:50 pm
by 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
Re: auto hide Column
Posted: Thu Jul 14, 2011 7:18 am
by kingarthers
ขอบคุณครับ จะขอรับไปทดสอบก่อนนะครับแล้วจะมาแจ้งผลอีกทีครับ
Re: auto hide Column
Posted: Sat Jul 16, 2011 4:19 pm
by liveday
เเล้วจะ Unhide ละครับอาจารย์
Re: auto hide Column
Posted: Sat Jul 16, 2011 7:39 pm
by snasui
คงหมายถึง Unhide ทั้งที่เป็น False และ True ใช่ไหมครับ
ถ้าใช่ สามารถเขียน Code ตามด้านล่างครับ
Code: Select all
Worksheets("Sheet1").Range("A2:IV2").EntireColumn.Hidden = False