Hỏi về khóa bảng nhập liệu

  • Thread starter Thread starter lumata
  • Ngày gửi Ngày gửi
Liên hệ QC

lumata

Thành viên chính thức
Tham gia
6/4/15
Bài viết
88
Được thích
1
Mình đang làm thử một bảng điểm danh có yêu cầu như sau:
- Mặc định các cell ở mục điểm danh sẽ bị khóa không cho nhập dữ liệu.
- Nếu học sinh nào đăng ký học thứ 7 (Có giá trị xuất hiện ở cột "Đóng tiền Thứ 7" của bé đó) thì mục điểm danh của bé đó sẽ được mở, lúc đó giáo viên có quyền check điểm danh vào cho bé. Nếu bé nào không đăng ký học thứ 7 (không xuất hiện giá trị ở cell "Đóng tiền thứ 7" ) thì ô điểm danh của bé đó vẫn bị khóa.
Mong mọi người giúp mình. Mình cảm ơn nhiều
Mình gửi file đính kèm
 

File đính kèm

Có bác cao thủ nào giúp mình với..
 
Thử chạy đoạn code sau. Chạy xong thì dòng nào mà không có dữ liệu (Đóng tiền thứ 7) thì nó sẽ khóa nguyên dòng. Pass là 123
Mã:
Option Explicit
Sub Khoa()
Dim Cll As Range
Cells.Locked = False
For Each Cll In Sheet1.Range("C4:C24")
    If Cll.Value = Empty Then
        Sheet1.Unprotect "123"
        Cll.Offset.Offset(, -2).Resize(, 8).Locked = True
        Cll.Offset.Offset(, -2).Resize(, 8).FormulaHidden = True
        Sheet1.Protect "123"
    End If
Next Cll
End Sub
Cảm ơn bạn đã hướng dẫn. Mình đã chạy thử và ngon lành luôn. Nhưng vì mình không rành lắm về VBA nên thật sự cũng chưa hiểu hết cú pháp bạn viết. Mình tính áp dụng vào bảng điểm danh thực tế của mình nên có lẽ phải chỉnh sửa một ít. Bạn có thể hướng dẫn mình rõ hơn về cú pháp không?
- Mình không biết là đoạn nào bạn viết là để chọn các ô được khóa?
- Bảng điểm danh thực tế của mình thì nó phức tạp hơn rất nhiều vì còn phải thỏa nhiều điều kiện nữa nên mình tính tìm hiểu và phát triển đoạn VBA bạn viết để phù hợp hơn với mình.
 
Lần chỉnh sửa cuối:
Cảm ơn bạn đã giúp. Để mình hoàn thiện thêm file của mình, khi đó mình sẽ úp lên nhờ bạn kiểm tra.
 
Chả biết hướng dẫn như nào cả. Bạn cứ gửi file thật lên đây kèm giải thích & mong muốn. Ắc có câu trả lời
Chào bạn. Mình gửi file Điểm Danh Thu Tiền bạn giúp mình giải quyết một số vấn đề sau nhé: (Bạn xem ở sheet T9 và T10 nhé):
1. Vì học thứ 7 là đăng ký thêm nên có trẻ học có trẻ không, vì vậy để điểm danh trẻ không bị nhầm lẫn và sai sót, đồng thời cũng để tính suất ăn cho bếp nên yêu cầu như sau
- Điều kiện: Mặc nhiên khóa không cho nhập điểm danh thứ 7 và chủ nhật (Chủ nhật là khóa hẳn vì không học)
- Kiểm tra điều kiện: bên sheet T9, trẻ nào có đăng ký học thứ 7 (thể hiện giá trị tiền ở cột thứ 7 của trẻ đó) thì sẽ mở khóa các ô thứ 7 của trẻ đó bên điểm danh tháng 9 (có thể ô đó sẽ là màu khác để giáo viên dễ nhận biết là trẻ đó có đăng ký học thứ 7). Còn trẻ nào không đăng ký thì vẫn khóa không cho nhập liệu.

2. Vì ăn sáng cũng là đăng ký thêm nên có trẻ ăn có trẻ không, đồng thời cũng là để tính suất ăn với bếp nên yêu cầu của mình là:
- Trong các ô check điểm danh của tháng 9 sẽ mặc nhiên là: X,x: có đi học (tính suất ăn) ; 0: vắng không phép ; V,v: Vắng có phép (Cái này thì mình đã làm rồi)
- Kiểm tra điều kiện: bên sheet T9, trẻ nào có đăng ký ăn sáng thì chữ X,x sẽ chuyển thành chữ S,s (có nghĩa là vừa có đi học vừa có ăn sáng) để cột tổng cuối tháng có thể tính được suất ăn X và ăn sáng S (Nếu được thì trẻ nào có đăng ký ăn sáng sẽ chuyển thành màu khác để giáo viên dễ nhận biết trẻ nào có ăn sáng trẻ nào không để điểm danh nhanh hơn)

==>> Từ đó mình sẽ phát triển tương tự cho các tháng còn lại.
Mong bạn giúp mình giải quyết bài toán này. Nếu sử dụng các hàm đơn giản càng tốt vì mình không rành về VBA nên không tự nghiên cứu được.
Cảm ơn bạn và nhưng người đã giúp mình.
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom