Nhờ tạo giúp Form nhập dữ liệu!

[tiendungnst]

Nhờ ACE GPE tạo giúp cho mình form nhập dữ liệu cho file excel đính kèm!
Dữ liệu chỉ nhập một dòng dữ liệu thôi nhé các bác! Nhưng còn một số Colums thì em sẽ học hỏi và tự thêm sau ạh!
Nhờ các bác tạo form giúp, xin cảm ơn

 

[maytinhvp01]

Nhờ ACE GPE tạo giúp cho mình form nhập dữ liệu cho file excel đính kèm!
Dữ liệu chỉ nhập một dòng dữ liệu thôi nhé các bác! Nhưng còn một số Colums thì em sẽ học hỏi và tự thêm sau ạh!
Nhờ các bác tạo form giúp, xin cảm ơn

Đơn giản vì bạn bảo có thế hi!

 

[tiendungnst]

Đơn giản vì bạn bảo có thế hi!

Ko hiểu, không thấy file có gì cả!
Còn ý mình là nhờ tạo giúp Macro form nhập liệu theo các tiêu đề cột như file đính kèm ah

 

[maytinhvp01]

Ko hiểu, không thấy file có gì cả!
Còn ý mình là nhờ tạo giúp Macro form nhập liệu theo các tiêu đề cột như file đính kèm ah

vậy mà bạn bảo bạn tự làm tiếp. Bạn vẫn chưa biết chạy thử form vậy thì sao bạn tự làm tiếp được???????
Bạn có thể làm một thủ tục show cái form đó lên là có ngay trong macro. nếu bạn chưa biết làm thì cứ hởi từ từ chứ hỏi như bạn mình nghĩ bạn cũng đã biết chút rùi chứ

 

[be_09]

Nhờ ACE GPE tạo giúp cho mình form nhập dữ liệu cho file excel đính kèm!
Dữ liệu chỉ nhập một dòng dữ liệu thôi nhé các bác! Nhưng còn một số Colums thì em sẽ học hỏi và tự thêm sau ạh!
Nhờ các bác tạo form giúp, xin cảm ơn

Thử Form này xem sao.
Bạn phải thiết lập chế độ chạy Macro trước khi mở File.
Nội dung nhập liệu có hướng dẫn trên form.

 

[maytinhvp01]

Thử Form này xem sao.
Bạn phải thiết lập chế độ chạy Macro trước khi mở File.
Nội dung nhập liệu có hướng dẫn trên form.

Private Sub ListBox1_Change()
txtSoTT.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 1, True)
txtNoiDungBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 2, True)
cbxNguoiNhanBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 3, True)
cbxNguoiLapBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 4, True)
cbxNguoiDuyetBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 5, True)
cbxCDDuyetBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 6, True)
cbxNguoiDuyetBC2.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 7, True)
cbxThangBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 8, True)
txtThoiGianBC.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 9, True)
txtGHICHU.Value = Application.VLookup(Me.ListBox1, Sheets("Nhap lieu").Range("A:J"), 10, True)

End Sub

Trong file của bạn mình không hiểu đoạn code trên dùng để làm gì bạn giải thích được không?

 

[be_09]

txt= đầu mỗi câu lệnh là tên viết tắt của TextBox (để phân biệt các Control), cụm từ phía sau là tên viết tắt của tiêu đề cột (để biết Control nào nhập dữ liệu vào cột nào). Ví dụ: SoTT = số tứ tự (cột A), NoiDungBC = Nội dung báo cáo (cột B), ...v..v.....

cbx= đầu mỗi câu lệnh là tên viết tắt của ComboBox. ví dụ: cbxNguoiNhanBC = Người nhận báo cáo.

ListBox1 = ListBox dùng lấy dữ liệu để Load vào các Control.

Nhap lieu = là tên sheet dùng lấy dữ liệu (nếu bạn muốn sử dụng 1 sheet với danh sách các loại hàng hóa riêng thì bạn thay tên sheet Nhap lieu bằng tên sheet khác).

A:J = cột A đến cột J (khi click vào mỗi dòng của ListBox thì tương ứng với số dòng và số cột trên sheet Nhap lieu).

1 = cột A, 2 = cột B, 3= cột C ..v..v...

Lưu ý:
- Vùng màu xanh của sheet Data_LIST bạn gõ thay tên họ của từng người vào danh sách người nhận báo cáo, người lập báo cáo, chức danh nó sẽ tự Load vào Form.

 

[maytinhvp01]

txt= đầu mỗi câu lệnh là tên viết tắt của TextBox (để phân biệt các Control), cụm từ phía sau là tên viết tắt của tiêu đề cột (để biết Control nào nhập dữ liệu vào cột nào). Ví dụ: SoTT = số tứ tự, NoiDungBC = Nội dung báo cáo

cbx= đầu mỗi câu lệnh là tên viết tắt của ComboBox. ví dụ: cbxNguoiNhanBC = Người nhận báo cáo.

ListBox1 = ListBox dùng lấy dữ liệu để Load vào các Control.

Nhap lieu = là tên sheet dùng lấy dữ liệu (nếu bạn muốn sử dụng 1 sheet với danh sách các loại hàng hóa riêng thì bạn thay tên sheet Nhap lieu bằng tên sheet khác).

A:J = cột A đến cột J (khi click vào mỗi dòng của ListBox thì tương ứng với số dòng và số cột trên sheet Nhap lieu).

1 = cột A, 2 = cột B, 3= cột C ..v..v...

Theo mình hiểu thì: Code của command: nhâp liệu đã đủ tính năng để nhận giữ liệu mới từ các textbox và combobox từ form vào bảng theo dõi báo cáo của sheet nhập liệu rùi. Tiếp đến là trong properties của listbox bạn đã đặt thuộc tính Rowsuorse la vùng dữ liệu của có tên listboxnhaplieu, tức là list dữ liệu trên form cũng đã được cập nhật luôn. Vậy mình muốn hỏi lần nữa là dòng code trên mục đích của bạn là gì? "Có khi nào bạn viết thừ không vây?_không phải bỏ qua nhé"

 

[be_09]

Theo mình hiểu thì: Code của command: nhâp liệu đã đủ tính năng để nhận giữ liệu mới từ các textbox và combobox từ form vào bảng theo dõi báo cáo của sheet nhập liệu rùi. Tiếp đến là trong properties của listbox bạn đã đặt thuộc tính Rowsuorse la vùng dữ liệu của có tên listboxnhaplieu, tức là list dữ liệu trên form cũng đã được cập nhật luôn. Vậy mình muốn hỏi lần nữa là dòng code trên mục đích của bạn là gì? "Có khi nào bạn viết thừ không vây?_không phải bỏ qua nhé"

CommandButton = cmdNhapLieu (dùng truyền dữ liệu từ form vào Sheet Nhap lieu).

Trong cửa sổ Properties đặt thuộc tính Rowsuorse là ListBoxNhapLieu dùng để Load dữ liệu tử sheet vào của ListBox1.

Vậy ListBox1_Change dùng để Load dữ liệu từ ListBox1 vào Form qua các Control mà ta đặt tên ở đầu mỗi dòng Code, vậy bạn hãy xóa đoạn Code này và thử click vào ListBox xem nó có tác dụng không? đương nhiên là không rồi! Mục đích chỗ này là tôi muốn lấy dữ liệu là danh mục từ 1 sheet khác để nhập liệu cho nhanh, nhưng do tác giả đưa File mà không có danh mục nên tôi mới sửa lại và dùng dữ liệu có sẳn trong sheet Nhap Lieu để các bạn biết mà ứng dụng vào công việc của mình.

 

[maytinhvp01]

Bạn sem lại lần nữa!!

CommandButton = cmdNhapLieu (dùng truyền dữ liệu từ form vào Sheet Nhap lieu).

Trong cửa sổ Properties đặt thuộc tính Rowsuorse là ListBoxNhapLieu dùng để Load dữ liệu tử sheet vào của ListBox1.

Vậy ListBox1_Change dùng để Load dữ liệu từ ListBox1 vào Form qua các Control mà ta đặt tên ở đầu mỗi dòng Code, vậy bạn hãy xóa đoạn Code này và thử click vào Clickbox xem nó có tác dụng không? đương nhiên là không rồi! Mục đích chỗ này là tôi muốn lấy dữ liệu là danh mục từ 1 sheet khác để nhập liệu cho nhanh, nhưng do tác giả đưa File mà không có danh mục nên tôi mới sửa lại và dùng dữ liệu có sẳn trong sheet Nhap Lieu để các bạn biết mà ứng dụng vào công việc của mình.

Tôi gửi lại file cho bạn. Tôi đã sóa dòng code đó và mọi hoạt đọng của form vẫn bỉnh thường không có gì khác cả!!!!!!!!!!!!!!!!

 

[be_09]

Tôi gửi lại file cho bạn. Tôi đã sóa dòng code đó và mọi hoạt đọng của form vẫn bỉnh thường không có gì khác cả!!!!!!!!!!!!!!!!

Bạn hãy đọc lại câu này nhé (tôi đã nói rõ ràng rồi)

Vậy ListBox1_Change dùng để Load dữ liệu từ ListBox1 vào Form, vậy bạn hãy xóa đoạn Code này và thử click vào ListBox xem nó có tác dụng không? đương nhiên là không rồi!

Tôi đã nói rõ chỗ này rồi còn gì ("dùng để Load dữ liệu từ ListBox1 vào Form").

 

[be_09]

Tôi gửi lại file cho bạn. Tôi đã sóa dòng code đó và mọi hoạt đọng của form vẫn bỉnh thường không có gì khác cả!!!!!!!!!!!!!!!!

Bạn hãy đọc lại câu này nhé (tôi đã nói rõ ràng rồi)

Vậy ListBox1_Change dùng để Load dữ liệu từ ListBox1 vào Form, vậy bạn hãy xóa đoạn Code này và thử click vào Clickbox xem nó có tác dụng không? đương nhiên là không rồi!

Tôi đã nói rõ chỗ này rồi còn gì ("dùng để Load dữ liệu từ ListBox1 vào Form").

Vậy bạn mở File lên và click vào bất kỳ dòng nào của ListBox1, xong bạn nhìn vào Form xem nó có hiện dữ liệu lên Form không?

Thay gì tôi cho nó 1 nút sửa dữ liệu, thì tôi ứng dụng ngay chỗ này để sửa và nhập dữ liệu cho nhanh và đỡ được nhiều thao tác.

 

[maytinhvp01]

Bạn hãy đọc lại câu này nhé (tôi đã nói rõ ràng rồi)


Tôi đã nói rõ chỗ này rồi còn gì ("dùng để Load dữ liệu từ ListBox1 vào Form").

Vậy bạn mở File lên và click vào bất kỳ dòng nào của ListBox1, xong bạn nhìn vào Form xem nó có hiện dữ liệu lên Form không?

Thay gì tôi cho nó 1 nút sửa dữ liệu, thì tôi ứng dụng ngay chỗ này để sửa và nhập dữ liệu cho nhanh và đỡ được nhiều thao tác.

Tới bây giờ thì mình đã hiểu. Nhưng mấy câu giải thích của ban trước đó làm mình không hình dung ra được "dùng để Load dữ liệu từ ListBox1 vào Form" nếu bạn nói là " dùng để load dữ liệu từ listbox ngược lại vào textbox và combobox thì mình hiểu luôn. " vì mình cũng chưa làm vậy lần nào và thấy code ngoài chỗ đó đã đủ Y/C" Thank bạn nhé

 

[be_09]

Tới bây giờ thì mình đã hiểu. Nhưng mấy câu giải thích của ban trước đó làm mình không hình dung ra được "dùng để Load dữ liệu từ ListBox1 vào Form" nếu bạn nói là " dùng để load dữ liệu từ listbox ngược lại vào textbox và combobox thì mình hiểu luôn. " vì mình cũng chưa làm vậy lần nào và thấy code ngoài chỗ đó đã đủ Y/C" Thank bạn nhé

Tôi đã nêu rỏ ở câu này:

ListBox1 = ListBox dùng lấy dữ liệu để Load vào các Control.

Do bạn đọc không kỹ.