Giúp đỡ tạo biểu nhập dữ liệu (1 người xem)

[baquang1984]

Em chào Thầy, cô và anh chị trên diễn đàn GPE.
Do công việc của em cần phải nhập nhiều dữ liệu liên quan đến thông tin cá nhân và dễ bị nhầm nên em nhờ Thầy cô và các anh chị trên diễn đàn giúp em viết code VBA để nhập dữ liệu vào theo mẫu em gửi ạ.
Yêu cầu của chương trình:
Bước 1: Nhập thông tin Chủ quản lý vào Sheets"Thongtin_ChuHo" Click chuột vào Buttom "Nhập thông tinh Chủ quản lý"
Chương trình Nhập lần lượt các thông tin ở hai cột B và E vào Sheets"Thongtin_ChuHo" như kết quả mẫu
Khi nhập xong của một chủ quản lý thì chuyển qua nhập Bước 2
Bước 2: Nhập thông tin Quan hệ chủ quản lý vào Sheets"QuanHe_ChuHo"
Điều kiện để chương trình cho nhập được dữ liệu Quan hệ chủ quản lý vào Sheets"QuanHe_ChuHo" là ở Ô cell B2 phải có dữ liệu chủ quản lý.
Khi điền đầy đủ thông tin Click chuột vào Buttom "Nhập thông tinh Quan hệ" để nhập dữ liệu vào Sheets"QuanHe_ChuHo" chương trình sẽ nhập dữ liệu theo thứ tự của 3 cột B, E và H
Khi nhập xong thông tinh Quan hệ Chủ quản lý thì chương trình sẽ xóa thông tin Quan hệ chủ quản lý ở cột H để tiếp tục nhập thông tin người mới
Mong được Thầy cô và các anh chị triên diễn đàn giúp đỡ. Em cảm ơn nhiều ạ!

 

[Hoang2013]

Nếu chủ quản lý (CQL) trùng tên với nhau thì bạn sẽ fải fân biệt làm sao?
Đừng nói là soát xét thêm theo CMND nữa nha!
Mình xin đề nghị với bạn: Cần tạo ra mã duy nhất cho mỗi CQL
Có vậy CSDL của bạn mới tồn tại dài lâu & không lao vô cõi vĩnh hằng!

 

[baquang1984]

Nếu chủ quản lý (CQL) trùng tên với nhau thì bạn sẽ fải fân biệt làm sao?
Đừng nói là soát xét thêm theo CMND nữa nha!
Mình xin đề nghị với bạn: Cần tạo ra mã duy nhất cho mỗi CQL
Có vậy CSDL của bạn mới tồn tại dài lâu & không lao vô cõi vĩnh hằng!

Em cảm ơn anh Hoang2013 ở đây em chỉ nhập vào có những chủ quản lý không có chứng minh nhân dân do lý do gì đó anh ạ

 

[Hoang2013]

Mã CQL cho ta tránh lỗi chính tả ngay khi nhập từng CQL;
Chả lẽ những người không CMND lại không trùng họ tên nhau sao ta? Cái ni bạn có quyết định được đâu, trong suốt quá trình làm việc của bạn.

 

[baquang1984]

Mã CQL cho ta tránh lỗi chính tả ngay khi nhập từng CQL;
Chả lẽ những người không CMND lại không trùng họ tên nhau sao ta? Cái ni bạn có quyết định được đâu, trong suốt quá trình làm việc của bạn.

Vâng ạ, chủ quản lý thì rất nhiều người trùng tên do vậy em cũng thường thì quản lý bằng số CMND thôi anh ạ chưa làm quản lý bằng mã chủ quản lý bao giờ vì khi em lấy dữ liệu toàn căn cứ vào số CMND

 

[Hoang2013]

Gọi í bạn mã NV có tính trực quan & tương tác cao nè:

'
 Mã     Họ & Tên'
NHH00  Ngô Thị Hồng Hoa
NHH01  Nguyễn Hưng Hoài
NHH04 Nguyễn Hồng Hải
LJF00  Lê Đức
FFF00  Đỗ Đình Đức
OVK00 Ông Văn Khiêm

 

[baquang1984]

Gọi í bạn mã NV có tính trực quan & tương tác cao nè:

'
 Mã     Họ & Tên'
NHH00  Ngô Thị Hồng Hoa
NHH01  Nguyễn Hưng Hoài
NHH04 Nguyễn Hồng Hải
LJF00  Lê Đức
FFF00  Đỗ Đình Đức
OVK00 Ông Văn Khiêm

Em cảm ơn anh. Anh có thể code giúp em chương trình này và cho thêm giúp em cột mã CQL được không ạ tuy nhiên khi nhập CQL vào chương trình sẽ tự động tạo mã luôn ạ

 

[PacificPR]

Em cảm ơn anh. Anh có thể code giúp em chương trình này và cho thêm giúp em cột mã CQL được không ạ tuy nhiên khi nhập CQL vào chương trình sẽ tự động tạo mã luôn ạ

Sao có bao nhiêu Form đẹp bạn không "chôm" lấy 1 cái mà lại làm trên Sheet nhỉ
Ví dụ như dạng này chẳng hạn:

​

 

[baquang1984]

Sao có bao nhiêu Form đẹp bạn không "chôm" lấy 1 cái mà lại làm trên Sheet nhỉ
Ví dụ như dạng này chẳng hạn:

View attachment 184423
​

Em cảm ơn PacificPR từ trước tới giờ chỉ thích làm việc trên Excel thui ạ. Do vậy mới nhờ diễn đàn viết giúp Code VBA

 

[be_09]

Em cảm ơn PacificPR từ trước tới giờ chỉ thích làm việc trên Excel thui ạ. Do vậy mới nhờ diễn đàn viết giúp Code VBA

Chưa hiểu mục đích quản lý như thế nào, cần tổng hợp cái gì, nên thiết kế tạm tiêu đề.

 

[ChanhTQ@]

Anh có thể giúp em chương trình này và cho thêm giúp em cột mã CQL được không ạ tuy nhiên khi nhập CQL vào chương trình sẽ tự động tạo mã luôn ạ

Bạn thử thao tác chuyện tạo mã xem sao

 

[baquang1984]

Bạn thử thao tác chuyện tạo mã xem sao

Em cảm ơn ChanhTQ@ anh có thể code giúp em là khi ta nhập dữ liệu ở Sheet"DATA" thì chương trình cho nhập dữ liệu như em đã nêu ở trên được không ạ
Bước 1: Nhập thông tin Chủ quản lý vào Sheets"Thongtin_ChuHo" Click chuột vào Buttom "Nhập thông tinh Chủ quản lý"
Chương trình Nhập lần lượt các thông tin ở hai cột B và E vào Sheets"Thongtin_ChuHo" như kết quả mẫu
Khi nhập xong của một chủ quản lý thì chuyển qua nhập Bước 2
Bước 2: Nhập thông tin Quan hệ chủ quản lý vào Sheets"QuanHe_ChuHo"
Điều kiện để chương trình cho nhập được dữ liệu Quan hệ chủ quản lý vào Sheets"QuanHe_ChuHo" là ở Ô cell B2 phải có dữ liệu chủ quản lý.
Khi điền đầy đủ thông tin Click chuột vào Buttom "Nhập thông tinh Quan hệ" để nhập dữ liệu vào Sheets"QuanHe_ChuHo" chương trình sẽ nhập dữ liệu theo thứ tự của 3 cột B, E và H
Khi nhập xong thông tinh Quan hệ Chủ quản lý thì chương trình sẽ xóa thông tin Quan hệ chủ quản lý ở cột H để tiếp tục nhập thông tin người mới
Em cảm ơn nhiều ạ

 

[ChanhTQ@]

Nếu là mình thì 2 trang này nên gộp thành 2 bảng {Table} trong 1 trang; Hai bảng này liên hệ với nhau theo kiểu 1-Nhiều
Bảng thứ nhất có các trường đề chứa thông tin của CQL (như họ tên, ngày sinh, CMND,. . . . ) Trong bảng này có trường quan trong là [Mã CQL]
Kết cấu mã CQL như bảng dười đây

'
Mã CQL'   Tên CQL
NTH00  Ngô Thị Thanh Hồng
NTH01  Nguyễn Lệ Thu Hường
FFF00  Đỗ Đình Đức

Ở bảng thứ nhì ta có thêm 1 trường để ghi nhận mối quan hệ thân tộc của các thành viên với CQL như : Cha, mẹ, vợ hay chồng, con hay cháu,. . . .
(Danh sách này cũng nên là 1 danh mục để tiện nhập liệu)
Còn như bạn iêu cầu, mình sẽ không giúp; Bỡi lẽ giúp bạn thực ra là hại bạn về lâu dài mai sau mà thôi!

(Bạn có thể tham khảo loạt bài về xây dựng CSDL quan hệ trong Excel để biết thêm chi tiết)

Thân ái & chúc cuối tuần vui vẻ!

 

[baquang1984]

Nếu là mình thì 2 trang này nên gộp thành 2 bảng {Table} trong 1 trang; Hai bảng này liên hệ với nhau theo kiểu 1-Nhiều
Bảng thứ nhất có các trường đề chứa thông tin của CQL (như họ tên, ngày sinh, CMND,. . . . ) Trong bảng này có trường quan trong là [Mã CQL]
Kết cấu mã CQL như bảng dười đây

'
Mã CQL'   Tên CQL
NTH00  Ngô Thị Thanh Hồng
NTH01  Nguyễn Lệ Thu Hường
FFF00  Đỗ Đình Đức

Ở bảng thứ nhì ta có thêm 1 trường để ghi nhận mối quan hệ thân tộc của các thành viên với CQL như : Cha, mẹ, vợ hay chồng, con hay cháu,. . . .
(Danh sách này cũng nên là 1 danh mục để tiện nhập liệu)
Còn như bạn iêu cầu, mình sẽ không giúp; Bỡi lẽ giúp bạn thực ra là hại bạn về lâu dài mai sau mà thôi!

(Bạn có thể tham khảo loạt bài về xây dựng CSDL quan hệ trong Excel để biết thêm chi tiết)

Thân ái & chúc cuối tuần vui vẻ!

Em cảm ơn anh về những góp ý của anh. Chắc em phải đợi xem có ai giúp không vậy

 

[ndu96081631]

Xem qua một hồi hổng hiểu tác giả đang cần cái gì luôn
???

 

[baquang1984]

Xem qua một hồi hổng hiểu tác giả đang cần cái gì luôn
???

Em cảm ơn thầy ndu96081631 em đang nhờ diễn đàn giúp em tạo Chương trình nhập liệu ạ
Khi em nhập dữ liệu vào thứ tự ở các cột B và E sheets"DATA" và click chuột vào Buttom "Nhập thông tinh Chủ quản lý" thì dữ liệu sẽ được ghi vào Sheets"Thongtin_ChuHo" lần lượt theo thứ tự các cột từ A đến P
Khi em nhập xong thì chuyển sang nhập thông tin quản hệ với chủ quản lý và em điền thông tin của những người có quan hệ với chủ quản lý vào cột H sheets"DATA" và click chuột vào Buttom "Nhập thông tinh Quan hệ
" thì dữ liệu sẽ được ghi vào Sheets"QuanHe_ChuHo" với điều kiện là ô cell B2 Sheets"DATA" phải có dữ liệu khi ghi dữ liệu vào Sheets"QuanHe_ChuHo" thì chương trình lưu cả thông tin của Chủ quản lý và thông tin quản hệ chủ quản lý ạ và khi nhập xong thì dữ liệu nhập ở cột H sẽ được xóa đi còn dữ liệu ở cột B và E vẫn để ạ
Không biết em giải thích như vậy được chưa ạ. Em cảm ơn thầy và các anh chị trên diễn đàn giúp đỡ ạ

 

[baquang1984]

Em tạo được Form nhập như file đính kèm mong được sự giúp đỡ của Thầy cô và các anh chị trên diễn đàn giúp đỡ
Khi em Click chuột vào Buttom Nhập thông tin ở Sheets"DATA" thì Form nhập của em hiện lên và bắt đầu cho nhập thông tin tuy nhiên code em viết do học ở trên Youtobe nên chưa làm được điều em mong muốn do vậy nhờ thầy cô và các anh chị trên diễn đàn viết giúp và sửa giúp em.
- Khi click chuột vào Buttom Nhập thông tin Quan hệ trên Form thì với điều kiện là ở TextBox Chủ quản lý phải có dữ liệu thì mới cho nhập thông tin vào còn không thì báo lỗi.
- Khi click chuột vào Buttom Nhập thông tin Quan hệ trên Form thì dữ liệu được nhập vào còn dữ liệu ở các TextBox của thông tin Quan hệ sẽ được xóa đi và để nhập thêm người có quan hệ với chủ quản lý mới Code của em thì nó xóa hết cả thông tin của chủ quản lý
Mong được Thây cô và các anh chị trên diễn đàn giúp đỡ. Em cảm ơn nhiều ạ

 

[thuyyeu99]

- Khi click chuột vào Buttom Nhập thông tin Quan hệ trên Form thì với điều kiện là ở TextBox Chủ quản lý phải có dữ liệu thì mới cho nhập thông tin vào còn không thì báo lỗi.

If Trim(CQL1.Text = "") Then
MsgBox " ban chua nhap day du thong tin";
Exit Sub

- Khi click chuột vào Buttom Nhập thông tin Quan hệ trên Form thì dữ liệu được nhập vào còn dữ liệu ở các TextBox của thông tin Quan hệ sẽ được xóa đi và để nhập thêm người có quan hệ với chủ quản lý mới Code của em thì nó xóa hết cả thông tin của chủ quản lý

Private Sub Xoathongtin()
Gioi_Tinh1.Text = ""
Nam_Sinh1.Text = ""
So_CMND1.Text = ""
Ngay_Cap1.Text = ""
Noi_Cap1.Text = ""
Diachi_CQL.Text = ""
Dan_Toc1.Text = ""
Vo_Chong.Text = ""
Gioi_Tinh2.Text = ""
Nam_Sinh2.Text = ""
So_CMND2.Text = ""
Ngay_Cap2.Text = ""
Noi_Cap2.Text = ""
Diachi_VC.Text = ""
Dan_Toc2.Text = ""
End Sub

 

[baquang1984]

If Trim(CQL1.Text = "") Then
MsgBox " ban chua nhap day du thong tin";
Exit Sub


Private Sub Xoathongtin()
Gioi_Tinh1.Text = ""
Nam_Sinh1.Text = ""
So_CMND1.Text = ""
Ngay_Cap1.Text = ""
Noi_Cap1.Text = ""
Diachi_CQL.Text = ""
Dan_Toc1.Text = ""
Vo_Chong.Text = ""
Gioi_Tinh2.Text = ""
Nam_Sinh2.Text = ""
So_CMND2.Text = ""
Ngay_Cap2.Text = ""
Noi_Cap2.Text = ""
Diachi_VC.Text = ""
Dan_Toc2.Text = ""
End Sub

Em cảm ơn thuyyeu99 nhiều ạ

 

[thuyyeu99]