Code tự động tạo ra form nhập liệu.

Liên hệ QC

zztantaibazz

Thành viên chính thức
Tham gia
19/8/13
Bài viết
96
Được thích
46
Nghề nghiệp
M&A Specialist - RM Assitant
Hiện tại mình đang tạo một form như hình.
Có code nào để tự động tạo ra các textbox + lable ... như trong hình tự động không.
Ví dụ mình nhập đến textbox cuối cùng nhấn tap hoặc click button thêm thì tự động tạo thêm 1 cái nữa.
untitled.jpg
Thanks mọi người.
 
Hiện tại mình đang tạo một form như hình.
Có code nào để tự động tạo ra các textbox + lable ... như trong hình tự động không.
Ví dụ mình nhập đến textbox cuối cùng nhấn tap hoặc click button thêm thì tự động tạo thêm 1 cái nữa.
View attachment 124745
Thanks mọi người.

Bạn tham khảo File.

Lưu ý: Tiêu đề cột chỉ sử dụng tối đa khoảng 30 cột, nếu hơn 30 cột có thể sẽ bị lỗi và không hiện Form.
 

File đính kèm

  • DataForm.xls
    23 KB · Đọc: 87
Upvote 0
Bạn tham khảo File.

Lưu ý: Tiêu đề cột chỉ sử dụng tối đa khoảng 30 cột, nếu hơn 30 cột có thể sẽ bị lỗi và không hiện Form.
Nói về Form thì Chú Be09 đúng là số 1(đây là nhận xét chủ quan). Nếu có thể Chú Be09 có thể hướng dẫn cháu cách thêm 1 ListBox hoặc 1 Combobox qua 1 Form đơn giản được không ạ! Chân thành cảm ơn chú!
P/S: Cơ bản cháu muốn hiểu cách thức để làm ạ! Mong chú bớt chút thời gian ạ!
 
Lần chỉnh sửa cuối:
Upvote 0
Hiện tại mình đang tạo một form như hình.
Có code nào để tự động tạo ra các textbox + lable ... như trong hình tự động không.
Ví dụ mình nhập đến textbox cuối cùng nhấn tap hoặc click button thêm thì tự động tạo thêm 1 cái nữa.
View attachment 124745
Thanks mọi người.
Mình nói có vẻ hơi chủ quan nhưng chắc 99% là không có cách nào đâu. Đang ở chế độ Design thì code nào chạy được chứ.
 
Upvote 0
Nói về Form thì Chú Be09 đúng là số 1(đây là nhận xét chủ quan). Nếu có thể Chú Be09 có thể hướng dẫn cháu cách thêm 1 ListBox hoặc 1 Combobox qua 1 Form đơn giản được không ạ! Chân thành cảm ơn chú!
P/S: Cơ bản cháu muốn hiểu cách thức để làm ạ! Mong chú bớt chút thời gian ạ!

Nêu địa chỉ Mail chú gửi File và bài viết hướng dẫn cho.
 
Upvote 0
Chú đã gửi 1 UserForm đơn giản và kèm theo nội dung hướng dẫn.
Dạ! Cháu cảm ơn chú. Cháu sẽ vọc ngay. Có gì không hiểu cháu lại hỏi chú nhé! Chú có số ĐT hay gì đó mà chú hay dùng(facebook chẳng hạn( thì cho cháu xin có gì không hiểu cháu sẽ hỏi chú cho dễ(Nếu chú thấy phiền thì thôi). Cháu hỏi trên diễn đàn hoặc qua tin nhắn trên GPE cũng được ạ!
 
Upvote 0
Dạ! Cháu cảm ơn chú. Cháu sẽ vọc ngay. Có gì không hiểu cháu lại hỏi chú nhé! Chú có số ĐT hay gì đó mà chú hay dùng(facebook chẳng hạn( thì cho cháu xin có gì không hiểu cháu sẽ hỏi chú cho dễ(Nếu chú thấy phiền thì thôi). Cháu hỏi trên diễn đàn hoặc qua tin nhắn trên GPE cũng được ạ!

Muốn hỏi gì thì cứ chụp ảnh Paste vào File đó rồi gửi Mail qua trong thời gian từ 21 giờ đến 24 giờ chú thường trực mở Mail.
 
Upvote 0
Muốn hỏi gì thì cứ chụp ảnh Paste vào File đó rồi gửi Mail qua trong thời gian từ 21 giờ đến 24 giờ chú thường trực mở Mail.
Nhìn Fom chú gửi thế mà chú nói đơn giản. Cháu nhìn thấy ghê quá! Hi
Quả thật cháu nhìn thấy rối quá! Cháu không biết đoạn code nào là nạp danh sách vào listbox cả. Giờ cháu có 1 Form cực đơn giản chỉ gồm:
+ 1 textbox để nhập họ tên(cái này nhập bằng tay_cháu đã biết làm).
+ 1 Lisbox cần nạp danh sách (chức vụ) từ cột "chucvu" bên sheet "DanhSach"_ Cháu muốn nhờ chú viết hộ đoạn code để nạp dữ liệu vào listbox "Chức vụ" trên Form.
+ 1 Combobox cần nạp danh sách (hệ số lương) từ cột "Hesoluong" bên sheet "DanhSach"_ Cháu muốn nhờ chú viết hộ đoạn code để nạp dữ liệu vào combobox "Chức vụ" trên Form ạ.
Cháu muốn tách ra thế này cho dễ nhìn, dễ học ạ. Rất mong chú và các thầy các anh chị, các bạn trên diễn đàn ai biết thì giúp cháu với ạ!
 

File đính kèm

  • Form.xls
    29.5 KB · Đọc: 32
Lần chỉnh sửa cuối:
Upvote 0
Tải 1 File có đầy đủ nội dung cần luôn đi chứ có 2 cột thì khi làm xong thì phát sinh phải bổ sung mệt lắm. Chú sẽ gửi Mail cho 1 File về quản lý nhân sự để tham khảo mà biết bổ sung (vì quota của chú gần hết nên không tải lên đây), chú để dành quota cho việc khác.
 
Upvote 0
Tải 1 File có đầy đủ nội dung cần luôn đi chứ có 2 cột thì khi làm xong thì phát sinh phải bổ sung mệt lắm. Chú sẽ gửi Mail cho 1 File về quản lý nhân sự để tham khảo mà biết bổ sung (vì quota của chú gần hết nên không tải lên đây), chú để dành quota cho việc khác.
Không phải cháu nhờ chú làm giúp Form mà là cháu muốn học cách viết code để nạp dữ liệ từ danh sách cho trước vào listbox hoặc combobox ạ!
Chú có thể viết giúp cháu 2 đoạn code cho 2 vấn đề cháu nêu trên được không ạ! Những cái khác chắc cũng tương tự đúng không chú???
 
Upvote 0
Không phải cháu nhờ chú làm giúp Form mà là cháu muốn học cách viết code để nạp dữ liệ từ danh sách cho trước vào listbox hoặc combobox ạ!
Chú có thể viết giúp cháu 2 đoạn code cho 2 vấn đề cháu nêu trên được không ạ! Những cái khác chắc cũng tương tự đúng không chú???

Ở sheet Danhsach, cột A chọn từ A2:A5 và đặt cho nó 1 cái Name là ChucVu rồi Copy Name này click vào combobox rồi vào cửa sổ Properties kéo thanh cuộn xuống tìm RowSource gõ = ChucVu thì nó tự Load danh sách vào thôi, tương tự như vậy cho listbox.
 
Upvote 0
Ở sheet Danhsach, cột A chọn từ A2:A5 và đặt cho nó 1 cái Name là ChucVu rồi Copy Name này click vào combobox rồi vào cửa sổ Properties kéo thanh cuộn xuống tìm RowSource gõ = ChucVu thì nó tự Load danh sách vào thôi, tương tự như vậy cho listbox.
Dạ! Cháu sẽ thử luôn ạ! Cháu cứ nghĩ là phải viết code cơ!
 
Upvote 0
Bạn tham khảo File.

Lưu ý: Tiêu đề cột chỉ sử dụng tối đa khoảng 30 cột, nếu hơn 30 cột có thể sẽ bị lỗi và không hiện Form.
chú cho con hỏi là cái Form chủ để ở đâu mà sao con không thấy vậy chú ?
 
Upvote 0
Không phải cháu nhờ chú làm giúp Form mà là cháu muốn học cách viết code để nạp dữ liệ từ danh sách cho trước vào listbox hoặc combobox ạ!
Chú có thể viết giúp cháu 2 đoạn code cho 2 vấn đề cháu nêu trên được không ạ! Những cái khác chắc cũng tương tự đúng không chú???
Nạp dữ liệu vào LB hoặc CB thì có nhiều cách. Mình vẫn thích nạp bằng code.
Đây là 1 ví dụ dựa trên dữ liệu trong file của bạn
PHP:
Private Sub UserForm_Initialize()
With Me.ComboBox1
    .List = Sheet2.Range("A2", Sheet2.[A65536].End(3)).Value
End With
End Sub
 
Upvote 0
Nạp dữ liệu vào LB hoặc CB thì có nhiều cách. Mình vẫn thích nạp bằng code.
Đây là 1 ví dụ dựa trên dữ liệu trong file của bạn
PHP:
Private Sub UserForm_Initialize()
With Me.ComboBox1
    .List = Sheet2.Range("A2", Sheet2.[A65536].End(3)).Value
End With
End Sub
Nạp bằng cách này có vẻ linh hoạt hơn cách dùng name anh nhỉ. Tức dữ liệu thay đổi thì combobox vẫn tự động nạp dư liệu đúng không anh?
 
Upvote 0
Web KT
Back
Top Bottom