giúp đỡ tạo function bằng vba

[light1203]

nhờ moin người giúp code tạo hàm tự động thêm số chứng từ khi biết loại chứng từ và ngày tháng theo định dạng, tháng 1 sẽ là "pn/01/000001" hết tháng sang tháng 2 lại bắt đầu bằng "pn/02/00001"

 

[♫ђöล♥ßล†♥†µ♫]

nhờ moin người giúp code tạo hàm tự động thêm số chứng từ khi biết loại chứng từ và ngày tháng theo định dạng, tháng 1 sẽ là "pn/01/000001" hết tháng sang tháng 2 lại bắt đầu bằng "pn/02/00001"

Bạn thử:

Function DanhSoPhieu(ByVal VungNgayThang As Range, ByVal VungSophieu As Range, _
        ByVal NgayChungtu, ByVal Loaiphieu As String) As String
    Dim i As Long, Item As Date, txt As String
If Not IsDate(NgayChungtu) Then Exit Function
If Len(Loaiphieu) = 0 Then Exit Function
With CreateObject("System.Collections.ArrayList")
    For i = 1 To VungNgayThang.Rows.Count
        Item = VungNgayThang(i)
        If UCase(VungSophieu(i)) = UCase(Loaiphieu) Then
            If Month(NgayChungtu) = Month(Item) Then
                If Not .Contains(Item) Then .Add Item
            End If
        End If
    Next
    .Sort
    If .Count Then
        For i = 0 To .Count - 1
            If NgayChungtu = .Item(i) Then
                txt = UCase(Loaiphieu) & "/" & Format(Month(NgayChungtu), "00") & "/" & Format(i + 1, "0000000")
                Exit For
            End If
        Next
    End If
End With
DanhSoPhieu = txt
End Function

 

[HieuCD]

Bạn thử:

Function DanhSoPhieu(ByVal VungNgayThang As Range, ByVal VungSophieu As Range, _
        ByVal NgayChungtu, ByVal Loaiphieu As String) As String
    Dim i As Long, Item As Date, txt As String
If Not IsDate(NgayChungtu) Then Exit Function
If Len(Loaiphieu) = 0 Then Exit Function
With CreateObject("System.Collections.ArrayList")
    For i = 1 To VungNgayThang.Rows.Count
        Item = VungNgayThang(i)
        If UCase(VungSophieu(i)) = UCase(Loaiphieu) Then
            If Month(NgayChungtu) = Month(Item) Then
                If Not .Contains(Item) Then .Add Item
            End If
        End If
    Next
    .Sort
    If .Count Then
        For i = 0 To .Count - 1
            If NgayChungtu = .Item(i) Then
                txt = UCase(Loaiphieu) & "/" & Format(Month(NgayChungtu), "00") & "/" & Format(i + 1, "0000000")
                Exit For
            End If
        Next
    End If
End With
DanhSoPhieu = txt
End Function

Ngày 1/1/2018 có 2 phiếu BH thì sao ta

 

[SA_DQ]

Nhờ moi người giúp code tạo hàm tự động thêm số chứng từ khi biết loại chứng từ và ngày tháng theo định dạng, tháng 1 sẽ là "pn/01/000001" hết tháng sang tháng 2 lại bắt đầu bằng "pn/02/00001"

Xin góp vài ý với bộ mã chứng từ của bạn:

1./ Quá dài & dư thừa;
Nên chăng chỉ là TA00000: là loại fiếu thu của fiếu đầu tiên của tháng 1
CB00009 là fiếu chi thứ mười của tháng 2
, . . . . . .

 

[♫ђöล♥ßล†♥†µ♫]

Ngày 1/1/2018 có 2 phiếu BH thì sao ta

Hí hí. Đang học nên chưa thạo Anh ạ

 

[vanaccex]

Hí hí. Đang học nên chưa thạo Anh ạ

Hôm trước chị có giúp em thấy hay quá ạ ! Hôm nay em thấy cách khác ! Chắc thêm nhiều điều kiện nữa

 

[♫ђöล♥ßล†♥†µ♫]

Hôm trước chị có giúp em thấy hay quá ạ ! Hôm nay em thấy cách khác ! Chắc thêm nhiều điều kiện nữa

Hôm nay rảnh đang đọc cái CreateObject("System.Collections.ArrayList"). Đến bây giờ vẫn chưa đọc hết mặt chữ Bạn ạ

 

[HieuCD]

Hí hí. Đang học nên chưa thạo Anh ạ

Sort dữ liệu trùng bằng CreateObject("System.Collections.ArrayList") để xử lý dữ liệu khá khó, nếu là số nguyên hoặc ngày thì cộng thêm 1 giá trị <1 để phân biệt các giá trị trùng

 

[VetMini]

Ngày 1/1/2018 có 2 phiếu BH thì sao ta

Chưa khó xử bằng cách để tính ra số của phiếu ngày 11/01/2018. Hiểu cách tính chết liền.

 

[♫ђöล♥ßล†♥†µ♫]

Sort dữ liệu trùng bằng CreateObject("System.Collections.ArrayList") để xử lý dữ liệu khá khó, nếu là số nguyên hoặc ngày thì cộng thêm 1 giá trị <1 để phân biệt các giá trị trùng

Chắc chẳng có ai viết cái hàm kiểu này như em đâu anh nhỉ

 

[HieuCD]

Chắc chẳng có ai viết cái hàm kiểu này như em đâu anh nhỉ

Cách làm rất độc đáo
Ngày 1/1/2018 có phiếu bảo hành thì sao