Tạo một đề thi trắc nghiệm

[beetune1991]

Bạn tham khảo file

Bạn tham khảo file nh

lại bị lệch đáp án anh ạ. )

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

thử file này tôi làm với userForm
Trong file nếu muốn bảo mật kết quả ở sheets kêt quả thì chạy đoạn code ẩn hiện sheet.trước khi thi thì cho các sheet ẩn hết,chỉ để lại 1 sheet trắc nghiệm,thi xong nộp bài thì hiện sheets lên.
trong file bố cục khá đơn giản,làm cho bạn tham khảo,khi hiện form phải nhất bắt đầu,trả lời xong nhấn chuyển câu thì sẽ sang câu tiếp theo,phần tự chọn câu hỏi là nếu thì nếu thì sinh bỏ câu hoặc đã trả lời nhưng đáp án đã chọn không ưng ý có thể chọn lại câu trả lời đó để sửa câu trả lời .
View attachment 252019

anh ơi bật file lên bị giấu hếtđi rồi, ko thấy cái gì để bắt đầu anh ạ

 

[Cu Tồ]

anh ơi bật file lên bị giấu hếtđi rồi

nhấn vào bắt đầu nó hiện lên form => sau đó nhấn bắt đầu để vào bài thi.trong khi làm có thể nhấn kiểm tra trên form để kiểm tra xem là còn những câu nào chưa làm.và kết thúc bài bằng nút nộp bài.Kết quả trả về bên sheet nguồn 1

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

Phần này là phần để nhảy tới các câu mà chưa được trả lời hoặc muốn sửa đáp án,còn chuyển câu là làm theo thứ tự từng câu

 

[beetune1991]

nhấn vào bắt đầu nó hiện lên form => sau đó nhấn bắt đầu để vào bài thi.trong khi làm có thể nhấn kiểm tra trên form để kiểm tra xem là còn những câu nào chưa làm.và kết thúc bài bằng nút nộp bài.Kết quả trả về bên sheet nguồn 1
View attachment 252063

View attachment 252064

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

View attachment 252066
Phần này là phần để nhảy tới các câu mà chưa được trả lời hoặc muốn sửa đáp án,còn chuyển câu là làm theo thứ tự td

dạ rồi ạ!
excel sd protect view nên bị ẩn hết các sheet ạ

 

[Cu Tồ]

dạ rồi ạ!
excel sd protect view nên bị ẩn hết các sheet ạ

Bạn nhấn alt + f11 vào để chạy ẩn sheets hoặc hiện sheets,nếu không thì gán cho hai đoạn sub này vào nút để chạy

 

[beetune1991]

View attachment 252069
Bạn nhấn alt + f11 vào để chạy ẩn sheets hoặc hiện sheets,nếu không thì gán cho hai đoạn sub này vào nút để chạy

dạ vâng em cám ơn ạ

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

Bạn tham khảo file nhé

anh ơi. bị lệch đáp án nữa rồi =)))
anh xem chỉnh chỗ nào chỉ em với để e tự chỉnh. em tìm nhưng không ra

 

[Cu Tồ]

chỉnh sửa một tí cho trường hợp nhiều thí sinh kiểm tra.
1.bắt đầu bài thi ( hiện form nhập thông tin thí sinh) => nhấn bắt đầu bài thi làm bài => trong khi làm nhấn chuyển câu để qua câu tiếp theo,khi không biết có thể bỏ qua câu đó,tới lúc muốn quay lại một câu nào đó trong danh sách câu đã cho nhấn vào [tự chọn câu hỏi] để chuyển tới câu đó. => kết thúc bài thi bằng nút nộp bài.kết quả bài làm của các thí sinh sẽ được copy qua sheets [giải thích lần lượt từng thí sinh một]

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

bị lệch đáp án nữa rồi

Tối thấy cái file của bạn nguyenthuy33388 đáp án có bị lệch đâu ta?

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

 

[beetune1991]

chỉnh sửa một tí cho trường hợp nhiều thí sinh kiểm tra.
1.bắt đầu bài thi ( hiện form nhập thông tin thí sinh) => nhấn bắt đầu bài thi làm bài => trong khi làm nhấn chuyển câu để qua câu tiếp theo,khi không biết có thể bỏ qua câu đó,tới lúc muốn quay lại một câu nào đó trong danh sách câu đã cho nhấn vào [tự chọn câu hỏi] để chuyển tới câu đó. => kết thúc bài thi bằng nút nộp bài.kết quả bài làm của các thí sinh sẽ được copy qua sheets [giải thích lần lượt từng thí sinh một]

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

Tối thấy cái file của bạn nguyenthuy33388 đáp án có bị lệch đâu ta?

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

vẫn bị lệch câu trả lời anh ạ. nó cứ lấy đáp án của dòng dưới

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

chỉnh sửa một tí cho trường hợp nhiều thí sinh kiểm tra.
1.bắt đầu bài thi ( hiện form nhập thông tin thí sinh) => nhấn bắt đầu bài thi làm bài => trong khi làm nhấn chuyển câu để qua câu tiếp theo,khi không biết có thể bỏ qua câu đó,tới lúc muốn quay lại một câu nào đó trong danh sách câu đã cho nhấn vào [tự chọn câu hỏi] để chuyển tới câu đó. => kết thúc bài thi bằng nút nộp bài.kết quả bài làm của các thí sinh sẽ được copy qua sheets [giải thích lần lượt từng thí sinh một]

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

Tối thấy cái file của bạn nguyenthuy33388 đáp án có bị lệch đâu ta?

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

anh bật cái thông báo nhắc nhờ trả lời sai lên anh ạ. nó toàn báo e kết qả của dòng dưới

 

[Cu Tồ]

Nãy tôi gửi nhầm file,.mà file bạn ấy lệch như thế nào bạn phải chụp hình chỉ ra chứ mọi người đâu có biết tiếng nhật

 

[beetune1991]

Nãy tôi gửi nhầm file,.mà file bạn ấy lệch như thế nào bạn phải chụp hình chỉ ra chứ mọi người đâu có biết tiếng nhật

đây như thế này ạ. đáp án thì không sai. nhưng em cứ ấn nút tiếp theo nó lại hiện lên đáp án của câu tiếp theo.

hiện tại e cũng đang muốn làm 1 bản để các bạn luyện tập để các bạn có thể biết được mình trả lời sai chỗ nào và học luôn.
còn bài kiểm tra e sẽ tắt hết các thông báo đi

 

[Cu Tồ]

View attachment 252076

View attachment 252077


View attachment 252078

View attachment 252079


đây như thế này ạ. đáp án thì không sai. nhưng em cứ ấn nút tiếp theo nó lại hiện lên đáp án của câu tiếp theo.

hiện tại e cũng đang muốn làm 1 bản để các bạn luyện tập để các bạn có thể biết được mình trả lời sai chỗ nào và học luôn.
còn bài kiểm tra e sẽ tắt hết các thông báo đi

Vậy thì bạn thử bỏ hết mấy dòng lệnh này đi

Private Sub OptionButton1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub
Private Sub OptionButton2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub
Private Sub OptionButton3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub
Private Sub OptionButton4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub

rồi ở phần Private Sub CommandButton3_Click() thêm dòng code này ở ngay dưới Private Sub CommandButton3_Click() thử xem

Call chamdiem

 

[beetune1991]

Vậy thì bạn thử bỏ hết mấy dòng lệnh này đi

Private Sub OptionButton1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub
Private Sub OptionButton2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub
Private Sub OptionButton3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub
Private Sub OptionButton4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Call chamdiem
End Sub

rồi ở phần Private Sub CommandButton3_Click() thêm dòng code này ở ngay dưới Private Sub CommandButton3_Click() thử xem

Call chamdiem

tắt luôn thông báo a ạ.
vì bản chất e vẫn muốn nếu trả lời sai thì hiện lên luôn để các ban học ạ

hay anh làm trong file của anh đi.
ấn sai câu trả lời nó hiện lên luôn trả lời sai a ạ

 

[Bluestar092011]

Tôi thấy cái này làm trực tiếp trên sheet luôn nè, có thể tham khảo thêm.

Chia sẻ cách tạo bài trắc nghiệm bằng Excel.

Ngồi buồn thấy một số thành viên có vẻ có nhu cầu tạo tiện ích thi trắc nghiệm bằng Excel. Nay mình mạo muội viết một tiện ích nhỏ giúp tạo bài thi trắc nghiệm đơn giản (Chỉ gọi là đơn giản vì nó còn nhiều cái chưa hài lòng) cho thành viên nào có nhu cầu và có thể phát triển thêm theo nhu cầu cá...

giaiphapexcel.com

 

[Cu Tồ]

ấn sai câu trả lời nó hiện lên luôn trả lời sai

rất ngại sửa file của người khác nhưng cái này cũng bé nên xin phép chủ file tôi sửa vầy bạn xem đi

 

[beetune1991]

rất ngại sửa file của người khác nhưng cái này cũng bé nên xin phép chủ file tôi sửa vầy bạn xem đi

e xem xong vẫn chua biết vì sao lại sửa được. ))
được rồi a ạ. cám ơn anh nhiều.

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

à quên, còn thêm nữa. trong file của anh khi ấn chuyển câu. hết câu dừng lại. nhưng ở đây ấn chuyển câu xong lại tắt đi luôn. e muốn được như file của anh. là ấn nộp bài thì mới kết thúc.
à mà a làm cái tự động ra đáp án cho file của anh đi ạ.
em tưởng anh làm trong file của anh

 

[beetune1991]

rất ngại sửa file của người khác nhưng cái này cũng bé nên xin phép chủ file tôi sửa vầy bạn xem đi

nó không tính câu cuối anh ạ
e làm nhanh e để có 2 câu mà hết câu nó ko tính câu cuối

 

[Cu Tồ]

nó không tính câu cuối

Trong sub CommandButton3_Click sửa
If sotiep+1 <= Lr - 4 Then
thành
If sotiep < Lr - 4 Then

 

[beetune1991]

Trong sub CommandButton3_Click sửa
If sotiep+1 <= Lr - 4 Then
thành
If sotiep < Lr - 4 Then

vẫn ko được anh ạ.
vẫn không tính câu cuối

 

[Cu Tồ]

vẫn ko được anh ạ.
vẫn không tính câu cuối

Bạn thử trong file.trong file có sửa ở sub
Private Sub CommandButton3_Click()
sửa thành
If sotiep < Lr - 4 Then
........
Else
Call chamdiem

 

[beetune1991]

Bạn thử trong file.trong file có sửa ở sub
Private Sub CommandButton3_Click()
sửa thành
If sotiep < Lr - 4 Then
........
Else
Call chamdiem

e hiểu rồi a ạ.
tới câu cuối phải ấn chữ nộp bài
không được ấn câu tiếp theo nếu ko nó sẽ không lưu câu cuối.

cho nên a chỉnh giúp e nút chuyển tiếp thành cái "the end " ấy ạ. sau đó không ấn được nữa bắt buộc phải ấn "nộp bài" anh ạ

 

[nguyenthuy13388]

View attachment 252076

View attachment 252077


View attachment 252078

View attachment 252079


đây như thế này ạ. đáp án thì không sai. nhưng em cứ ấn nút tiếp theo nó lại hiện lên đáp án của câu tiếp theo.

hiện tại e cũng đang muốn làm 1 bản để các bạn luyện tập để các bạn có thể biết được mình trả lời sai chỗ nào và học luôn.
còn bài kiểm tra e sẽ tắt hết các thông báo đi

View attachment 252093

e hiểu rồi a ạ.
tới câu cuối phải ấn chữ nộp bài
không được ấn câu tiếp theo nếu ko nó sẽ không lưu câu cuối.

cho nên a chỉnh giúp e nút chuyển tiếp thành cái "the end " ấy ạ. sau đó không ấn được nữa bắt buộc phải ấn "nộp bài" anh ạ

lệch ntn vậy bạn, mình test có thấy lệch đâu?

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

Bạn thử trong file.trong file có sửa ở sub
Private Sub CommandButton3_Click()
sửa thành
If sotiep < Lr - 4 Then
........
Else
Call chamdiem

cho sub chamdiem vào sự kiện CommandButton3_Click() sẽ bị lệch kết quả bạn ạ