สอบถามเรื่องการ running number ตามกลุ่มข้อมูลครับ

[veerawat.peat]

เรียน อาจารย์ครับ

ผมขออนุญาตสอบถามข้อมูลการเขียน code การ Running number แยกตามกลุ่มครับ
สิ่งที่ต้องการคือ
columns A
เป็น เลขชุดข้อมูล ตั้งแต่ 0-3 ครับ โดยผมอยากจะจัดการ running แยกตามกลุ่มครับ ดังนี้ครับ
running กลุ่มที่ 1 คือ ข้อมูลที่เป็นเลข 0 และ 3 ครับ
running กลุ่มที่ 2 คือ ข้อมูลที่เป็นเลข 1 และ 2 ครับ

Code: Select all

Sub running()

Dim i, n As Integer

n = WorksheetFunction.CountA(Columns("a"))
For i = 1 To n
                    
                    a = Cells(i + 1, 1).Value
                    If a = "0" Or a = "3" Then
                    Cells(i + 1, 2).Value = i
                    
                   
                    ElseIf a = "1" Or a = "2" Then
                    Cells(i + 1, 2).Value = i
                    End If
                    Next i

End Sub

ผมขออนุญาตรบกวนขอคำแนะนำด้วยครับ หรือ sample ตัวอย่างพอเป็นแนวทางให้ก็ได้เช่นกันครับ เดี๋ยวผมไปต่อ ขอบคุณครับ

หมายเหตุ : ผมมีแนบไฟล์มาให้ดูครับ

ถ้าหากผมมี ตั้งกระทู้ไม่ถูกกฎ ต้องขอ อภัยมา ณ ที่นี้ครับ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub running()

    Dim i As Integer, n As Integer
    Dim j As Integer, k As Integer
    n = WorksheetFunction.CountA(Columns("a"))
    j = 1
    k = 1
    For i = 2 To n
         a = Cells(i, 1).Value
         If a = 0 Or a = 3 Then
            Cells(i, 2).Value = j
            j = j + 1
         ElseIf a = 1 Or a = 2 Then
            Cells(i, 2).Value = k
            k = k + 1
         End If
     Next i

End Sub

[veerawat.peat]

สามารถทำได้แล้วครับ ขอบคุณมากเลยครับ