Hướng dẫn tạo đề thi trắc nghiệm trên Excel

[phapdct08b]

Bạn làm hay quá. Bạn có thể cho mìn xin file hướng dẫn chi tiết được không

 

[thanhyennit]

Chào Bác ạ! Cháu có tải file của Bác về tham khảo. Bác có thể cho cháu xem sheet đề thi được không ạ? Vì trong file của Bác có đưa hình ảnh lên được (đúng ý cháu). cảm ơn bác ạ

 

[hieuvvhpg]

Bạn cho hỏi sao mình kích vào ô đánh đấu câu trả lời mà không được vậy? Bạn kiểm tra giúp mình nhé!

 

[Haesang]

thầy ơi cho em hỏi chỉnh sửa câu hỏi chỗ nào vậy thầy?

 

[Haesang]

Cái này mà làm chắc phải giúp bạn toàn bộ từ A đến Z luôn ---> Lười quá
Tôi có 1 file cũng thuộc dạng trắc nghiệm... Ngày xưa do bx tôi học thi bằng lái xe 2 bánh nên tôi làm file này cho bx tôi học dễ hơn
Code tôi viết từ hồi xa xưa nên không hay lắm nhưng cũng tạm dùng được!
Bạn hãy tham khảo và cải tiến lại để dùng trên file mình nhé
Link download: http://www.mediafire.com/?e7g8be6nocty85f

View attachment 71586

thầy ơi, cho em hỏi dữ liệu câu hỏi ở đâu vậy? em đang rất cần chương trình này, em xin cảm ơn!

 

[leloi69]

Kính nhờ anh tintam7251 bổ sung thêm như mẫu file Xin chân thành biết ơn!

 

[Trần Văn Bình]

Cái này mà làm chắc phải giúp bạn toàn bộ từ A đến Z luôn ---> Lười quá
Tôi có 1 file cũng thuộc dạng trắc nghiệm... Ngày xưa do bx tôi học thi bằng lái xe 2 bánh nên tôi làm file này cho bx tôi học dễ hơn
Code tôi viết từ hồi xa xưa nên không hay lắm nhưng cũng tạm dùng được!
Bạn hãy tham khảo và cải tiến lại để dùng trên file mình nhé
Link download: http://www.mediafire.com/?e7g8be6nocty85f
View attachment 71586

Anh ơ hiện em mở ra xem code được nhưng hiện nay em chạy dùng office 64 bit do vậy FROM đồng hồ bị lỗi nhờ anh xem lại giúp

 

[ndu96081631]

Anh ơ hiện em mở ra xem code được nhưng hiện nay em chạy dùng office 64 bit do vậy FROM đồng hồ bị lỗi nhờ anh xem lại giúp

Bạn sửa code API thành vầy xem:

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Code ở trong UserForm1, sửa:

Dim hWnd As Long

thành:

Dim hWnd As LongPtr

 

[vn8690]

​

Mình có đề thi trắc nghiệm như ở trên, mình muốn cho học sinh thi trên máy tính, mỗi câu chọn một đáp án, bằng cách check vào đáp án đúng nhất, muốn chọn đáp án khác thì check vào đáp án khác, đáp án vừa chọn rồi bỏ check. Sau khi trả lời xong các câu hỏi Clik vào mục điểm sẽ hiển thị điểm của học sinh. Mong các Pro trong diễn đàn giúp mình với hoặc hướng dẫn mình thực hiện cũng được.

bạn học chút về code sẽ thấy bài toán của bạn khó cỡ nào
phải nhờ các bác cao thủ mới làm được

 

[Trần Văn Bình]

Bạn sửa code API thành vầy xem:

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Code ở trong UserForm1, sửa:

Dim hWnd As Long

thành:

Dim hWnd As LongPtr

 

[nonxiteen]

Cái này mà làm chắc phải giúp bạn toàn bộ từ A đến Z luôn ---> Lười quá
Tôi có 1 file cũng thuộc dạng trắc nghiệm... Ngày xưa do bx tôi học thi bằng lái xe 2 bánh nên tôi làm file này cho bx tôi học dễ hơn
Code tôi viết từ hồi xa xưa nên không hay lắm nhưng cũng tạm dùng được!
Bạn hãy tham khảo và cải tiến lại để dùng trên file mình nhé
Link download: http://www.mediafire.com/?e7g8be6nocty85f
View attachment 71586

Bác cho em hỏi em muốn đối ngân hàng câu hỏi thì làm thế nào ạ ?
ngân hàng câu hỏi của em 200 câu mà em chỉ muốn thi 50 câu thì chỉnh đâu ạ ?