Giới hạn số dòng khi nhập dữ liệu bằng form

[phanan24]

Tôi đã thiết kế một form để nhập dữ liệu vào bảng tính Excell (Theo chi dẫn của Po_Picachu) nhưng không biết bằng cách nào chỉ cho phép nhập trong khoảng từ 1 đến 100 dòng dữ liệu (VD: 100 hs). nếu nhập thêm sẽ báo lỗi. nhờ anh em hưỡng dẫn cho tôi với.

 

[cadafi]

Tôi đã thiết kế một form để nhập dữ liệu vào bảng tính Excell (Theo chi dẫn của Po_Picachu) nhưng không biết bằng cách nào chỉ cho phép nhập trong khoảng từ 1 đến 100 dòng dữ liệu (VD: 100 hs). nếu nhập thêm sẽ báo lỗi. nhờ anh em hưỡng dẫn cho tôi với.

Trong file của bạn đâu có Form nào đâu! Hay bạn nói Form nhập liệu này là nhập trực tiếp ngay tại sheet [DS] luôn.

Nếu DS là form (mẫu) nhập liệu, bạn có thể dùng validation để hạn chế hoặc dùng VBA để giới hạn việc nhập liệu!

Tuy nhiên việc dùng Validation có trở ngại (điểm yếu) là khi người nhập liệu copy và dán thì coi như validation mất tác dụng (vì bị copy đè lên).

Do đó, tôi thực hiện yêu cầu này bằng VBA. Bạn xem file đính kèm nhé!

 

[phanan24]

Xin lõi, bây giờ xin gởi bạn form có sử dụng code của ban trong trang "DS". nhưng mình giới hạn nó xuống "R15" rồi nhập thử nhưng nó cứ cho nhập goài. Còn nữa bạn làm ơn sửa code của hai nút dân tộc và hoàn cảnh gia đình với nó có mặt nhưng không ghi vào cơ sở dữ liệu được. cam ơn.

 

[ptm0412]

Nói về cái dân tộc và cái chính sách:

Cells(k, 10) = txtdt
Cells(k, 11) = txtctb

sửa thành

Cells(k, 10) = combobox1
Cells(k, 11) = combobox2

Nói về giới hạn nhập:

If sua = False Then
k = Sheets("ds").Range("A60").End(xlUp).Row + 1
Else
k = Sheets("ds").Range("A60").End(xlUp).Row
End If

sửa A60 thành số tùy ý, 60-1 =59 là giới hạn dòng nhập ~ 54 học sinh (trừ 5 dòng tiêu đề)

Còn cái cảnh báo 100 học sinh (cảnh báo bậy ba), sửa code trong sheet3(DS):

If Intersect(Target, [A1:R15]) Is Nothing Then

thành

If Intersect(Target, [A1:R105]) Is Nothing Then

(tương đương 100 học sinh, trừ 5 dòng tiêu đề)