tự đông ghi thứ tự

[mgiao]

Các bạn ơi
Có cách nào tự đông đánh số thứ tự thay vì phải dùng Hàm vào các ô ở cột STT không ?
Cảm ơn nhiều

 

[Ba Tê]

Các bạn ơi
Có cách nào tự đông đánh số thứ tự thay vì phải dùng Hàm vào các ô ở cột STT không ?
Cảm ơn nhiều

Không muốn thấy công thức thì đưa "nó" vào một cái Nút, bấm 1 cái cho xong.

 

[concogia]

Các bạn ơi
Có cách nào tự đông đánh số thứ tự thay vì phải dùng Hàm vào các ô ở cột STT không ?
Cảm ơn nhiều

Right Click Sheet1 ==> View Code ==> chép cái này vào

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cll As Range, Vung As Range, I As Integer
        If Not Intersect(Range("b4:b500"), Target) Is Nothing Then
          Range([a4], [a5000].End(xlUp)).ClearContents
            For Each Cll In Range("b4:b500")
                Set Vung = Range([a4], Cll.Offset(0, -1))
                If Cll <> "" Then Cll.Offset(0, -1) = Application.WorksheetFunction.Max(Vung) + 1
            Next
        End If
End Sub

Nhập dữ liệu cột B xem kết quả

 

[tongquangtuyen]

Có cách ghi tự động số thứ tự cũng dựa vào Cột B theo file đính kèm.Nhờ Anh/Chị chỉ giúp.Cảm ơn

 

[huuthang_bd]

Có cách ghi tự động số thứ tự cũng dựa vào Cột B theo file đính kèm.Nhờ Anh/Chị chỉ giúp.Cảm ơn

Bạn dùng công thức này cho ô D4

=MAX($A$4:$A4)

 

[tongquangtuyen]

Còn nếu sử dụng code của concogia ở trên thì phải sửa như thế nào?

 

[huuthang_bd]

Còn nếu sử dụng code của concogia ở trên thì phải sửa như thế nào?

Công thức:

=COUNTA($B$4:$B4)

Code:

Sub STT()
    With Range("A4:A" & [B65536].End(xlUp).Row)
        .FormulaR1C1 = "=COUNTA(R4C2:RC[1])"
        .Value = .Value
    End With
End Sub

 

[tongquangtuyen]

Sao mình chép code trên vào chạy nó báo lỗi

Only comments may appear after end sub,end function,end property

 

[huuthang_bd]

Sao mình chép code trên vào chạy nó báo lỗi

Only comments may appear after end sub,end function,end property

Lỗi này có thể do bạn chép code lên trên các dòng khai báo biến Public, Option Explicit.
Vào Module xóa hết, và chép đoạn code trên vào. Đảm bảo trong Module chỉ có đoạn code trên và không có dòng nào khác hết.