Tạo danh sách nhập liệu bằng VBA

thao nguyen01 · 3/2/21

Kính gửi anh/chị trên diễn đàn,
Em muốn khi em nhập ở sheet nhập, thì sẽ copy dữ liệu từ A4:H10 bên sheet nhập và dán nối tiếp vào sheet kết quả ạ. Em có viết code nhưng em viết bằng các ô trong VBA và em không tạo được merge đối với các cột A, B, C, D, E, F. Em có để kết quả ở sheet data. Anh/chị xem giúp em ạ. Em cảm ơn ạ.

Mã:

Sub nhaplieu()
Dim i As Long
Dim Dcuoi As Long
Dim Dcuoi02 As Long

Dcuoi = Sheet2.Range("G1000").End(xlUp).Row + 1


Sheet2.Cells(Dcuoi, 1) = Sheet1.Cells(4, 1)
Sheet2.Cells(Dcuoi, 2) = Sheet1.Cells(4, 2)
Sheet2.Cells(Dcuoi, 3) = Sheet1.Cells(4, 3)
Sheet2.Cells(Dcuoi, 4) = Sheet1.Cells(4, 4)
Sheet2.Cells(Dcuoi, 5) = Sheet1.Cells(4, 5)
Sheet2.Cells(Dcuoi, 6) = Sheet1.Cells(4, 6)
''''''''''
Sheet2.Cells(Dcuoi, 7) = Sheet1.Cells(4, 7)
Sheet2.Cells(Dcuoi + 1, 7) = Sheet1.Cells(5, 7)
Sheet2.Cells(Dcuoi + 2, 7) = Sheet1.Cells(6, 7)
Sheet2.Cells(Dcuoi + 3, 7) = Sheet1.Cells(7, 7)
Sheet2.Cells(Dcuoi + 4, 7) = Sheet1.Cells(8, 7)
Sheet2.Cells(Dcuoi + 5, 7) = Sheet1.Cells(9, 7)
Sheet2.Cells(Dcuoi + 6, 7) = Sheet1.Cells(10, 7)
Sheet2.Cells(Dcuoi + 7, 7) = Sheet1.Cells(11, 7)
''''
Sheet2.Cells(Dcuoi, 8) = Sheet1.Cells(4, 8)
Sheet2.Cells(Dcuoi + 1, 8) = Sheet1.Cells(5, 8)
Sheet2.Cells(Dcuoi + 2, 8) = Sheet1.Cells(6, 8)
Sheet2.Cells(Dcuoi + 3, 8) = Sheet1.Cells(7, 8)
Sheet2.Cells(Dcuoi + 4, 8) = Sheet1.Cells(8, 8)
Sheet2.Cells(Dcuoi + 5, 8) = Sheet1.Cells(9, 8)
Sheet2.Cells(Dcuoi + 6, 8) = Sheet1.Cells(10, 8)
Sheet2.Cells(Dcuoi + 7, 8) = Sheet1.Cells(11, 8)
Dcuoi02 = Sheet2.Range("G1000").End(xlUp).Row


Sheet2.Range("A2:A1000").NumberFormat = "DD/MM/YYYY"
Sheet2.Range("A2:H" & Dcuoi02).Borders.LineStyle = 1
Sheet2.Range("F2:F1000").NumberFormat = "#,###"
Sheet2.Range("H2:H1000").NumberFormat = "#,###"

End Sub

befaint · 3/2/21

Muốn làm gì tiếp thì nên kiếm quyển sách hoặc đọc các tài liệu của Microsoft về VBA đã. Như kia là không ổn rồi.
Hoặc chí ít phải biết tới 'record macro' để có cái code mẫu mà bắt chước.

thao nguyen01 · 3/2/21

befaint đã viết:
Muốn làm gì tiếp thì nên kiếm quyển sách hoặc đọc các tài liệu của Microsoft về VBA đã. Như kia là không ổn rồi.
Hoặc chí ít phải biết tới 'record macro' để có cái code mẫu mà bắt chước.

Dạ, để em tìm hiểu và đọc thêm ạ. Em cảm ơn anh

Hoàng Nhật Phương · 3/2/21

thao nguyen01 đã viết:

Kính gửi anh/chị trên diễn đàn,
Em muốn khi em nhập ở sheet nhập, thì sẽ copy dữ liệu từ A4:H10 bên sheet nhập và dán nối tiếp vào sheet kết quả ạ. Em có viết code nhưng em viết bằng các ô trong VBA và em không tạo được merge đối với các cột A, B, C, D, E, F. Em có để kết quả ở sheet data. Anh/chị xem giúp em ạ. Em cảm ơn ạ.

Mã:

Sub nhaplieu()
Dim i As Long
Dim Dcuoi As Long
Dim Dcuoi02 As Long

Dcuoi = Sheet2.Range("G1000").End(xlUp).Row + 1


Sheet2.Cells(Dcuoi, 1) = Sheet1.Cells(4, 1)
Sheet2.Cells(Dcuoi, 2) = Sheet1.Cells(4, 2)
Sheet2.Cells(Dcuoi, 3) = Sheet1.Cells(4, 3)
Sheet2.Cells(Dcuoi, 4) = Sheet1.Cells(4, 4)
Sheet2.Cells(Dcuoi, 5) = Sheet1.Cells(4, 5)
Sheet2.Cells(Dcuoi, 6) = Sheet1.Cells(4, 6)
''''''''''
Sheet2.Cells(Dcuoi, 7) = Sheet1.Cells(4, 7)
Sheet2.Cells(Dcuoi + 1, 7) = Sheet1.Cells(5, 7)
Sheet2.Cells(Dcuoi + 2, 7) = Sheet1.Cells(6, 7)
Sheet2.Cells(Dcuoi + 3, 7) = Sheet1.Cells(7, 7)
Sheet2.Cells(Dcuoi + 4, 7) = Sheet1.Cells(8, 7)
Sheet2.Cells(Dcuoi + 5, 7) = Sheet1.Cells(9, 7)
Sheet2.Cells(Dcuoi + 6, 7) = Sheet1.Cells(10, 7)
Sheet2.Cells(Dcuoi + 7, 7) = Sheet1.Cells(11, 7)
''''
Sheet2.Cells(Dcuoi, 8) = Sheet1.Cells(4, 8)
Sheet2.Cells(Dcuoi + 1, 8) = Sheet1.Cells(5, 8)
Sheet2.Cells(Dcuoi + 2, 8) = Sheet1.Cells(6, 8)
Sheet2.Cells(Dcuoi + 3, 8) = Sheet1.Cells(7, 8)
Sheet2.Cells(Dcuoi + 4, 8) = Sheet1.Cells(8, 8)
Sheet2.Cells(Dcuoi + 5, 8) = Sheet1.Cells(9, 8)
Sheet2.Cells(Dcuoi + 6, 8) = Sheet1.Cells(10, 8)
Sheet2.Cells(Dcuoi + 7, 8) = Sheet1.Cells(11, 8)
Dcuoi02 = Sheet2.Range("G1000").End(xlUp).Row


Sheet2.Range("A2:A1000").NumberFormat = "DD/MM/YYYY"
Sheet2.Range("A2:H" & Dcuoi02).Borders.LineStyle = 1
Sheet2.Range("F2:F1000").NumberFormat = "#,###"
Sheet2.Range("H2:H1000").NumberFormat = "#,###"

End Sub

Bạn thử xem,code chưa bắt nhập trùng. Mỗi lần chạy code là mỗi lần nhập

Mã:

Option Explicit

Sub NhhapLieu()
    Dim rNhap As Range, DongCuoi As Long
    Set rNhap = Sheets("nhap").Range("A4:H10")
    With Sheets("ket qua")
        DongCuoi = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
        If DongCuoi < 4 Then DongCuoi = 4
        rNhap.Copy .Range("A" & DongCuoi)
    End With
End Sub

Hai Lúa Miền Tây · 3/2/21

thao nguyen01 đã viết:

Kính gửi anh/chị trên diễn đàn,
Em muốn khi em nhập ở sheet nhập, thì sẽ copy dữ liệu từ A4:H10 bên sheet nhập và dán nối tiếp vào sheet kết quả ạ. Em có viết code nhưng em viết bằng các ô trong VBA và em không tạo được merge đối với các cột A, B, C, D, E, F. Em có để kết quả ở sheet data. Anh/chị xem giúp em ạ. Em cảm ơn ạ.

Mã:

Sub nhaplieu()
Dim i As Long
Dim Dcuoi As Long
Dim Dcuoi02 As Long

Dcuoi = Sheet2.Range("G1000").End(xlUp).Row + 1


Sheet2.Cells(Dcuoi, 1) = Sheet1.Cells(4, 1)
Sheet2.Cells(Dcuoi, 2) = Sheet1.Cells(4, 2)
Sheet2.Cells(Dcuoi, 3) = Sheet1.Cells(4, 3)
Sheet2.Cells(Dcuoi, 4) = Sheet1.Cells(4, 4)
Sheet2.Cells(Dcuoi, 5) = Sheet1.Cells(4, 5)
Sheet2.Cells(Dcuoi, 6) = Sheet1.Cells(4, 6)
''''''''''
Sheet2.Cells(Dcuoi, 7) = Sheet1.Cells(4, 7)
Sheet2.Cells(Dcuoi + 1, 7) = Sheet1.Cells(5, 7)
Sheet2.Cells(Dcuoi + 2, 7) = Sheet1.Cells(6, 7)
Sheet2.Cells(Dcuoi + 3, 7) = Sheet1.Cells(7, 7)
Sheet2.Cells(Dcuoi + 4, 7) = Sheet1.Cells(8, 7)
Sheet2.Cells(Dcuoi + 5, 7) = Sheet1.Cells(9, 7)
Sheet2.Cells(Dcuoi + 6, 7) = Sheet1.Cells(10, 7)
Sheet2.Cells(Dcuoi + 7, 7) = Sheet1.Cells(11, 7)
''''
Sheet2.Cells(Dcuoi, 8) = Sheet1.Cells(4, 8)
Sheet2.Cells(Dcuoi + 1, 8) = Sheet1.Cells(5, 8)
Sheet2.Cells(Dcuoi + 2, 8) = Sheet1.Cells(6, 8)
Sheet2.Cells(Dcuoi + 3, 8) = Sheet1.Cells(7, 8)
Sheet2.Cells(Dcuoi + 4, 8) = Sheet1.Cells(8, 8)
Sheet2.Cells(Dcuoi + 5, 8) = Sheet1.Cells(9, 8)
Sheet2.Cells(Dcuoi + 6, 8) = Sheet1.Cells(10, 8)
Sheet2.Cells(Dcuoi + 7, 8) = Sheet1.Cells(11, 8)
Dcuoi02 = Sheet2.Range("G1000").End(xlUp).Row


Sheet2.Range("A2:A1000").NumberFormat = "DD/MM/YYYY"
Sheet2.Range("A2:H" & Dcuoi02).Borders.LineStyle = 1
Sheet2.Range("F2:F1000").NumberFormat = "#,###"
Sheet2.Range("H2:H1000").NumberFormat = "#,###"

End Sub

Để lưu dữ liệu mà trộn dòng như thế thì sẽ gặp khó khăn khi tạo báo biểu sau này.

thao nguyen01 · 3/2/21

NHN_Phương đã viết:
Bạn thử xem,code chưa bắt nhập trùng. Mỗi lần chạy code là mỗi lần nhập

Mã:

Option Explicit Sub NhhapLieu() Dim rNhap As Range, DongCuoi As Long Set rNhap = Sheets("nhap").Range("A4:H10") With Sheets("ket qua") DongCuoi = .Cells(.Rows.Count, "G").End(xlUp).Row + 1 If DongCuoi < 4 Then DongCuoi = 4 rNhap.Copy .Range("A" & DongCuoi) End With End Sub

Kết quả ra đúng ạ. Mình cảm ơn bạn nhiều

Bài đã được tự động gộp: 3/2/21

Hai Lúa Miền Tây đã viết:
Để lưu dữ liệu mà trộn dòng như thế thì sẽ gặp khó khăn khi tạo báo biểu sau này.

Dạ, em sẽ rút kinh nghiệm ạ. Em cảm ơn Thầy ạ.

Hoàng Nhật Phương · 3/2/21

thao nguyen01 đã viết:
Kết quả ra đúng ạ. Mình cảm ơn bạn nhiều

Bài đã được tự động gộp: 3/2/21

Dạ, em sẽ rút kinh nghiệm ạ. Em cảm ơn Thầy ạ.

Chưa vừa ý đâu bạn, nếu bạn chạy code lần 1 vẫn kết quả cũ thì nó sẽ ghi tiếp sang do đó mà phải tùy biến kiểm tra trùng hoặc xóa dữ liệu cũ sau mỗi lần nhập nữa

Hai Lúa Miền Tây · 3/2/21

NHN_Phương đã viết:
Chưa vừa ý đâu bạn, nếu bạn chạy code lần 1 vẫn kết quả cũ thì nó sẽ ghi tiếp sang do đó mà phải tùy biến kiểm tra trùng hoặc xóa dữ liệu cũ sau mỗi lần nhập nữa

Nếu xét điểm này thì hơi khó, bởi vì dữ liệu là những dòng trộn

thao nguyen01 · 3/2/21

NHN_Phương đã viết:
Chưa vừa ý đâu bạn, nếu bạn chạy code lần 1 vẫn kết quả cũ thì nó sẽ ghi tiếp sang do đó mà phải tùy biến kiểm tra trùng hoặc xóa dữ liệu cũ sau mỗi lần nhập nữa

Cảm ơn bạn đã góp ý. Mình sẽ cho xoá dữ liệu cũ sau mỗi lần copy sang sheet Data, vì đối với bài này nếu kiểm tra trùng chắc chỉ dựa vào số chứng từ

Bài đã được tự động gộp: 3/2/21

Hai Lúa Miền Tây đã viết:
Nếu xét điểm này thì hơi khó, bởi vì dữ liệu là những dòng trộn

Dạ, bạn @NHN_Phương đã giải quyết bài ở trên của em. Nhưng Thầy cho em hỏi nếu dữ liệu không trùng, Thầy dùng Dic để kiểm tra trùng ạ? (Dựa vào số chứng từ). Em muốn học hỏi thêm thôi ạ. Em cảm ơn Thầy.

Em gửi lại file không trộn ô ạ

Hai Lúa Miền Tây · 3/2/21

thao nguyen01 đã viết:
Cảm ơn bạn đã góp ý. Mình sẽ cho xoá dữ liệu cũ sau mỗi lần copy sang sheet Data, vì đối với bài này nếu kiểm tra trùng chắc chỉ dựa vào số chứng từ

Bài đã được tự động gộp: 3/2/21

Dạ, bạn @NHN_Phương đã giải quyết bài ở trên của em. Nhưng Thầy cho em hỏi nếu dữ liệu không trùng, Thầy dùng Dic để kiểm tra trùng ạ? (Dựa vào số phiếu). Em muốn học hỏi thêm thôi ạ. Em cảm ơn Thầy.

Em gửi lại file không trộn ô ạ

Xóa đi sẽ không phải là cách hay, bởi vì dữ liệu được ghi liên tục, nếu xóa thì xóa những dòng nào, hay xóa hết? Nếu xóa hết thì còn đâu nhật ký để làm báo biểu?

Hoàng Nhật Phương · 3/2/21

thao nguyen01 đã viết:
dùng Dic để kiểm tra trùng ạ? (Dựa vào số phiếu).

Bạn ơi , OT Không thấy số phiếu đâu cả

thao nguyen01 · 3/2/21

Hai Lúa Miền Tây đã viết:
Xóa đi sẽ không phải là cách hay, bởi vì dữ liệu được ghi liên tục, nếu xóa thì xóa những dòng nào, hay xóa hết? Nếu xóa hết thì còn đâu nhật ký để làm báo biểu?

Dạ không ạ. Em xoá những ô ở sheet nhap vì mới copy vào sheet data rồi ạ

Bài đã được tự động gộp: 3/2/21

NHN_Phương đã viết:
Bạn ơi , OT Không thấy số phiếu đâu cả

Xin lỗi bạn nha. Số chứng từ mới đúng. Mình Ví dụ: PC01, PC02

Hoàng Nhật Phương · 3/2/21

thao nguyen01 đã viết:
Cảm ơn bạn đã góp ý. Mình sẽ cho xoá dữ liệu cũ sau mỗi lần copy sang sheet Data, vì đối với bài này nếu kiểm tra trùng chắc chỉ dựa vào số chứng từ

Bài đã được tự động gộp: 3/2/21

Dạ, bạn @NHN_Phương đã giải quyết bài ở trên của em. Nhưng Thầy cho em hỏi nếu dữ liệu không trùng, Thầy dùng Dic để kiểm tra trùng ạ? (Dựa vào số chứng từ). Em muốn học hỏi thêm thôi ạ. Em cảm ơn Thầy.

Em gửi lại file không trộn ô ạ

Bạn đã lỡ hỏi anh @Hai Lúa Miền Tây rồi thì hỏi ADO ấy .. chứ hỏi gì Dic, anh ấy đã nghỉ chơi với Dic lâu lắm rồi }}}}}

Hai Lúa Miền Tây · 3/2/21

thao nguyen01 đã viết:
Dạ không ạ. Em xoá những ô ở sheet nhap vì mới copy vào sheet data rồi ạ

Trường hợp nhập trùng phiếu thì nó sẽ không có tác dụng nhé bạn. Ta phải lấy số phiếu chuẩn bị nhập, so sánh bảng data. Xét nếu có rồi thì không nhập nữa, ngược lại thì cho nhập vào.

thao nguyen01 · 3/2/21

Hai Lúa Miền Tây đã viết:
Trường hợp nhập trùng phiếu thì nó sẽ không có tác dụng nhé bạn. Ta phải lấy số phiếu chuẩn bị nhập, so sánh bảng data. Xét nếu có rồi thì không nhập nữa, ngược lại thì cho nhập vào.

Dạ, em chưa hiểu lắm. Thầy lấy số phiếu dò với số chứng từ bên data, nhưng data ngày càng rộng ra do cứ nạp dữ liệu vào. Và mình cũng phải nhập vào số chứng từ cần dò, tiếp theo so sánh với data. Em hiểu ý Thầy nhưng em chưa biết cách làm như thế nào ạ. Thầy hướng dẫn em với ạ.

Hoàng Nhật Phương · 3/2/21

thao nguyen01 đã viết:
Dạ, em chưa hiểu lắm. Thầy lấy số phiếu dò với số chứng từ bên data, nhưng data ngày càng rộng ra do cứ nạp dữ liệu vào. Và mình cũng phải nhập vào số chứng từ cần dò, tiếp theo so sánh với data. Em hiểu ý Thầy nhưng em chưa biết cách làm như thế nào ạ. Thầy hướng dẫn em với ạ.

Nếu sheet nhập liệu mỗi lần nhập là một số chứng từ thì bạn thử code sau:

Mã:

Option Explicit
Sub NhapLieu_2()
    Dim rNhap As Range, DongCuoi As Long
    Dim SoPhieu As String, KiemTra As Boolean
    With Sheets("nhap")
        Set rNhap = .Range("A4:H10")
        SoPhieu = .Range("B4")
    End With
    With Sheets("ket qua")
        DongCuoi = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
        If DongCuoi < 4 Then DongCuoi = 4
        KiemTra = WorksheetFunction.CountIf(.Range("B4:B" & DongCuoi), SoPhieu)
        If Not KiemTra Then
            rNhap.Copy .Range("A" & DongCuoi)
        Else
            MsgBox "So phieu: " & SoPhieu & " da ton tai trong nhat ky!", vbCritical, "Thon bao trung"
        End If
    End With
End Sub

thao nguyen01 · 3/2/21

NHN_Phương đã viết:

Nếu sheet nhập liệu mỗi lần nhập là một số chứng từ thì bạn thử code sau:

Mã:

Option Explicit
Sub NhapLieu_2()
    Dim rNhap As Range, DongCuoi As Long
    Dim SoPhieu As String, KiemTra As Boolean
    With Sheets("nhap")
        Set rNhap = .Range("A4:H10")
        SoPhieu = .Range("B4")
    End With
    With Sheets("ket qua")
        DongCuoi = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
        If DongCuoi < 4 Then DongCuoi = 4
        KiemTra = WorksheetFunction.CountIf(.Range("B4:B" & DongCuoi), SoPhieu)
        If Not KiemTra Then
            rNhap.Copy .Range("A" & DongCuoi)
        Else
            MsgBox "So phieu: " & SoPhieu & " da ton tai trong nhat ky!", vbCritical, "Thon bao trung"
        End If
    End With
End Sub

Cột số chứng từ của mình là cột D. Mình chỉnh lại dựa vào code của bạn. Mình cảm ơn bạn nhiều.

DarkWanderer · 3/2/21

thao nguyen01 đã viết:

Kính gửi anh/chị trên diễn đàn,
Em muốn khi em nhập ở sheet nhập, thì sẽ copy dữ liệu từ A4:H10 bên sheet nhập và dán nối tiếp vào sheet kết quả ạ. Em có viết code nhưng em viết bằng các ô trong VBA và em không tạo được merge đối với các cột A, B, C, D, E, F. Em có để kết quả ở sheet data. Anh/chị xem giúp em ạ. Em cảm ơn ạ.

Mã:

Sub nhaplieu()
Dim i As Long
Dim Dcuoi As Long
Dim Dcuoi02 As Long

Dcuoi = Sheet2.Range("G1000").End(xlUp).Row + 1


Sheet2.Cells(Dcuoi, 1) = Sheet1.Cells(4, 1)
Sheet2.Cells(Dcuoi, 2) = Sheet1.Cells(4, 2)
Sheet2.Cells(Dcuoi, 3) = Sheet1.Cells(4, 3)
Sheet2.Cells(Dcuoi, 4) = Sheet1.Cells(4, 4)
Sheet2.Cells(Dcuoi, 5) = Sheet1.Cells(4, 5)
Sheet2.Cells(Dcuoi, 6) = Sheet1.Cells(4, 6)
''''''''''
Sheet2.Cells(Dcuoi, 7) = Sheet1.Cells(4, 7)
Sheet2.Cells(Dcuoi + 1, 7) = Sheet1.Cells(5, 7)
Sheet2.Cells(Dcuoi + 2, 7) = Sheet1.Cells(6, 7)
Sheet2.Cells(Dcuoi + 3, 7) = Sheet1.Cells(7, 7)
Sheet2.Cells(Dcuoi + 4, 7) = Sheet1.Cells(8, 7)
Sheet2.Cells(Dcuoi + 5, 7) = Sheet1.Cells(9, 7)
Sheet2.Cells(Dcuoi + 6, 7) = Sheet1.Cells(10, 7)
Sheet2.Cells(Dcuoi + 7, 7) = Sheet1.Cells(11, 7)
''''
Sheet2.Cells(Dcuoi, 8) = Sheet1.Cells(4, 8)
Sheet2.Cells(Dcuoi + 1, 8) = Sheet1.Cells(5, 8)
Sheet2.Cells(Dcuoi + 2, 8) = Sheet1.Cells(6, 8)
Sheet2.Cells(Dcuoi + 3, 8) = Sheet1.Cells(7, 8)
Sheet2.Cells(Dcuoi + 4, 8) = Sheet1.Cells(8, 8)
Sheet2.Cells(Dcuoi + 5, 8) = Sheet1.Cells(9, 8)
Sheet2.Cells(Dcuoi + 6, 8) = Sheet1.Cells(10, 8)
Sheet2.Cells(Dcuoi + 7, 8) = Sheet1.Cells(11, 8)
Dcuoi02 = Sheet2.Range("G1000").End(xlUp).Row


Sheet2.Range("A2:A1000").NumberFormat = "DD/MM/YYYY"
Sheet2.Range("A2:H" & Dcuoi02).Borders.LineStyle = 1
Sheet2.Range("F2:F1000").NumberFormat = "#,###"
Sheet2.Range("H2:H1000").NumberFormat = "#,###"

End Sub

Theo như mình hiểu thì đây là bạn nhập Phiếu xuất, trong phiếu xuất có nhiều loại mặt hàng khác nhau (Giống 1 tờ Hóa đơn vậy). Bạn không nên sử dụng chức năng gộp dòng, như vậy truy xuất dữ liệu rất khó (VD: Bạn gộp từ D4

10 là PC01 thì chỉ có D4 có giá trị là PC01 thôi).
Tham khảo thế này thử xem:

huuthang_bd · 3/2/21

Thông thường người ta sẽ làm cái form nhập như thế này:

SA_DQ · 3/2/21

Nếu là mình, thì sẽ tạo 2 bảng:

NGÀY

TRẢ CT CHI

Mã QH

NHÂN VIÊN

SỐ CT

NỘI DUNG

TỔNG TIỀN

TT

Mã QH

CHI TIẾT

SỐ TIỀN

12/22/2020

JBV001

Nguyễn Văn A

PC01

Mặt hàng AB

43,700,000

1

JBV001

Vật tư A

2,000,000

12/22/2020

JBV002

Nguyễn Văn Anh

PC02

Mặt hàng BA

43,800,000

2

JBV001

Vật tư B

500,000

3

JBV001

Vật tư C

200,000

4

JBV001

Vật tư D

1,000,000

5

JBV001

Vật tư A

16,000,000

6

JBV001

Vật tư E

12,000,000

7

JBV001

Vật tư F

12,000,000

8

JBV002

Vật tư A

2,000,000

9

JBV002

Vật tư B

500,000

10

JBV002

Vật tư Z

300,000

11

JBV002

Vật tư D

1,000,000

12

JBV002

Vật tư A

16,000,000

13

JBV002

Vật tư E

12,000,000

14

JBV002

Vật tư F

12,000,000

Ở đây: Kí tự đâu tiên của mã quan hệ để chỉ năm (J là năm 2020, năm nay sẽ là 'K')
B để chỉ tháng 12, & V để chỉ ngày 22
3 kí tự cuối trong mã dùng để tính số TT tăng dần trong 1 ngày.
[Mã QH này hoàn toàn có thể tự động tạo ra bỡi 1 cách nào đó . . . . ]

Chúc mọi người vui nhân dịp xuân về!

Tạo danh sách nhập liệu bằng VBA

Thành viên thường trực

File đính kèm

|||||||||||||

Thành viên thường trực

Thành viên gắn bó

❆❆❆❆❆❆❆❆

Thành viên thường trực

Thành viên gắn bó

❆❆❆❆❆❆❆❆

Thành viên thường trực

File đính kèm

❆❆❆❆❆❆❆❆

Thành viên gắn bó

Thành viên thường trực

Thành viên gắn bó

❆❆❆❆❆❆❆❆

Thành viên thường trực

Thành viên gắn bó

Thành viên thường trực

Thành viên hoạt động

Chuyên gia GPE

/(hông là gì!