Lọc dữ liệu theo điều kiện (4 người xem)

[nguyen6571gpex]

Chào ACE diễn đàn!
Tôi đang xây dựng bảng tổng hợp kết quả học tập cho HS tiểu học theo TT22, theo ý tưởng bản thân mình, khi làm gặp một số khó khăn không làm được (Không biết VBA) nhờ ACE giúp đỡ. Nội dung cụ thể trong File. Trân trọng cám ơn!

 

[nguyen6571gpex]

Có ACE nào giúp tôi với. Cảm ơn nhiều!

 

[HieuCD]

Chào ACE diễn đàn!
Tôi đang xây dựng bảng tổng hợp kết quả học tập cho HS tiểu học theo TT22, theo ý tưởng bản thân mình, khi làm gặp một số khó khăn không làm được (Không biết VBA) nhờ ACE giúp đỡ. Nội dung cụ thể trong File. Trân trọng cám ơn!

bạn muốn dùng hàm hay VBA?

 

[nguyen6571gpex]

Bạn giúp bằng VBA nhé!
Thêm một chút nữa ở ý 1. Nếu ô v4 mà nhỏ hơn 4 và ô L1 là GIỮA HỌC KÌ I HOẶC ô L1 là GIỮA HỌC KÌ II thì khóa vùng H6:H42 và J6:J42 vì thời điểm đó không đánh giá (không có điểm). Cảm ơn bạn nhiều!

 

[HieuCD]

Bạn giúp bằng VBA nhé!
Thêm một chút nữa ở ý 1. Nếu ô v4 mà nhỏ hơn 4 và ô L1 là GIỮA HỌC KÌ I HOẶC ô L1 là GIỮA HỌC KÌ II thì khóa vùng H6:H42 và J6:J42 vì thời điểm đó không đánh giá (không có điểm). Cảm ơn bạn nhiều!

pass của sheet Data là 123

 

[nguyen6571gpex]

Chào ACE diễn đàn!
Kì này dùng đến bảng tổng hợp mới thấy còn sơ xuất, mong ACE sửa giúp codde cụ thể như sau:
Trong file đính kèm do bạn HieuCD làm giúp ở #5 các bạn sửa giúp thêm: Nếu ô L1 là GIỮA HỌC KÌ I HOẶC ô L1 là GIỮA HỌC KÌ II thì khóa cả vùng L6:L42 và vùng N6:N42
Trân trọng cảm ơn ACE! Chúc ACE một ngày mới tốt lành!

Bạn HieuCD giúp mình với nhé. Với nội dung bôi đỏ trên thì ô V4 là bao nhiêu cũng khóa!

 

[HieuCD]

Chào ACE diễn đàn!
Kì này dùng đến bảng tổng hợp mới thấy còn sơ xuất, mong ACE sửa giúp codde cụ thể như sau:
Trong file đính kèm do bạn HieuCD làm giúp ở #5 các bạn sửa giúp thêm: Nếu ô L1 là GIỮA HỌC KÌ I HOẶC ô L1 là GIỮA HỌC KÌ II thì khóa cả vùng L6:L42 và vùng N6:N42
Trân trọng cảm ơn ACE! Chúc ACE một ngày mới tốt lành!
Bạn HieuCD giúp mình với nhé. Với nội dung bôi đỏ trên thì ô V4 là bao nhiêu cũng khóa!

Bạn thay code mới trong sheet Data

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, Range("AG7:AH42")) Is Nothing Then
        Call GPE
    End If
    If Target.Address = "$V$1" Then
        Call GPE
        ActiveSheet.Unprotect "123"
        If Target.Value < 4 Then
            Range("L7:N42").Locked = True
            If Target.Value = Range("IR7") Or Target.Value = Range("IR9") Then
                Range("H7:H42").Locked = True
                Range("J7:J42").Locked = True
            End If
        Else
            Range("L7:N42").Locked = False
            Range("H7:H42").Locked = False
            Range("J7:J42").Locked = False
        End If
        ActiveSheet.Protect "123", DrawingObjects:=False, Contents:=True, _
                Scenarios:=ActiveSheet.EnableSelection = xlUnlockedCells
    End If
[COLOR=#ff0000]    If Target.Address = "$L$1" Then
        Call GPE[/COLOR]
[COLOR=#ff0000]        ActiveSheet.Unprotect "123"
        If Target.Value = Range("IR7") Or Target.Value = Range("IR9") Then
            Range("L7:L42").Locked = True
            Range("N7:N42").Locked = True
            If Range("$V$1").Value < 4 Then
                Range("H7:H42").Locked = True
                Range("J7:J42").Locked = True
            End If
        Else
            Range("L7:L42").Locked = False
            Range("N7:N42").Locked = False
            If Range("$V$1").Value < 4 Then
                Range("H7:H42").Locked = False
                Range("J7:J42").Locked = False
            End If
        End If
        ActiveSheet.Protect "123", DrawingObjects:=False, Contents:=True, _
            Scenarios:=ActiveSheet.EnableSelection = xlUnlockedCells
    End If[/COLOR]
End If
End Sub

còn Sub GPE() giử như cũ

 

[nguyen6571gpex]

Cảm ơn bạn HieuCD nhiều nhé! Mà diễn đàn dạo này bỏ nút cảm ơn rồi nhỉ?

 

[nguyen6571gpex]

Chào ACE diễn đàn!
Qua sự giúp đỡ của các thành viên, nhất là bạn HieuCD tôi đã đưa file ở #5 vào thực hiện. Trong quá trình thực hiện thấy có các sự cố mà không tự giải quyết được nay đưa lại file này và mong cac bạn giúp (giảm bớt các yêu cầu phức tạp) và chỉ cần như trong file đã ghi chi tiết:
Tôi đã cố tự tìm hiểu để sửa code #5 nhưng vì không biết gì về VBA nên không sao sửa được, mong các thành viên giúp đỡ.
Trân trọng cảm ơn!
File có yêu cầu cụ thể là file đưa lên sau (62,6KB)
Các bạn chỉ giúp khi dưa nhầm file lên có gỡ file nhầm đó xuống được không?

 

[HieuCD]

Chào ACE diễn đàn!
Qua sự giúp đỡ của các thành viên, nhất là bạn HieuCD tôi đã đưa file ở #5 vào thực hiện. Trong quá trình thực hiện thấy có các sự cố mà không tự giải quyết được nay đưa lại file này và mong cac bạn giúp (giảm bớt các yêu cầu phức tạp) và chỉ cần như trong file đã ghi chi tiết:
Tôi đã cố tự tìm hiểu để sửa code #5 nhưng vì không biết gì về VBA nên không sao sửa được, mong các thành viên giúp đỡ.
Trân trọng cảm ơn!
File có yêu cầu cụ thể là file đưa lên sau (62,6KB)
Các bạn chỉ giúp khi dưa nhầm file lên có gỡ file nhầm đó xuống được không?

trong file tìm không thấy yêu cầu!!!

 

[nguyen6571gpex]

trong file tìm không thấy yêu cầu!!!

Cảm ơn bạn đã tiếp tục quan tâm giúp đỡ, tôi vừa tải lại file lên, bạn giúp tôi nhé. Cảm ơn!

 

[HieuCD]

Chào ACE diễn đàn!
Qua sự giúp đỡ của các thành viên, nhất là bạn HieuCD tôi đã đưa file ở #5 vào thực hiện. Trong quá trình thực hiện thấy có các sự cố mà không tự giải quyết được nay đưa lại file này và mong cac bạn giúp (giảm bớt các yêu cầu phức tạp) và chỉ cần như trong file đã ghi chi tiết:
Tôi đã cố tự tìm hiểu để sửa code #5 nhưng vì không biết gì về VBA nên không sao sửa được, mong các thành viên giúp đỡ.
Trân trọng cảm ơn!
File có yêu cầu cụ thể là file đưa lên sau (62,6KB)
Các bạn chỉ giúp khi dưa nhầm file lên có gỡ file nhầm đó xuống được không?

mình đã thử lại file bài #5, nhưng không thấy sự cố gì!
bạn thao tác trên file phần bị sự cố và nói rỏ bị gì, bạn chọn bài #9, nhấn nút lệnh sửa bài viết, chọn đổi sang khung lớn, chọn tải file, kéo xuống tìm chổ remove để xóa file cũ, sau đó đưa file mới lên