Thu gọn phần nhập điểm HS bằng ComboBox (1 người xem)

[ngvu20131003]

Có 1 ComboBox đã có sẵn dữ liệu trong đó (Tham khảo "Sheet1")
Em cần cố định vùng từ cột A, khi em chọn một mục môn nào đó trong ComboBox thì sẽ xuất ra màn hình từ A kèm theo phần điểm của môn đó, còn lại sẽ bị ẩn đi. Khi chọn "Tất cả", mọi thứ sẽ xuất hiện.
* Mục thống kê CC - KL - HT, số cột ít hơn còn lại 01 cột.
Em xin cám ơn

 

[ngvu20131003]

Có 1 ComboBox đã có sẵn dữ liệu trong đó (Tham khảo "Sheet1")
Em cần cố định vùng từ cột A, khi em chọn một mục môn nào đó trong ComboBox thì sẽ xuất ra màn hình từ A kèm theo phần điểm của môn đó, còn lại sẽ bị ẩn đi. Khi chọn "Tất cả", mọi thứ sẽ xuất hiện.
* Mục thống kê CC - KL - HT, số cột ít hơn còn lại 01 cột.
Em xin cám ơn

----------------
Bổ sung: Khi đã tạo xong ComboBox cho việc chọn môn và nhập điểm thì em cần tạo 1 nút chức năng In ấn (điều kiện là in ngay trang đang chọn của ComboBox).
Em xin cám ơn

 

[giaiphap]

Có 1 ComboBox đã có sẵn dữ liệu trong đó (Tham khảo "Sheet1")
Em cần cố định vùng từ cột A, khi em chọn một mục môn nào đó trong ComboBox thì sẽ xuất ra màn hình từ A kèm theo phần điểm của môn đó, còn lại sẽ bị ẩn đi. Khi chọn "Tất cả", mọi thứ sẽ xuất hiện.
* Mục thống kê CC - KL - HT, số cột ít hơn còn lại 01 cột.
Em xin cám ơn

Bạn nhờ giúp mà khóa sheet thì ai mà giúp được chứ.

 

[ngvu20131003]

Bạn nhờ giúp mà khóa sheet thì ai mà giúp được chứ.

À, Mật khẩu hết là 123456 nhé! Do này là file gốc chuyển lên nên chưa có gỡ

 

[giaiphap]

À, Mật khẩu hết là 123456 nhé! Do này là file gốc chuyển lên nên chưa có gỡ

Tại sao lại có 2 cột môn tin học vậy? Lấy cột nào? Tôi bỏ cột sau nhé!

 

[ngvu20131003]

Tại sao lại có 2 cột môn tin học vậy? Lấy cột nào? Tôi bỏ cột sau nhé!

Do đặc thù của trường: Môn Tin học là học về lập trình Pascal.
Còn môn Nghề (Tin học) là học về Tin học Văn phòng

Bài đã được tự động gộp: 3/3/20

Do đặc thù của trường: Môn Tin học là học về lập trình Pascal.
Còn môn Nghề (Tin học) là học về Tin học Văn phòng

Em xin chân thành cám ơn giaiphap rất nhiều ạ! Xin đa tạ!

 

[ngvu20131003]

Tại sao lại có 2 cột môn tin học vậy? Lấy cột nào? Tôi bỏ cột sau nhé!

__________
Giaiphap ơi. Em hỏi 1 tí. Nãy em khóa điểm lại (nghĩa là trước đó đã locked 1 số cột điểm bị thừa, ví dụ GDCD chỉ có 1 cột 15p nên locked 2 cột còn lại,), nhưng khi locked rồi, bắt đầu chọn ComboBox thì nó hiện ra như vầy! làm thế nào để sửa nó ạ?

Bài đã được tự động gộp: 4/3/20

__________
Giaiphap ơi. Em hỏi 1 tí. Nãy em khóa điểm lại (nghĩa là trước đó đã locked 1 số cột điểm bị thừa, ví dụ GDCD chỉ có 1 cột 15p nên locked 2 cột còn lại,), nhưng khi locked rồi, bắt đầu chọn ComboBox thì nó hiện ra như vầy! làm thế nào để sửa nó ạ?

Ghi chú: Nhưng nếu để trạng thái bình thường (không có Protect Sheet) thì mọi thứ bình thường!

Bài đã được tự động gộp: 4/3/20

__________
Giaiphap ơi. Em hỏi 1 tí. Nãy em khóa điểm lại (nghĩa là trước đó đã locked 1 số cột điểm bị thừa, ví dụ GDCD chỉ có 1 cột 15p nên locked 2 cột còn lại,), nhưng khi locked rồi, bắt đầu chọn ComboBox thì nó hiện ra như vầy! làm thế nào để sửa nó ạ?

Bài đã được tự động gộp: 4/3/20

Ghi chú: Nhưng nếu để trạng thái bình thường (không có Protect Sheet) thì mọi thứ bình thường!

---------
Một điều cuối cùng: Làm sao để không cho hiện ComboBox khi in phiếu điểm?

 

[giaiphap]

Giaiphap ơi. Em hỏi 1 tí. Nãy em khóa điểm lại (nghĩa là trước đó đã locked 1 số cột điểm bị thừa, ví dụ GDCD chỉ có 1 cột 15p nên locked 2 cột còn lại,), nhưng khi locked rồi, bắt đầu chọn ComboBox thì nó hiện ra như vầy! làm thế nào để sửa nó ạ?

Bạn Protect sheet với mật khẩu "123456" và sửa code lại như sau:

Sub Fileter_Change()
    Dim eValue As String
    With Sheet1
        eValue = .Shapes("Mon_Filter").ControlFormat.Value
        .Unprotect "123456"
        If eValue = 1 Then
            .Columns("E:FA").EntireColumn.Hidden = False
        Else
            .Columns("E:FA").EntireColumn.Hidden = True
            .Columns((eValue - 2) * 11 + 5).Resize(, 11).EntireColumn.Hidden = False
        End If
        .Protect "123456"
    End With
End Sub

Một điều cuối cùng: Làm sao để không cho hiện ComboBox khi in phiếu điểm?

Nháy nút phải chuột vào Combobox và chọn lệnh Format Control và thực hiện như hình dưới.

 

[ngvu20131003]

Bạn Protect sheet với mật khẩu "123456" và sửa code lại như sau:

Sub Fileter_Change()
    Dim eValue As String
    With Sheet1
        eValue = .Shapes("Mon_Filter").ControlFormat.Value
        .Unprotect "123456"
        If eValue = 1 Then
            .Columns("E:FA").EntireColumn.Hidden = False
        Else
            .Columns("E:FA").EntireColumn.Hidden = True
            .Columns((eValue - 2) * 11 + 5).Resize(, 11).EntireColumn.Hidden = False
        End If
        .Protect "123456"
    End With
End Sub

Nháy nút phải chuột vào Combobox và chọn lệnh Format Control và thực hiện như hình dưới.
View attachment 232863

Em xin chân thành thầy Giaiphap rất nhiều ạ! Kính đa tạ thầy rất nhiều! Chúc thầy thật nhiều sức khỏe!