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

[thao nguyen01]

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 ạ.

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

 

[thao nguyen01]

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ừ D410 là PC01 thì chỉ có D4 có giá trị là PC01 thôi).
Tham khảo thế này thử xem:
View attachment 253903

Dạ, em cảm ơn anh

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

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

Dạ, em cảm ơn anh

Bài đã được tự động gộp: 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ư C

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ề!

Dạ, con cảm ơn Bác

 

[be_09]

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 ạ.

Góp ý cho bạn:
1/ Nên làm phiếu chi kiểu như File đính kèm để còn in phiếu chi. Có 2 mục Trả chứng từ chi và Nội dung bạn không có dữ liệu nên tôi không biết bố trí nó chỗ nào cho phù hợp.
2/ Chi tiết vật tư nên có 1 sheet danh mục thì việc nhập liệu sẽ nhanh và thống nhất được dữ liệu.

 

[thao nguyen01]

Góp ý cho bạn:
1/ Nên làm phiếu chi kiểu như File đính kèm để còn in phiếu chi. Có 2 mục Trả chứng từ chi và Nội dung bạn không có dữ liệu nên tôi không biết bố trí nó chỗ nào cho phù hợp.
2/ Chi tiết vật tư nên có 1 sheet danh mục thì việc nhập liệu sẽ nhanh và thống nhất được dữ liệu.

Dạ, con sẽ điều chỉnh lại. Con cảm ơn Bác ạ.

 

[Hoàng Nhật Phương]

OT thử làm theo form anh @huuthang_bd gợi ý ở Bài 19.
Bạn thử xem:

Option Explicit

Sub NhapLieu()

    Dim rDauNhap As Range, rDuoiNhap As Range
    Dim SoPhieu As String, Rng As Range, DongCuoi As Long
    Dim Book As Workbook, shForm As Worksheet, shKQ As Worksheet
    
    Set Book = ThisWorkbook
    Set shForm = Book.Worksheets("Form")
    Set shKQ = Book.Worksheets("KQ")
    
    With shForm
        Set rDauNhap = .Range("B1:B6")
        Set rDuoiNhap = .Range("A9:B15")
        SoPhieu = .Range("B4")
    End With
    
    With shKQ
        DongCuoi = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
        If DongCuoi < 2 Then DongCuoi = 2
        Set Rng = .Range("D2:D" & DongCuoi).Find(SoPhieu)
        If Rng Is Nothing Then
            GoTo Nhap_Lieu
        Else
            DongCuoi = Rng.Row
            Dim Msg, Style, Response
            Msg = "So phieu: " & SoPhieu & " da ton tai trong nhat ky," & vbNewLine & _
                  "Ban co muon thay doi ?"
            Style = vbYesNo + vbInformation + vbOKOnly
            Response = MsgBox(Msg, Style)
            If Response = vbYes Then GoTo Nhap_Lieu Else GoTo End_
        End If
Nhap_Lieu:
        rDauNhap.Copy:  .Range("A" & DongCuoi).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        rDuoiNhap.Copy: .Range("G" & DongCuoi).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
    End With

End_:

End Sub

 

[thao nguyen01]

OT thử làm theo form anh @huuthang_bd gợi ý ở Bài 19.
Bạn thử xem:

Option Explicit

Sub NhapLieu()

    Dim rDauNhap As Range, rDuoiNhap As Range
    Dim SoPhieu As String, Rng As Range, DongCuoi As Long
    Dim Book As Workbook, shForm As Worksheet, shKQ As Worksheet
   
    Set Book = ThisWorkbook
    Set shForm = Book.Worksheets("Form")
    Set shKQ = Book.Worksheets("KQ")
   
    With shForm
        Set rDauNhap = .Range("B1:B6")
        Set rDuoiNhap = .Range("A9:B15")
        SoPhieu = .Range("B4")
    End With
   
    With shKQ
        DongCuoi = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
        If DongCuoi < 2 Then DongCuoi = 2
        Set Rng = .Range("D2:D" & DongCuoi).Find(SoPhieu)
        If Rng Is Nothing Then
            GoTo Nhap_Lieu
        Else
            DongCuoi = Rng.Row
            Dim Msg, Style, Response
            Msg = "So phieu: " & SoPhieu & " da ton tai trong nhat ky," & vbNewLine & _
                  "Ban co muon thay doi ?"
            Style = vbYesNo + vbInformation + vbOKOnly
            Response = MsgBox(Msg, Style)
            If Response = vbYes Then GoTo Nhap_Lieu Else GoTo End_
        End If
Nhap_Lieu:
        rDauNhap.Copy:  .Range("A" & DongCuoi).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        rDuoiNhap.Copy: .Range("G" & DongCuoi).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
    End With

End_:

End Sub

Mình cảm ơn bạn nha.