Tạo form nhập liệu

[ViveVD]

Em chào các bác,
Em muôn tạo 1form nhập liệu với các trường như file đính kèm. Em có thử search 1 số bài viết về vấn đề này nhưng chưa làm được. Bác nào rảnh có thể giúp em được không ạ. Em cám ơn nhiều.

 

[be_09]

Giúp tạo Form

Em chào các bác,
Em muôn tạo 1form nhập liệu với các trường như file đính kèm. Em có thử search 1 số bài viết về vấn đề này nhưng chưa làm được. Bác nào rảnh có thể giúp em được không ạ. Em cám ơn nhiều.

Tôi đề nghị bạn sửa tiêu đề (bỏ chữ Pro), tôi rất ghét chữ này, chủ yếu là người biết giúp người chưa biết.
Tôi đã giúp tạo form, bạn hãy tải File về dùng thử.


https://www.box.com/s/d7xjgp494mr87pm5v3bd

 

[namkpac]

Em chuyển bài nhập liệu sang chủ đề này cho đúng. Nhờ các anh chị giúp em sửa code hoặc giúp em code mới cho form nhập liệu với. em gửi file đính kèm. em đã thử các kiểu nhập nhưng nó báo không chạy. em cảm ơn!

 

[Quang_Hải]

Em chuyển bài nhập liệu sang chủ đề này cho đúng. Nhờ các anh chị giúp em sửa code hoặc giúp em code mới cho form nhập liệu với. em gửi file đính kèm. em đã thử các kiểu nhập nhưng nó báo không chạy. em cảm ơn!

Mình có thể viết code nhưng mình không hứng thú với mấy cái form. Tuy nhiên mình gợi ý cho bạn thế này
Các TB phai đặt tên theo thứ tự và bố trì phù hợp với cột. Như vậy chỉ cần 1 vòng lặp thì mình có thể duyệt qua hết các TB
Bạn tham khảo cách gán dữ liệu từ TB vào sheet

Sub DuyetTB()
Dim i As Long
With TD
   For i = 1 To 5
       Cells(10, i) = .Controls("TB" & i).Value
   Next i
End With
End Sub

Và các CB cũng phải đặt theo STT mới code ngắn được

 

[namkpac]

Mình có thể viết code nhưng mình không hứng thú với mấy cái form. Tuy nhiên mình gợi ý cho bạn thế này
Các TB phai đặt tên theo thứ tự và bố trì phù hợp với cột. Như vậy chỉ cần 1 vòng lặp thì mình có thể duyệt qua hết các TB
Bạn tham khảo cách gán dữ liệu từ TB vào sheet

Sub DuyetTB()
Dim i As Long
With TD
   For i = 1 To 5
       Cells(10, i) = .Controls("TB" & i).Value
   Next i
End With
End Sub

Và các CB cũng phải đặt theo STT mới code ngắn được

Lâu lắm rồi em mới thấy anh, anh giúp em cái form này với được không? lâu nay em không thấy anh online bên Y!M nên em không biết hỏi thế nào, em đưa lên đây nhưng có lẽ ai cũng ngại mấy cái form nên em không thấy ai trả lời. anh hay anh chị nào có thể giúp em với.

 

[namkpac]

Em ngồi mò mấy ngày nay mà vẫn chưa chạy, em thử viết 1, 2 text box như trong cuốn lập trình VBA thì nó chạy còn cái này em thêm vào mà nó chẳng chạy tí nào, nó chạy nhưng rồi không điền dữ liệu vào hàng tiếp theo mà điền ngay vô hàng mà nó đã điền trước luôn.

 

[Quang_Hải]

Em ngồi mò mấy ngày nay mà vẫn chưa chạy, em thử viết 1, 2 text box như trong cuốn lập trình VBA thì nó chạy còn cái này em thêm vào mà nó chẳng chạy tí nào, nó chạy nhưng rồi không điền dữ liệu vào hàng tiếp theo mà điền ngay vô hàng mà nó đã điền trước luôn.

Muốn điền tiếp theo thì tạo 1 biến R chẳng hạn


Sub DuyetTB()
Dim i As Long, R as Long
R= [A65536].end(3).Offset(1).Row
With TD
For i = 1 To 5
Cells(R, i) = .Controls("TB" & i).Value
Next i
End With
End Sub

 

[namkpac]

Nhờ các anh (chị) giúp em cái checkbox với, em không biết phải viết code thế nào để khi check thì điền dấu "x" vào cột Y của sheet Dan_dung, và để chuyển sang tab khác điền dữ liệu cho sheet Giao_thong hay quy hoạch thì mình thêm code như thế nào? em gửi file lên lại phần nhập thì em làm được rồi còn checkbox và tab nữa mong các cao thủ chỉ giáo.

 

[Hau151978]

Nhờ các anh (chị) giúp em cái checkbox với, em không biết phải viết code thế nào để khi check thì điền dấu "x" vào cột Y của sheet Dan_dung, và để chuyển sang tab khác điền dữ liệu cho sheet Giao_thong hay quy hoạch thì mình thêm code như thế nào? em gửi file lên lại phần nhập thì em làm được rồi còn checkbox và tab nữa mong các cao thủ chỉ giáo.

2 checkbox của bạn chỉ chọn 1 trong 2 nên cần thay bằng option button, dùng sự kiện optionbutton_click() để điền dấu x vào sheet.

 

[Quang_Hải]

Nhờ các anh (chị) giúp em cái checkbox với, em không biết phải viết code thế nào để khi check thì điền dấu "x" vào cột Y của sheet Dan_dung, và để chuyển sang tab khác điền dữ liệu cho sheet Giao_thong hay quy hoạch thì mình thêm code như thế nào? em gửi file lên lại phần nhập thì em làm được rồi còn checkbox và tab nữa mong các cao thủ chỉ giáo.

Mình sửa lại tên của các TB cho thuận tiện khi viết code
Bạn tham khảo cách lấy dữ liệu bằng cách dùng vòng lặp để duyệt qua các TB và các CB.
Các Tab còn lại cũng tương tự, nếu khéo léo đặt tên các TB và CB thì chỉ cần 1 Sub là chạy cho 3 Tab
*** Mà hình như bạn bị quá sức thì phải. Code trong Form không khó nhưng phải cũng không phải dễ nha.

 

[vanbongtiensinh]

Tôi mới xem bài của bạn. Thật tuyệt vời, đã nhiều năm làm việc với EXCEL tôi đã có một bảng tính excel công dụng và dùng nhiều năm, nhưng không thể tạo được form như bạn vừa viết dù đã cố tìm hiểu nhưng vẫn pó tay bởi cũng chỉ mò mẫm. Rất mong bạn giúp đỡ! Tạo form nhập liệu rồi dữ liệu được tự động nhập vào bảng này....chắc đó là một vấn đề ...hy vọng bạn sẽ giúp đỡ những vấn đề sau nữa, xin cảm ơn bạn!