Code tính điểm

[thcsanmy1]

Nhờ anh em giải thích code dùm nhé!!!!! Cám ơn mọi người trước nhé.

On Error Resume NextDim iRow As Long, i As Long, j As Long, diem As Double
iRow = Sheet2.Range("B65000").End(xlUp).Row
With Sheet1
For i = 1 To .OLEObjects.Count
If TypeName(.OLEObjects(i).Object) = "OptionButton" Then
If .OLEObjects(i).Object = True Then
For j = 1 To iRow - 4
If .OLEObjects(i).Object.GroupName = "cau" & j And .OLEObjects(i).Object.Caption = Sheet2.Cells(j + 4, 3) Then diem = diem + Sheet2.Cells(3, 4)
Next
End If
End If
Next
.Cells(5, 3) = "0" + diem
End With

 

[tintam7251]

Bạn hỏi mà không có file thì rất khó giải thích. May là mình viết đoạn đó nên mình hiểu. Giải thích theo dòng nhé:
1. Khai báo các biến.
2. Tìm dòng cuối có dữ liệu của cột B - sheet2. Mục đích là tìm số câu hỏi.
3. Tham chiếu đến sheet1.
4. Duyệt toàn bộ các Object trong sheet1.
5. Nếu Object có tên OptionButton thì
6. Nếu OB đó được chọn thì
7. Duyệt số j câu hỏi.
8. Nếu Groupname của OB là cau j và nội dung câu trả lời = đáp án thì cọng thêm điểm vào.
13. Gán điểm vào ô C5.
Biên dịch ra "mã người" quả là khó. Bạn cố hiểu nghe.

 

[thcsanmy1]

Bạn hỏi mà không có file thì rất khó giải thích. May là mình viết đoạn đó nên mình hiểu. Giải thích theo dòng nhé:
1. Khai báo các biến.
2. Tìm dòng cuối có dữ liệu của cột B - sheet2. Mục đích là tìm số câu hỏi.
3. Tham chiếu đến sheet1.
4. Duyệt toàn bộ các Object trong sheet1.
5. Nếu Object có tên OptionButton thì
6. Nếu OB đó được chọn thì
7. Duyệt số j câu hỏi.
8. Nếu Groupname của OB là cau j và nội dung câu trả lời = đáp án thì cọng thêm điểm vào.
13. Gán điểm vào ô C5.
Biên dịch ra "mã người" quả là khó. Bạn cố hiểu nghe.

Cám ơn anh tintam7251 nhiều nhé!