NHờ GPE rut ngắn dùm đoạn code nhập số liệu

[vu_ctn]

MÌnh có 1 đoạn code nhập số liệu ,nhưng số liệu của mình nhập vào rất nhiều. (1 nhân viên thu ngân có thể thu tiền 500 khánh hàng 1 ngày) mình thấy trong đoạn code của mình có rất nhiều lệnh giống nhau dòng sau = dòng trước +1 .nhưng mình suy nghĩ hoài kg thể rút gọn được. 1 đoạn code gần 2.000 dòng thì rất xấu và rất khó sửa khi cần thiết.
Nhờ ACE xem file mẫu và sửa lại đoạn code cho đơn giản hơn

 

[ndu96081631]

MÌnh có 1 đoạn code nhập số liệu ,nhưng số liệu của mình nhập vào rất nhiều. (1 nhân viên thu ngân có thể thu tiền 500 khánh hàng 1 ngày) mình thấy trong đoạn code của mình có rất nhiều lệnh giống nhau dòng sau = dòng trước +1 .nhưng mình suy nghĩ hoài kg thể rút gọn được. 1 đoạn code gần 2.000 dòng thì rất xấu và rất khó sửa khi cần thiết.
Nhờ ACE xem file mẫu và sửa lại đoạn code cho đơn giản hơn

Sửa code chắc được (dùng vòng lập For... Next)
Nhưng hỏi lại cho rõ:
- Bạn nói rằng:

số tiền nhập có thể lến đến 500 kh/ngày

- Thế nhưng tại sheet Bang Tong Hop, bạn bố trí dữ liệu theo dạng ngang! Vậy với 256 cột Excel là sao chứa đủ đây?

 

[ptm0412]

Code của bạn nhập liệu theo hàng ngang, theo như bạn nói nhập 500 món tiền 1 lúc thì bao nhiêu cột cho đủ?
Tôi đề nghị bạn nhập liệu hàng dọc. Muốn nhập 1 lần bao nhiêu dòng cũng được, vì 1 lần nhập là các khoản thu tiền của 1 tuyến đường, đúng không?
Rồi sau đó muốn hàng ngang theo KH thì dùng Pivot table. nếu số KH nhiều hơn số ngày nhập liệu (giả định bạn chỉ nhập mõi sheet 1 tháng), thì pivot theo cột.

Sub NhapLieu()
    m = [B1]
    If m = 0 Then MsgBox "Chua co gi rao troi!": Exit Sub
    With Sheets("Bang Tong Hop")
        n = .[F1]
        .[B5].Offset(n, 0).Resize(m, 4) = Application.Transpose(Range("B3:B6"))
        .Range("F5").Offset(n, 0).Resize(m, 2).Value = [b8].Resize(m, 2).Value
    End With
    Range("B8:c100").ClearContents
    Range("B3").Select

End Sub

 

[vu_ctn]

Cảm ơn bạn ptm0412 rất nhiều. thật là tuyệt bạn làm đúng ý mình rồi. Thank bạn nhiều.