Tự động tạo số lưu

[Trangbvn]

Nhờ các Anh/ Chị hướng chỉ giáo hộ Em. Em có một file thông tin khách hàng, em muốn ở cột em nhập ngày lưu thì bên trường số lưu sẽ tự động tạo số lưu theo kiểu tăng dần. Em có gửi kèm file. Nhờ Anh. chị giúp đỡ ạ!

 

[hocexcel_1991]

Nhờ các Anh/ Chị hướng chỉ giáo hộ Em. Em có một file thông tin khách hàng, em muốn ở cột em nhập ngày lưu thì bên trường số lưu sẽ tự động tạo số lưu theo kiểu tăng dần. Em có gửi kèm file. Nhờ Anh. chị giúp đỡ ạ!

Thử

A4=IFERROR(MID(C4,FIND("/",C4)+1,10),"")

 

[Trangbvn]

Thử

A4=IFERROR(MID(C4,FIND("/",C4)+1,10),"")

Cảm ơn bạn, nhưng ý mình là số thứ tự tăng dần độc lập không phụ thuộc ngày tháng nhập ạ, hình như bạn đang lấy tháng làm số lưu thì phải, có cách khác không bạn

 

[hocexcel_1991]

Cảm ơn bạn, nhưng ý mình là số thứ tự tăng dần độc lập không phụ thuộc ngày tháng nhập ạ, hình như bạn đang lấy tháng làm số lưu thì phải, có cách khác không bạn

Bạn dựa vào cái gì để được kết quả như vậy?

 

[Trangbvn]

Bạn dựa vào cái gì để được kết quả như vậy?

chẳng hạn như 1 ngày 100 hồ sơ trả về mình thay vì mình phải đánh số thứ tự từ 1 đến 100 vào hồ sơ rồi phải nhập vào máy để lưu hồ sơ thì mình chỉ muốn sau khi nhập ngày lưu thì số lưu trữ sẽ tự động tăng dần từ 1->100

 

[hocexcel_1991]

chẳng hạn như 1 ngày 100 hồ sơ trả về mình thay vì mình phải đánh số thứ tự từ 1 đến 100 vào hồ sơ rồi phải nhập vào máy để lưu hồ sơ thì mình chỉ muốn sau khi nhập ngày lưu thì số lưu trữ sẽ tự động tăng dần từ 1->100

Vậy thử công thức này

=IF(C4<>"",MAX($A$3:A3)+1,"")

 

[Trangbvn]

Vậy thử công thức này

=IF(C4<>"",MAX($A$3:A3)+1,"")

cảm ơn bạn nhưng công thức này chỉ đúng khi đánh từ trên xuống dưới, còn đánh ngẫu nhiên không theo thứ tự thì số lưu lại bị thay đổi, cái quan trọng của mình là số lưu phải cố định để lưu số hồ sơ bạn ạ

 

[CHAOQUAY]

Nhờ các Anh/ Chị hướng chỉ giáo hộ Em. Em có một file thông tin khách hàng, em muốn ở cột em nhập ngày lưu thì bên trường số lưu sẽ tự động tạo số lưu theo kiểu tăng dần. Em có gửi kèm file. Nhờ Anh. chị giúp đỡ ạ!

Chuột phải vào sheet tab, chọn view code, dán đoạn code dưới đây vào
Code này giả định các số cũ cột A đã nhập chính xác.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k
If Target.Column = 3 Then
    If Target <> "" Then
        If Target.Offset(, -2) = "" Then
            k = WorksheetFunction.Max(Range("A4:A1048576"))
            Target.Offset(, -2) = k + 1
        End If
    End If
End If
End Sub

 

[Trangbvn]

Chuột phải vào sheet tab, chọn view code, dán đoạn code dưới đây vào
Code này giả định các số cũ cột A đã nhập chính xác.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k
If Target.Column = 3 Then
    If Target <> "" Then
        If Target.Offset(, -2) = "" Then
            k = WorksheetFunction.Max(Range("A4:A1048576"))
            Target.Offset(, -2) = k + 1
        End If
    End If
End If
End Sub

cảm ơn bạn nhiều ạ, đúng cái mình cần