Gõ công thức này vào cell F3: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.
=TEXT(COUNTIF($E$3:$E3,E3),"000")
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
Hình như fải vầy, bạn à!
PHP: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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2