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

Liên hệ QC
T

thao nguyen01

Thành viên thường trực
Tham gia
8/12/19
Bài viết
214
Được thích
25
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
 

File đính kèm

  • Book1-03.02.2021.xlsb
    21.8 KB · Đọc: 14
Sắp xếp theo thời gian sắp xếp theo bầu chọn
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.
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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 :D
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
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
Để 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.
 
Upvote 0
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 :D
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
Nhấp chuột vào đây để mở rộng...
Kết quả ra đúng ạ. Mình cảm ơn bạn nhiều
Bài đã được tự động gộp:

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.
Nhấp chuột vào đây để mở rộng...
Dạ, em sẽ rút kinh nghiệm ạ. Em cảm ơn Thầy ạ.
 
Upvote 0
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:


Dạ, em sẽ rút kinh nghiệm ạ. Em cảm ơn Thầy ạ.
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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:

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
Nhấp chuột vào đây để mở rộng...
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 ô ạ
 

File đính kèm

  • Book1-03.02.2021.xlsb
    23.1 KB · Đọc: 9
Lần chỉnh sửa cuối:
Upvote 0
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:


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 ô ạ
Nhấp chuột vào đây để mở rộng...
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?
 
Upvote 0
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?
Nhấp chuột vào đây để mở rộng...
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:

NHN_Phương đã viết:
Bạn ơi , OT Không thấy số phiếu đâu cả :D
Nhấp chuột vào đây để mở rộng...
Xin lỗi bạn nha. Số chứng từ mới đúng. Mình Ví dụ: PC01, PC02
 
Upvote 0
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:


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 ô ạ
Nhấp chuột vào đây để mở rộng...
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 }}}}}
 
Upvote 0
thao nguyen01 đã viết:
Dạ không ạ. Em xoá những ô ở sheet nhap vì mới copy vào sheet data rồi ạ
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
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.
Nhấp chuột vào đây để mở rộng...
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 ạ.
 
Upvote 0
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 ạ.
Nhấp chuột vào đây để mở rộng...
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
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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.
 
Upvote 0
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
Nhấp chuột vào đây để mở rộng...
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:D10 là PC01 thì chỉ có D4 có giá trị là PC01 thôi).
Tham khảo thế này thử xem:
Capture.PNG
 
Upvote 0
Nếu là mình, thì sẽ tạo 2 bảng:

NGÀYTRẢ CT CHIMã QHNHÂN VIÊNSỐ CTNỘI DUNGTỔNG TIỀNTTMã QHCHI TIẾTSỐ TIỀN
12/22/2020​
JBV001Nguyễn Văn APC01Mặt hàng AB
43,700,000​
1JBV001Vật tư A
2,000,000​
12/22/2020​
JBV002Nguyễn Văn AnhPC02Mặt hàng BA
43,800,000​
2JBV001Vật tư B
500,000​
3JBV001Vật tư C
200,000​
4JBV001Vật tư D
1,000,000​
5JBV001Vật tư A
16,000,000​
6JBV001Vật tư E
12,000,000​
7JBV001Vật tư F
12,000,000​
8JBV002Vật tư A
2,000,000​
9JBV002Vật tư B
500,000​
10JBV002Vật tư Z
300,000​
11JBV002Vật tư D
1,000,000​
12JBV002Vật tư A
16,000,000​
13JBV002Vật tư E
12,000,000​
14JBV002Vậ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ề!
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

H
Trích Lọc dữ liệu với Macro
Trả lời
18
Đọc
1K
HTN033
H
LuuAnh980
Filter lọc có "mm" mà không thấy.
Trả lời
3
Đọc
67
VetMini
V
C
Giúp em viết công thức làm lịch thi đấu.
Trả lời
3
Đọc
63
VetMini
V
pupuchcha
  • Question
Viết code để tìm xích ma, mong mọi người giúp đỡ em ạ
Trả lời
4
Đọc
110
VetMini
V
C
  • Question
Tạo schedule chạy code VBA
Trả lời
8
Đọc
260
VetMini
V
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom