Code hide แถวที่ไม่มีข้อมูล

[วังวู ช่ง]

รบกวนท่านที่รู้ครับ
ผมอยาก hide แถวที่ไม่มีข้อมูล ในนี้คือแถว 14:51 ไม่มีข้อมูล แต่มีสูตรครับ อยากให้ Hide ควนปรับ Code อย่างไรครับ

Code: Select all

Sub HideRows()
  Sheets("sheet1").Select
  ActiveSheet.Range("2:51").EntireRow.Hidden = True
  End Sub

[puriwutpokin]

เปลี่ยน​เลข2เป็น14ดูครับ

[วังวู ช่ง]

เปลี่ยน​เลข2เป็น14ดูครับ

แบบนี้ได้ แต่ความต้องการคือว่า แต่ 2:51 ถ้ามีข้อมูลไม่ต้อง Hide ถ้าไม่มีข้อมูลคือต้อง Hide ไปครับ
ส่วน 14:51 ไม่มีข้อมูล แต่มีสูตรครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Dim l As Long
l = [count(a1:a51)]
With ActiveSheet
    .Range(.Range("a2").Offset(l, 0), .Range("a51")).EntireRow.Hidden = True
End With

[วังวู ช่ง]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Dim l As Long
l = [count(a1:a51)]
With ActiveSheet
    .Range(.Range("a2").Offset(l, 0), .Range("a51")).EntireRow.Hidden = True
End With

ขอบคุณท่านอาจารย์มากครับ แบบนี้เลยครับ ได้ตามต้องการเลยครับ

[วังวู ช่ง]

ถ้าต้องการ Hide แถวที่ว่าง และ มีค่าใหญ่กว่า 0 (>0) จะปรับ Code อย่างไรครับ ท่าน อาจารย์ และ ท่านที่รู้ ขอช่วยครับ

Code: Select all

Sub HideRows()
Dim l As Long
l = [count(a1:a51)]
With ActiveSheet
    .Range(.Range("a2").Offset(l, 0), .Range("a51")).EntireRow.Hidden True
End With
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

With ActiveSheet
    l = .Range("a" & .Rows.Count).End(xlUp).Row
    Do While l > 1
        If .Range("a" & l).Value > 0 Then
            .Range("a" & l).EntireRow.Hidden = True
        End If
        l = l - 1
    Loop
End With

[วังวู ช่ง]

ตัวอย่างการปรับ Code ครับ

Code: Select all

With ActiveSheet
    l = .Range("a" & .Rows.Count).End(xlUp).Row
    Do While l > 1
        If .Range("a" & l).Value > 0 Then
            .Range("a" & l).EntireRow.Hidden = True
        End If
        l = l - 1
    Loop
End With

ขอบคุณท่านอาจารย์มากๆครับ ได้ตามต้องการเลยครับ

[วังวู ช่ง]

Code: Select all

Sub Calculate()
Application.ScreenUpdating = False
  Sheets("Pension").Select
ActiveSheet.Unprotect Password:="11111"
    Cells.Select
    Range("A4").Activate
    Cells.EntireRow.AutoFit
    Range("A8:N8").Select
Dim l As Long
l = [count(a10:a59)]
With ActiveSheet
    .Range(.Range("a10").Offset(l, 0), .Range("a59")).EntireRow.Hidden = True
End With
ActiveSheet.Protect Password:="11111", Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingRows:=True, _
        AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True

Sheets("DataList").Select
ActiveSheet.Unprotect Password:="11111"
Dim lg As Long
lg = [count(BB3:BB1502)]
With ActiveSheet
    lg = .Range("BB" & .Rows.Count).End(xlUp).Row
    Do While lg > 1
        If .Range("BB" & lg).Value > 0 Then
            .Range("BB" & lg).EntireRow.Hidden = True
        End If
        lg = lg - 1
    Loop
End With
ActiveSheet.Protect Password:="11111", Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingRows:=True, _
        AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True

Sheets("Pol").Select
Application.ScreenUpdating = True
End Sub

Code นี้ทำให้เครื่องทำงานช้ามากครับ รบกวนท่านอาจารย์ และ ท่านที่รู้ปรับให้หน่อยครับ
ขอบคุณล่วงหน้าครับ

[snasui]

ถ้ามีสูตรจำนวนมากให้เพิ่มบรรทัดนี้เข้าไปครอบ Code ทั้งหมดครับ

Code: Select all

Application.Calculation = xlCalculationManual
'...
Application.Calculation = xlCalculationAutomatic

[วังวู ช่ง]

ถ้ามีสูตรจำนวนมากให้เพิ่มบรรทัดนี้เข้าไปครอบ Code ทั้งหมดครับ

Code: Select all

Application.Calculation = xlCalculationManual
'...
Application.Calculation = xlCalculationAutomatic

[วังวู ช่ง]

Code: Select all

Sub HideRows()
With ActiveSheet
    l = .Range("a" & .Rows.Count).End(xlUp).Row
    Do While l > 1
        If .Range("a" & l).Value > 0 Then
            .Range("a" & l).EntireRow.Hidden = True
        End If
        l = l - 1
    Loop
End With
End Sub

Code นี้เมื่อเราเพี่มเงื่อนไขอีกเข้าไปคือ
ใน C:C เราเพี่มเลข 1 เข้าไป เราต้องการให้ Hide แถ้วที่มีเลข 1 อีกจะแก้ Code อย่างไรครับ

[snasui]

แก้ Code ที่บรรทัดนี้ให้เป็นไปตามเงื่อนไขที่ต้องการครับ If .Range("a" & l).Value > 0 Then

ถ้าเข้าเงื่อนไขใดเงื่อนไขหนึ่งใช้ Or ถ้าเข้าทุกเงื่อนไขพร้อมกันใช้ And

ลองปรับมาเอง ติดตรงไหนค่อยถามกันต่อ ทุกคำถามจะต้องมีการปรับ Code มาเองก่อนเสมอครับ

[วังวู ช่ง]

แก้ Code ที่บรรทัดนี้ให้เป็นไปตามเงื่อนไขที่ต้องการครับ If .Range("a" & l).Value > 0 Then

ถ้าเข้าเงื่อนไขใดเงื่อนไขหนึ่งใช้ Or ถ้าเข้าทุกเงื่อนไขพร้อมกันใช้ And

ลองปรับมาเอง ติดตรงไหนค่อยถามกันต่อ ทุกคำถามจะต้องมีการปรับ Code มาเองก่อนเสมอครับ

จำต้องวางตัวแปลอีก หรือ เปล่าครับอาจารย์ ผมปรับแต่เหมือนไม่ทำงานเลยครับ

Code: Select all

Sub HideRows()
With ActiveSheet
    l = .Range("a" & .Rows.Count).End(xlUp).Row
    Do While l > 1
        If .Range("a" & l).Value > 0 And .Range("c" & l).Value = 1 Then
            .Range("a" & l).EntireRow.Hidden = True
        End If
        l = l - 1
    Loop
End With
End Sub

[snasui]

ที่เขียนมาก็ถูกต้องแล้วครับ คือ คอลัมน์ A ต้องมากกว่า 0 และคอลัมน์ C ต้องมีค่าเท่ากับ 1 หากเข้าทั้งสองเงื่อนไขจึงจะซ่อนบรรทัดครับ