การกำหนด Runnign Number ใน Table

[Khamtun]

เรียน อาจารย์และผู้รู้ทุกท่าน

ผมมีปัญหาเกี่ยวกับ การกำหนด Runnign Number ใน Table
ตามไฟล์ที่แนบมาด้วย ช่วยแนะนำด้วยครับ

ด้วยความนับถือ

[snasui]

ลองตามนี้ครับ

ที่เซลล์ C5 คีย์

=SUBTOTAL(3,D$5:D5)

Enter > Copy ลงด้านล่าง

[Khamtun]

ลองตามนี้ครับ

ที่เซลล์ C5 คีย์

=SUBTOTAL(3,D$5:D5)

Enter > Copy ลงด้านล่าง

ทำได้แล้วครับ แต่เมื่อผมกรองข้อมูลแล้วทำไมข้อมูลถึงผิดพลาดก่อนใส่สูตรไม่มีผิดพลาด
รบกวนอาจารย์หรือผู้รู้ทุกท่านช่วยดูตามไฟล์ที่แนบมาด้วยครับ

ด้วยความนับถือ

[snasui]

ลองปรับ Code ใหม่เป็นตามด้านล่างครับ

Code: Select all

Sub summary()
    ActiveSheet.Range("$C$4:$F$257").AutoFilter Field:=4, Criteria1:=">=100000" _
        , Operator:=xlAnd, Criteria2:="<=200000"
    Call FillItemNum
End Sub
Sub summary1()
    Range("D3").Select
    ActiveSheet.Range("$C$4:$F$257").AutoFilter Field:=4, Criteria1:=">=200000" _
        , Operator:=xlAnd, Criteria2:="<=10000000"
    Call FillItemNum
End Sub
Sub summaryall()
    ActiveSheet.Range("$C$4:$F$257").AutoFilter Field:=4
    Call FillItemNum
End Sub

Sub FillItemNum()
    Dim i As Integer
    Dim r As Range
    i = 1
    For Each r In Range("C5:C257").SpecialCells(xlCellTypeVisible)
        r = i
        i = i + 1
    Next r
End Sub

[Khamtun]

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