Thống kê điểm THPT 2024 thi theo lớp theo môn thi (2 người xem)

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

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Tôi tuân thủ nội quy khi đăng bài
Có
1050167

1050167

Thành viên mới
Tham gia
16/6/15
Bài viết
29
Được thích
0
Em có file excel đính kèm mọi người có thể giúp đỡ em khi mình click chọn môn thi thì điểm thi môn đó ở tất cả các lớp sẽ được thống kê theo mẫu ở sheet THONG KE không ạ. Em chân thành cảm ơn!
 

File đính kèm

1050167 đã viết:
Em có file excel đính kèm mọi người có thể giúp đỡ em khi mình click chọn môn thi thì điểm thi môn đó ở tất cả các lớp sẽ được thống kê theo mẫu ở sheet THONG KE không ạ. Em chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...
.
Với thiêt kế như file này, 11 cột phải dùng 11 công thức khác nhau.

Data Validation trong O2 có 2 môn khác với tiêu đề trong sheet DIEM THI vùng F4:N4, Địa lý <=> Địa lí và GDCD <=>GDCD(Có char(10) ở giữa.

Có thể dùng 1 công thức cho toàn bảng nếu thay đổi thiết kế cũng như nguồn của Data Validation.
 
1050167 đã viết:
Em có file excel đính kèm mọi người có thể giúp đỡ em khi mình click chọn môn thi thì điểm thi môn đó ở tất cả các lớp sẽ được thống kê theo mẫu ở sheet THONG KE không ạ. Em chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...
Được nhé bạn.Viết cho nó cái code VBA là được.Bạn biết dùng VBA không.
 
1050167 đã viết:
Em có file excel đính kèm mọi người có thể giúp đỡ em khi mình click chọn môn thi thì điểm thi môn đó ở tất cả các lớp sẽ được thống kê theo mẫu ở sheet THONG KE không ạ. Em chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...
Nếu biết dùng code thử code này.
Mã: 
Sub abc()
    Dim i As Long, arr, dic As Object, dk As String, diem As Integer, T, b As Integer, c As Integer
    Dim j As Integer, so As Integer, lr As Long, data
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("diem thi")
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         If lr < 4 Then Exit Sub
         data = .Range("E4:N" & lr).Value
    End With
    With Sheets("thong ke")
        .Range("C5:T18").ClearContents
        arr = .Range("B3:T18").Value
        For i = 4 To 14
            T = Split(arr(2, i), "-")
            b = T(0) * 10
            c = T(1) * 10
            For j = b To c
                dic.Item(j) = i
            Next j
        Next i
        For i = 3 To 16
            dic.Item(arr(i, 1)) = i
        Next i
        dk = .Range("o2").Value
        For i = 2 To 10
            If data(1, i) = dk Then
               so = i
               Exit For
            End If
        Next i
        If so = 0 Then MsgBox "sai": Exit Sub
        For i = 2 To UBound(data)
            b = dic.Item(data(i, 1))
            If b Then
               arr(b, 2) = arr(b, 2) + 1
               If data(i, so) = Empty Then
                  arr(b, 3) = arr(b, 3) + 1
               Else
               If data(i, so) > 4.9 Then arr(b, 15) = arr(b, 15) + 1
               c = dic.Item(data(i, so) * 10)
               arr(b, c) = arr(b, c) + 1
               If arr(b, 17) <= data(i, so) Then arr(b, 17) = data(i, so)
               If arr(b, 18) = Empty Then
                  arr(b, 18) = data(i, so)
               ElseIf arr(b, 18) >= data(i, so) Then
                   arr(b, 18) = data(i, so)
               End If
                 arr(b, 19) = arr(b, 19) + data(i, so) * 1
               End If
            End If
        Next i
        For i = 3 To 16
            If arr(i, 19) Then arr(i, 19) = arr(i, 19) / (arr(i, 2) - arr(i, 3))
            If arr(i, 15) Then arr(i, 16) = arr(i, 15) / (arr(i, 2) - arr(i, 3))
        Next i
        .Range("B3:T18").Value = arr
    End With
    Set dic = Nothing
End Sub
 

File đính kèm

Cảm ơn bạn nhiều. Cho mình hỏi thêm ạ! Mình thấy cho môn toán là code chạy, giờ cho các môn khác thì sửa code chỗ nào ạ?
Bài đã được tự động gộp:

snow25 đã viết:
Nếu biết dùng code thử code này.
Mã: 
Sub abc()
    Dim i As Long, arr, dic As Object, dk As String, diem As Integer, T, b As Integer, c As Integer
    Dim j As Integer, so As Integer, lr As Long, data
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("diem thi")
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         If lr < 4 Then Exit Sub
         data = .Range("E4:N" & lr).Value
    End With
    With Sheets("thong ke")
        .Range("C5:T18").ClearContents
        arr = .Range("B3:T18").Value
        For i = 4 To 14
            T = Split(arr(2, i), "-")
            b = T(0) * 10
            c = T(1) * 10
            For j = b To c
                dic.Item(j) = i
            Next j
        Next i
        For i = 3 To 16
            dic.Item(arr(i, 1)) = i
        Next i
        dk = .Range("o2").Value
        For i = 2 To 10
            If data(1, i) = dk Then
               so = i
               Exit For
            End If
        Next i
        If so = 0 Then MsgBox "sai": Exit Sub
        For i = 2 To UBound(data)
            b = dic.Item(data(i, 1))
            If b Then
               arr(b, 2) = arr(b, 2) + 1
               If data(i, so) = Empty Then
                  arr(b, 3) = arr(b, 3) + 1
               Else
               If data(i, so) > 4.9 Then arr(b, 15) = arr(b, 15) + 1
               c = dic.Item(data(i, so) * 10)
               arr(b, c) = arr(b, c) + 1
               If arr(b, 17) <= data(i, so) Then arr(b, 17) = data(i, so)
               If arr(b, 18) = Empty Then
                  arr(b, 18) = data(i, so)
               ElseIf arr(b, 18) >= data(i, so) Then
                   arr(b, 18) = data(i, so)
               End If
                 arr(b, 19) = arr(b, 19) + data(i, so) * 1
               End If
            End If
        Next i
        For i = 3 To 16
            If arr(i, 19) Then arr(i, 19) = arr(i, 19) / (arr(i, 2) - arr(i, 3))
            If arr(i, 15) Then arr(i, 16) = arr(i, 15) / (arr(i, 2) - arr(i, 3))
        Next i
        .Range("B3:T18").Value = arr
    End With
    Set dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều. Cho mình hỏi thêm ạ! Mình thấy cho môn toán là code chạy, giờ cho các môn khác thì sửa code chỗ nào ạ?
 
snow25 đã viết:
Nếu biết dùng code thử code này.
Mã: 
Sub abc()
    Dim i As Long, arr, dic As Object, dk As String, diem As Integer, T, b As Integer, c As Integer
    Dim j As Integer, so As Integer, lr As Long, data
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("diem thi")
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         If lr < 4 Then Exit Sub
         data = .Range("E4:N" & lr).Value
    End With
    With Sheets("thong ke")
        .Range("C5:T18").ClearContents
        arr = .Range("B3:T18").Value
        For i = 4 To 14
            T = Split(arr(2, i), "-")
            b = T(0) * 10
            c = T(1) * 10
            For j = b To c
                dic.Item(j) = i
            Next j
        Next i
        For i = 3 To 16
            dic.Item(arr(i, 1)) = i
        Next i
        dk = .Range("o2").Value
        For i = 2 To 10
            If data(1, i) = dk Then
               so = i
               Exit For
            End If
        Next i
        If so = 0 Then MsgBox "sai": Exit Sub
        For i = 2 To UBound(data)
            b = dic.Item(data(i, 1))
            If b Then
               arr(b, 2) = arr(b, 2) + 1
               If data(i, so) = Empty Then
                  arr(b, 3) = arr(b, 3) + 1
               Else
               If data(i, so) > 4.9 Then arr(b, 15) = arr(b, 15) + 1
               c = dic.Item(data(i, so) * 10)
               arr(b, c) = arr(b, c) + 1
               If arr(b, 17) <= data(i, so) Then arr(b, 17) = data(i, so)
               If arr(b, 18) = Empty Then
                  arr(b, 18) = data(i, so)
               ElseIf arr(b, 18) >= data(i, so) Then
                   arr(b, 18) = data(i, so)
               End If
                 arr(b, 19) = arr(b, 19) + data(i, so) * 1
               End If
            End If
        Next i
        For i = 3 To 16
            If arr(i, 19) Then arr(i, 19) = arr(i, 19) / (arr(i, 2) - arr(i, 3))
            If arr(i, 15) Then arr(i, 16) = arr(i, 15) / (arr(i, 2) - arr(i, 3))
        Next i
        .Range("B3:T18").Value = arr
    End With
    Set dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Code trên chạy được 2 môn toán và tiếng anh, các môn khác thì bị lỗi như hình nhờ bạn giúp mình tí ạ!1719048282424.png
 

File đính kèm

Lần chỉnh sửa cuối:
1050167 đã viết:
Cảm ơn bạn nhiều. Cho mình hỏi thêm ạ! Mình thấy cho môn toán là code chạy, giờ cho các môn khác thì sửa code chỗ nào ạ?
Bài đã được tự động gộp:


Cảm ơn bạn nhiều. Cho mình hỏi thêm ạ! Mình thấy cho môn toán là code chạy, giờ cho các môn khác thì sửa code chỗ nào ạ?
Nhấp chuột vào đây để mở rộng...
không phải sửa điền dữ liệu vào là chạy mà.
Bài đã được tự động gộp:

1050167 đã viết:
Code trên chạy được 2 môn toán và tiếng anh, các môn khác thì bị lỗi như hình nhờ bạn giúp mình tí ạ!View attachment 301906
Nhấp chuột vào đây để mở rộng...
Gửi dữ liệu lỗi lên xem nào.
 
1050167 đã viết:
Cảm ơn bạn nhiều. Cho mình hỏi thêm ạ! Mình thấy cho môn toán là code chạy, giờ cho các môn khác thì sửa code chỗ nào ạ?
Bài đã được tự động gộp:


Cảm ơn bạn nhiều. Cho mình hỏi thêm ạ! Mình thấy cho môn toán là code chạy, giờ cho các môn khác thì sửa code chỗ nào ạ?
Nhấp chuột vào đây để mở rộng...
Data của bạn hình như chưa có, nên nó bị lỗi sao á
 
1050167 đã viết:
Đây anh! File này có dữ liệu tất cả các môn
Nhấp chuột vào đây để mở rộng...
Bạn thử lại code này.
Mã: 
Sub abc()
    Dim i As Long, arr, dic As Object, dk As String, diem As Integer, T, b As Integer, c As Integer
    Dim j As Integer, so As Integer, lr As Long, data, d As Long
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("diem thi")
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         If lr < 4 Then Exit Sub
         data = .Range("E4:N" & lr).Value
    End With
'
    With Sheets("thong ke")
        .Range("C5:T18").ClearContents
        arr = .Range("B3:T18").Value
        For i = 4 To 14
            T = Split(arr(2, i), "-")
            b = T(0) * 100
            c = T(1) * 100
            For j = b To c
                dic.Item(j) = i
            Next j
        Next i
        For i = 3 To 16
            dic.Item(arr(i, 1)) = i
        Next i
        dk = .Range("o2").Value
        For i = 2 To 10
            If data(1, i) = dk Then
               so = i
               Exit For
            End If
        Next i
        If so = 0 Then MsgBox "sai": Exit Sub
        For i = 2 To UBound(data)
            b = dic.Item(data(i, 1))
            If b Then
               arr(b, 2) = arr(b, 2) + 1
               If data(i, so) = Empty Then
                  arr(b, 3) = arr(b, 3) + 1
               Else
               If data(i, so) > 4.9 Then arr(b, 15) = arr(b, 15) + 1
               d = data(i, so) * 100
               c = dic.Item(d)
               arr(b, c) = arr(b, c) + 1
               If arr(b, 17) <= data(i, so) Then arr(b, 17) = data(i, so)
               If arr(b, 18) = Empty Then
                  arr(b, 18) = data(i, so)
               ElseIf arr(b, 18) >= data(i, so) Then
                   arr(b, 18) = data(i, so)
               End If
                 arr(b, 19) = arr(b, 19) + data(i, so) * 1
               End If
            End If
        Next i
        For i = 3 To 16
            If arr(i, 19) Then arr(i, 19) = arr(i, 19) / (arr(i, 2) - arr(i, 3))
            If arr(i, 15) Then arr(i, 16) = arr(i, 15) / (arr(i, 2) - arr(i, 3))
        Next i
        .Range("B3:T18").Value = arr
    End With
    Set dic = Nothing
End Sub
 
snow25 đã viết:
Bạn thử lại code này.
Mã: 
Sub abc()
    Dim i As Long, arr, dic As Object, dk As String, diem As Integer, T, b As Integer, c As Integer
    Dim j As Integer, so As Integer, lr As Long, data, d As Long
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("diem thi")
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         If lr < 4 Then Exit Sub
         data = .Range("E4:N" & lr).Value
    End With
'
    With Sheets("thong ke")
        .Range("C5:T18").ClearContents
        arr = .Range("B3:T18").Value
        For i = 4 To 14
            T = Split(arr(2, i), "-")
            b = T(0) * 100
            c = T(1) * 100
            For j = b To c
                dic.Item(j) = i
            Next j
        Next i
        For i = 3 To 16
            dic.Item(arr(i, 1)) = i
        Next i
        dk = .Range("o2").Value
        For i = 2 To 10
            If data(1, i) = dk Then
               so = i
               Exit For
            End If
        Next i
        If so = 0 Then MsgBox "sai": Exit Sub
        For i = 2 To UBound(data)
            b = dic.Item(data(i, 1))
            If b Then
               arr(b, 2) = arr(b, 2) + 1
               If data(i, so) = Empty Then
                  arr(b, 3) = arr(b, 3) + 1
               Else
               If data(i, so) > 4.9 Then arr(b, 15) = arr(b, 15) + 1
               d = data(i, so) * 100
               c = dic.Item(d)
               arr(b, c) = arr(b, c) + 1
               If arr(b, 17) <= data(i, so) Then arr(b, 17) = data(i, so)
               If arr(b, 18) = Empty Then
                  arr(b, 18) = data(i, so)
               ElseIf arr(b, 18) >= data(i, so) Then
                   arr(b, 18) = data(i, so)
               End If
                 arr(b, 19) = arr(b, 19) + data(i, so) * 1
               End If
            End If
        Next i
        For i = 3 To 16
            If arr(i, 19) Then arr(i, 19) = arr(i, 19) / (arr(i, 2) - arr(i, 3))
            If arr(i, 15) Then arr(i, 16) = arr(i, 15) / (arr(i, 2) - arr(i, 3))
        Next i
        .Range("B3:T18").Value = arr
    End With
    Set dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh nhiều đã chạy được tất cả các môn.
 
Phuocam đã viết:
.
Với thiêt kế như file này, 11 cột phải dùng 11 công thức khác nhau.

Data Validation trong O2 có 2 môn khác với tiêu đề trong sheet DIEM THI vùng F4:N4, Địa lý <=> Địa lí và GDCD <=>GDCD(Có char(10) ở giữa.

Có thể dùng 1 công thức cho toàn bảng nếu thay đổi thiết kế cũng như nguồn của Data Validation.
Nhấp chuột vào đây để mở rộng...
Cái bảng thiết kế theo dạng báo cáo chứ không phải thống kê. Thớt chưa đủ trình độ lập thống kê.
Kiểu phân tích điểm thế này, người thiết kế bảng phải dựng thế nào để dễ Pivot, Chart,...

Chú: dân thống kê cao cấp còn phải gom tách dữ liệu để phân tích ANOVA,...
 
snow25 Dạ anh xem thêm giúp em cột Điểm đạt nhiều nhất và vẽ phổ điểm theo môn được không ạ!
 

File đính kèm

Tác giả bài #4 sướng tê rồi.
Điệu này phải gần chục bài qua lại với vẽ được mấy cái hình vừa mắt thớt.
 
VetMini đã viết:
Kiểu phân tích điểm thế này, người thiết kế bảng phải dựng thế nào để dễ Pivot, Chart,...
Nhấp chuột vào đây để mở rộng...
Sửa chút đỉnh cái tiêu đề

1719628769482.png

Thì làm được cái Pivot table này, nhưng chưa tự động khi chọn môn. Mà thấy chữ "lí" là hơi ghét

1719629913803.png
 
Lần chỉnh sửa cuối:
Dùng Power query - Unpivot thì dùng slicer để lọc

1719630068724.png
 
Lần chỉnh sửa cuối:
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (2 người xem)
Trả lời
7
Đọc
97
ongke0711
ongke0711
K
Lỗi chèn ảnh hàng loạt trong excel 2024
Trả lời
2
Đọc
65
kenytien
K
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (2 người xem)
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (1 người xem)
Trả lời
10
Đọc
333
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel (1 người xem)
    • Thích
Trả lời
8
Đọc
297
VetMini
V
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
2
Đọc
72
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel
Trả lời
1
Đọc
67
BuiQuangThuan
B
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra
Trả lời
0
Đọc
85
queluatb
queluatb
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
16
Đọc
319
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
203
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng
Trả lời
7
Đọc
226
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
181
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
973
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml
Trả lời
1
Đọc
165
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
147
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
305
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
19
Đọc
631
thuytrangbp28
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
6
Đọc
219
Trungvt3
Trungvt3
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom