Macro lập số phiếu, nhưng chỉ cộng được đến 99

[jime]

Chào các bạn.
mình đang làm để có số phiếu tự động, nhưng macro chỉ cộng được đến 99 thôi không cộng đến 100 được.
mình gửi kèm theo file nhờ các bạn giúp mình còn thiếu bước nào mà không cộng được lên 100.

cám ơn các bạn.

 

[ndu96081631]

Chào các bạn.
mình đang làm để có số phiếu tự động, nhưng macro chỉ cộng được đến 99 thôi không cộng đến 100 được.
mình gửi kèm theo file nhờ các bạn giúp mình còn thiếu bước nào mà không cộng được lên 100.

cám ơn các bạn.

Gõ công thức này vào cell F3:

=TEXT(COUNTIF($E$3:$E3,E3),"000")

Kéo fill xuống là được rồi, đâu cần phải macro chứ

 

[ChanhTQ@]

Hình như fải vầy, bạn à!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo GPE
    Dim X As Long, I As Long, Stt As Long
    Dim Tam As String
    
    If Target.Column = 5 Then
        Stt = 1:        I = 3
        Do Until IsEmpty(Cells(I, 5).Value)
            If Cells(I, 5).Value = Target.Value Then
                If Len(CStr(Stt)) = 1 Then
                    Tam = "00" & Stt
                ElseIf Len(CStr(Stt)) = 2 Then
                    Tam = "0" & Stt
                Else                   '<=|'
                  Tam = CStr(Stt)      '<=|'
                End If
                Cells(I, 6).Value = Tam
                Stt = Stt + 1
            End If
            I = I + 1
        Loop
    End If
    Exit Sub
GPE:
End Sub

 

[jime]

cám ơn bạn, mình làm được rồi.

 

[jime]

Hình như fải vầy, bạn à!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo GPE
    Dim X As Long, I As Long, Stt As Long
    Dim Tam As String
    
    If Target.Column = 5 Then
        Stt = 1:        I = 3
        Do Until IsEmpty(Cells(I, 5).Value)
            If Cells(I, 5).Value = Target.Value Then
                If Len(CStr(Stt)) = 1 Then
                    Tam = "00" & Stt
                ElseIf Len(CStr(Stt)) = 2 Then
                    Tam = "0" & Stt
                Else                   '<=|'
                  Tam = CStr(Stt)      '<=|'
                End If
                Cells(I, 6).Value = Tam
                Stt = Stt + 1
            End If
            I = I + 1
        Loop
    End If
    Exit Sub
GPE:
End Sub

cám ơn bạn, mình làm được rồi.