Có hai cách làm:
1. Trình bày câu hỏi ở cột A, cột C chứa các chọn lựa.
Cột B dùng làm cột trả lời (hoặc gõ thẳng X vào ô , hoặc dùng button gì đó tùy thích.
Vì vậy, phải đặt bẫy Sheet Change ở cột B.
2. Cách dễ hơn là dùng UserForm.
TextBox1 - Label "câu hỏi thứ n"; Text "nội dung câu hỏi"
4 buttons với 4 Câu lựa chọn trả lời là label
Dim DAPANDUNG As String
Dim CAUHIENTAI, DIEM, CAUHOITOIDA As Integer
Private Sub CAUTIEP_Click()
'//CAU TIEP THEO
Dim CAUTRALOI, KETQUA As String
If DAPAN1.Value = False And DAPAN2.Value = False And DAPAN3.Value = False And DAPAN4.Value = False Then
MsgBox ("VUI LONG CHON LAI ")
Exit Sub
Else
If DAPAN1.Value = True Then CAUTRALOI = "1"
If DAPAN2.Value = True Then CAUTRALOI = "2"
If DAPAN3.Value = True Then CAUTRALOI = "3"
If DAPAN4.Value = True Then CAUTRALOI = "4"
If CAUTRALOI = DAPANDUNG Then DIEM = DIEM + 1
' (Tới chỗ này, mình còn một bước nữa là kiểm tra nêu câu trả lời không trùng đáp án đúng thì sẽ hiện thị "làm lại"
DAPAN1.Value = False
DAPAN2.Value = False
DAPAN3.Value = False
DAPAN4.Value = False
End If
If CAUTRALOI = False Then
MsgBox ("LAM LAI ")
End If
Call HIENTHICAU(CAUHIENTAI + 1) 'THEM 1 CAU
' THUC HIEN CHAM DIEM
Sheets("SHEET1").Select 'CHON DU LIEU
CAUHIENTAI = CAUHIENTAI + 1
If CAUHIENTAI > CAUHOITOIDA Then
MsgBox ("BAN DA HOAN THANH BAI THI DIEM SO CUA BAN LA: " & DIEM)
Call XOACAUHOI
PHANTHI.Enabled = False ' KHONG CHO THI
Exit Sub
End If
CAU.Caption = "CAU " & CAUHIENTAI & " / " & CAUHOITOIDA
End Sub
Chỉ giúp mình nha
). Gửi bạn tham khảo để xây dựng theo ý của mình. Vui lòng đừng hỏi gì thêm nhé, khả năng tôi có hạn không giúp gì được.
