โค้ด filterRows

[วังวู ช่ง]

สวัสดีครับ ผู้เชี่ยวชาญทุกท่าน ช่วยตรวจสอบโค้ดให้หน่อยครับ โค้ดนี้ทำงานช้ามาก

Code: Select all

Sub FilterRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetValue As Variant
    
    ' Set the worksheet (change "Sheet1" to your actual sheet name if needed)
    Set ws = ThisWorkbook.ActiveSheet ' Or specify: Worksheets("Sheet1")
    
    ' Reference value from M14
    targetValue = ws.Range("M14").Value
    
    ' Find last row with data in column P (or J)
    lastRow = ws.Cells(ws.Rows.Count, "P").End(xlUp).Row
    
    ' Optional: Unhide all rows before running (remove the comment if desired)
    ' ws.Rows("16:" & lastRow).Hidden = False
    
    ' Loop from row 16 downwards
    For i = 16 To lastRow
        ' Condition: P(i) equals M14 AND J(i) > 0
        If ws.Cells(i, "P").Value = targetValue And ws.Cells(i, "J").Value > 0 Then
            ' If condition met: show the row (unhide)
            ws.Rows(i).Hidden = False
        Else
            ' Otherwise: hide the row
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub

[snasui]

ติดตามคำตอบได้ที่นี่ครับ https://snasui.com/viewtopic.php?p=121371

[วังวู ช่ง]

ขอบคุณมากครับอาจาร ได้แล้ว