Xin hỏi cách tạo form nhập liệu tự động về các sheet có sẵn

[dodinhkhai]

Em chào các anh.
Em đang có nhu cầu thế này: Có danh sách học sinh các lớp với đầy đủ các thông tin cá nhân rồi. Trong quá trình học có thể thông tin đó được bổ sung. Có nhiều người cùng phải bổ sung thêm thông tin. Nếu 1 vài người thì mình có thể tìm tới mục của họ để điền thêm nhưng nếu mỗi lần thay đổi có khoảng 50 người thì tìm từng người một để thêm thông tin thì thật là vất vả.
Vậy nên e muốn hỏi các anh cách tạo 1 form nhập liệu như vậy.
Em đã tạo 1 file excel và trình bày rõ mục đích yêu cầu trong đó, mong các anh giúp đỡ!

 

[SA_DQ]

Còn đây là file chứa Form nhập theo từng phiếu cho từng đơn vị
Bạn theo tác thử & cho ý kiến để còn cải tiến có thể

File đã thu hồi; Xin các bạn xem file ở các bài tiếp theo

 

[tolekimngan]

Còn đây là file chứa Form nhập theo từng phiếu cho từng đơn vị
Bạn theo tác thử & cho ý kiến để còn cải tiến có thể

(Chiều muộn mình sẽ thu hội file bài trước)

Bài đã được tự động gộp: 25/5/19

Bài đã được tự động gộp: 25/5/19

Bài đã được tự động gộp: 25/5/19

Dạ thầy xem giúp e ạ

Bài đã được tự động gộp: 25/5/19

Còn đây là file chứa Form nhập theo từng phiếu cho từng đơn vị
Bạn theo tác thử & cho ý kiến để còn cải tiến có thể

(Chiều muộn mình sẽ thu hội file bài trước)

 

[tolekimngan]

Còn đây là file chứa Form nhập theo từng phiếu cho từng đơn vị
Bạn theo tác thử & cho ý kiến để còn cải tiến có thể

(Chiều muộn mình sẽ thu hội file bài trước)

Bài đã được tự động gộp: 25/5/19

dạ em điều chỉnh rồi ạ

 

[SA_DQ]

Bạn kiểm số liệu theo trang 'THop'
Sau đó thử nhập thêm số liệu & kiểm tra tiếp
Chúc vui!

CN 6h15: Đã thay file mới với Font chữ trong Form rõ & đậm hơn
Còn chuyện sửa dòng dữ liệu chưa làm ra kết quả; Hãy đợi thêm thời gian

 

[tolekimngan]

Bạn kiểm số liệu theo trang 'THop'
Sau đó thử nhập thêm số liệu & kiểm tra tiếp

Chúc vui!

Dạ e cám ơn thầy ạ

 

[tolekimngan]

Bạn kiểm số liệu theo trang 'THop'
Sau đó thử nhập thêm số liệu & kiểm tra tiếp
Chúc vui!

CN 6h15: Đã thay file mới với Font chữ trong Form rõ & đậm hơn
Còn chuyện sửa dòng dữ liệu chưa làm ra kết quả; Hãy đợi thêm thời gian

dạ vâng ạ

 

[tolekimngan]

thầy xem giúp e phần tổng hợp này ạ

 

[SA_DQ]

Xem thề dễ ợt, file file lên rồi ngắm 1 lúc là xong
Còn chuyện giúp thì chưa thể vì có dữ liệu đâu mà tổng hợp?
Muốn được giúp phần tổng hợp này thì lấy file bài trên của mình; nhập số liệu 1 tháng nào đó mới có cơ sở để mà tổng hợp

 

[tolekimngan]

Xem thề dễ ợt, file file lên rồi ngắm 1 lúc là xong
Còn chuyện giúp thì chưa thể vì có dữ liệu đâu mà tổng hợp?
Muốn được giúp phần tổng hợp này thì lấy file bài trên của mình; nhập số liệu 1 tháng nào đó mới có cơ sở để mà tổng hợp

Dạ vâng ạ

 

[SA_DQ]

Mình viết thử tồng hợp 2 mặt hàng đâu hủ & giá đỗ ở [A13]
Bạn kiểm tra & nhập thêm số liệu kiểm lại thử

Chúc ngày đầu tuần thành công!

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [A13]) Is Nothing Then
    Dim Arr()
    Dim Rws As Long, Dg As Integer, J As Long, Cot As Integer
    Dim MaHg As String
    
    ReDim dArr(1 To 6, 1 To 27)                 '6 Dòng & 27 DVi            '
1 'Tìm Mã Theo Ngành Hàng Cân Báo Cáo:   '
    For J = 2 To 35
        With Sheets("DMuc")
            If .Cells(J, "X").Value = Target.Value Then
                MaHg = Left(.Cells(J, "Y").Value, 3):       Exit For
            End If
         End With
    Next J
2 'Tìm Hàng Hóa Cân Cho BC   '
    With Sheets("CSDL")
        Arr() = .[A1].CurrentRegion.Offset(1).Value
        For J = 1 To UBound(Arr())
            If Left(Arr(J, 5), 3) = MaHg Then
21 '  Tìm Dòng Theo Ngày Xuât Hàng & Côt Theo Don Vi Nhân Hàng:          '
                Dg = XDDg(Arr(J, 1)):                           Cot = XDCt(Arr(J, 4))
                dArr(Dg, Cot) = dArr(Dg, Cot) + Arr(J, 8)
            End If
        Next J
    End With
3 ' Hiên Kêt Qua Thu Duoc:         '
    [B13].Resize(6, 27).Value = dArr()
 End If
End Sub

 

[tolekimngan]

Mình viết thử tồng hợp 2 mặt hàng đâu hủ & giá đỗ ở [A13]
Bạn kiểm tra & nhập thêm số liệu kiểm lại thử

Chúc ngày đầu tuần thành công!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A13]) Is Nothing Then
    Dim Arr()
    Dim Rws As Long, Dg As Integer, J As Long, Cot As Integer
    Dim MaHg As String

    ReDim dArr(1 To 6, 1 To 27)                 '6 Dòng & 27 DVi            '
1 'Tìm Mã Theo Ngành Hàng Cân Báo Cáo:   '
    For J = 2 To 35
        With Sheets("DMuc")
            If .Cells(J, "X").Value = Target.Value Then
                MaHg = Left(.Cells(J, "Y").Value, 3):       Exit For
            End If
         End With
    Next J
2 'Tìm Hàng Hóa Cân Cho BC   '
    With Sheets("CSDL")
        Arr() = .[A1].CurrentRegion.Offset(1).Value
        For J = 1 To UBound(Arr())
            If Left(Arr(J, 5), 3) = MaHg Then
21 '  Tìm Dòng Theo Ngày Xuât Hàng & Côt Theo Don Vi Nhân Hàng:          '
                Dg = XDDg(Arr(J, 1)):                           Cot = XDCt(Arr(J, 4))
                dArr(Dg, Cot) = dArr(Dg, Cot) + Arr(J, 8)
            End If
        Next J
    End With
3 ' Hiên Kêt Qua Thu Duoc:         '
    [B13].Resize(6, 27).Value = dArr()
End If
End Sub

Thầy xem hộ em xem nên tạo form sao cho phù hợp ạ

 

[SA_DQ]

Thử nhập liệu vô 7 đơn vị này xem sao?!?
Chủ yếu là dòng cần nhập trúng khớp

 

[SA_DQ]

Nhập liệu cho toàn bộ các đơn vị
Có thêm ngành hàng 'Mua lẽ'
Có nút lệnh để xóa toàn bộ dữ liệu của tháng đã nhập trước đó

(Chiều nay mình sẽ thu hồi file bài trên liền kề)

 

[tolekimngan]

Nhập liệu cho toàn bộ các đơn vị
Có thêm ngành hàng 'Mua lẽ'
Có nút lệnh để xóa toàn bộ dữ liệu của tháng đã nhập trước đó

(Chiều nay mình sẽ thu hồi file bài trên liền kề)

thầy xem giúp em

 

[SA_DQ]

Bạn thao tác thử để phát hiện những vấn đề chưa tiện lợi;
Muốn sửa 1 dòng DL trên ListBox, lấy chuột bấm vô nó
Sửa dữ liệu (Ngành hàng, mã hàng, số lương, đơn giá & ghi chú
Bấm nút lưu DL sửa

Nút lưu toàn bộ hóa đơn đã vận hành; Muốn sửa 1 dòng trong hóa đơn đang là chưa được.
Chúc vui!


(Xin các bạn xem các file đính kèm ở những bài tiếp theo của mình, cảm ơn)

 

[SA_DQ]

Phiên bản mới nhất của 'QuanNhu' đây, xin mời những ai quan tâm

(Xin các bạn xem các file đính kèm ở những bài tiếp theo của mình, cảm ơn)

 

[SA_DQ]

Bổ sung các báo cáo tổng hợp:
1: Tổng hợp phiếu nhập của từng NCC (nhà cung cấp)
2. Tổng hợp phiếu xuất từng NCC đến từng đơn vị trong tháng

Xin các bạn xem file ở các bài tiếp theo bên dưới

 

[SA_DQ]

Phiên bản cải tiến mới nhất gồm:
1: Bỏ bớt 1 ComboBox liệt kê NCC (nhà cung cấp) & đem ComboBox còn lại ra Form (không còn để trên các Pages)
2. Khi chọn NCC trên ComboBox (vừa đem ra Form này) thì tr6n ComboBox phân loại mặt hàng chỉ liệt kê những loại hàng của NCC đã chọn này có.

 

[SA_DQ]

Nhập thêm số liệu vô 'Nhap' để đa dạnh NCC & đa dạng ngày nhập số liệu
Sau mỗi lần nhập tiến hành chạy thử B/C
Hướng dẫn sử dụng:
Trước hết, muốn có B/c 1 ngày thì chọn số 1 trong CF (1)
Sau đó nhập ngày đầu ô ô dưới NCC & cuối cùng chọn NCC để có số liệu

 

[tolekimngan]

Xong thêm bảng thống kê báo nợ của các đơn vị rồi đây
Bạn nhập thêm dữ liệu & kiểm tra lần cuối xem sao:

Em cám ơn thầy ạ