Xin giúp đỡ hàm lookup khi thao tác trên mảng (1 người xem)

[namkpac]

Em có bài gửi các anh chị xem giúp em hàm lookup không cho dò tìm trong mảng, nếu sử dụng hàm lookup như vậy thì phải thêm hoặc sửa thế nào ạ? và nếu có thể giúp em chuyển nó thành code được không?

 

[bunbun85]

Công thức cùng link tới nhìu ô thiệt, có thể mình hiểu ý của bạn, dùng lookup để lấy thứ tự phiếu thu chi cuối cùng rồi + thêm 1 làm phiếu mới. Khi chưa có phiếu nào bến số tiền mặt với chi tính là PC001 với thu là phiếu thu 001....cộng tiếp khi xuất thêm thu-chi. Vậy đề xuất file này nhé!

 

[namkpac]

Thanks rất nhiều, công thức này mình có thể chuyển thành code được không? bạn có thể giúp mình với không?

 

[Let'GâuGâu]

Thanks rất nhiều, công thức này mình có thể chuyển thành code được không? bạn có thể giúp mình với không?

là sao vậy bạn? tôi đọc mà chẳng hiểu gì hết
có phải là nếu chọn M6="PC" thì kết quả J6= giá trị cuối cùng của cột B (sheet SoQuy) công thêm 1
còn nếu chọn là M6="PT" thì lấy giá trị cuối cùng của cột A
phải vậy không?

 

[concogia]

Thanks rất nhiều, công thức này mình có thể chuyển thành code được không? bạn có thể giúp mình với không?

Right click vào sheet "PTC" ==> View Code ==> chép em này vào

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Tam
        If Target.Address = "$M$6" Then
            If Target.Value = "PT" Then
                Tam = Sheets("soquy").[A50].End(xlUp)
                Tam = Right("00" & Val(Replace(Tam, "PT", "")) + 1, 3)
            Else
                Tam = Sheets("soquy").[B50].End(xlUp)
                Tam = Right("00" & Val(Replace(Tam, "PC", "")) + 1, 3)
            End If
     [J6] = Target.Value & Tam
        End If
End Sub

Code giới hạn tới dòng 50 theo bảng của bạn
Thân

 

[namkpac]

đúng rồi ạ em loay hoay chỉnh hàm và đã được giúp đỡ, lúc này em muốn nhờ giúp chuyển cái hàm này bằng code Funcion, thanks mọi người quan tâm

 

[Let'GâuGâu]

đúng rồi ạ em loay hoay chỉnh hàm và đã được giúp đỡ, lúc này em muốn nhờ giúp chuyển cái hàm này bằng code Funcion, thanks mọi người quan tâm

OK, vậy thì thử
cthức

J6=M6& TEXT(RIGHT(INDEX(OFFSET(SH,,M6="PC"),MATCH("zzz",OFFSET(SH,,M6="PC"))),3)+1,"000")

code thì

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$6" Then
    If [m6] = "PT" Then [J6] = [m6] & Format(Right(Sheet4.[A50].End(3), 3) + 1, "#000")
    If [m6] = "PC" Then [J6] = [m6] & Format(Right(Sheet4.[B50].End(3), 3) + 1, "#000")
End If

End Sub