Chia sẻ file tạo trắc nghiệm với PowerPoint

[giaiphap]

Bài này viết code trong Power Point hả chủ thớt ơi?

Viết code trên PowerPoint và lấy dữ liệu từ Excel.

 

[hichicnptc]

Thứ nhất là lệnh.

Set ppt_shp = .Shapes("Choice_" & Answer)

dùng để gán ppt_shp bằng một cái Shape tên ("Choice_" & Answer), thì cái tên này phải có trong file PowerPoint, của bạn bị lỗi tôi đoán là do trong file PowerPoint chưa có đối tượng này. Còn lệnh

Set ppt_shp = .Shapes("Choice_C")

nó không báo lỗi là vì đối tượng shape tên "Choice_C" đã có trên Slide.
Thứ hai: Chương trình chạy đúng theo mình hay không là do mình lập trình chứ sau lại bảo là nó chạy sai, ví dụ cái đối tượng "Choice_C" trên Slide là vậy nhưng khi lập trình tôi muốn cho nó là đáp A, B hay D đêu được (Cái này do mình lập trình mà, đáp án A, B, C, D thì mình đổi vô tư), chẳng hạn trên file Word đáp án A, nhưng khi chạy Code tôi cho nó qua C là bình thường. Trên file PowerPoint mẫu tôi cũng cho nó trộn đáp án mà.
Thứ ba: Muốn giúp thì tui cần có file thực tế chứ không phải đưa dữ liệu vậy rồi kêu tôi phải tự sắp xếp cho phù hợp thì tui sẽ không giúp. Bạn muốn giúp thì bạn phải sắp xếp file dữ liệu và file cần xuất ra tươm tất, code đã áp dụng chưa được có sẳn trong file, nêu lý do áp dụng chưa được, nói rõ đã áp dụng nhưng chỏ nào chưa phù hợp, chổ nào ra kết quả chưa đúng, vậy ra đúng phải như thế nào? Mô tả càng chi tiết càng tốt.

cảm ơn sự tận tình của mod nhé. Cái code ở trong file .dotm rồi mà. cái ppt thì quên nên tôi bổ sung sau đó ấy.
Tôi nhờ người chỉnh giúp rồi: Cái giá trị của biến answer hình như bị kèm thêm kí tự đặc biệt kiểu xuống dòng ấy. Bỏ nó đi là được

 

[HBTuyenPQ]

Thứ nhất là lệnh.

Set ppt_shp = .Shapes("Choice_" & Answer)

dùng để gán ppt_shp bằng một cái Shape tên ("Choice_" & Answer), thì cái tên này phải có trong file PowerPoint, của bạn bị lỗi tôi đoán là do trong file PowerPoint chưa có đối tượng này. Còn lệnh

Set ppt_shp = .Shapes("Choice_C")

nó không báo lỗi là vì đối tượng shape tên "Choice_C" đã có trên Slide.
Thứ hai: Chương trình chạy đúng theo mình hay không là do mình lập trình chứ sau lại bảo là nó chạy sai, ví dụ cái đối tượng "Choice_C" trên Slide là vậy nhưng khi lập trình tôi muốn cho nó là đáp A, B hay D đêu được (Cái này do mình lập trình mà, đáp án A, B, C, D thì mình đổi vô tư), chẳng hạn trên file Word đáp án A, nhưng khi chạy Code tôi cho nó qua C là bình thường. Trên file PowerPoint mẫu tôi cũng cho nó trộn đáp án mà.
Thứ ba: Muốn giúp thì tui cần có file thực tế chứ không phải đưa dữ liệu vậy rồi kêu tôi phải tự sắp xếp cho phù hợp thì tui sẽ không giúp. Bạn muốn giúp thì bạn phải sắp xếp file dữ liệu và file cần xuất ra tươm tất, code đã áp dụng chưa được có sẳn trong file, nêu lý do áp dụng chưa được, nói rõ đã áp dụng nhưng chỏ nào chưa phù hợp, chổ nào ra kết quả chưa đúng, vậy ra đúng phải như thế nào? Mô tả càng chi tiết càng tốt.

trường hợp đáp án không phải là a, b, c mà là 1,2,3,4 thì mình đổi code sao anh. Tui đổi mà bị báo lỗi hoài á. cũng đang tập tành nên không rành lắm. xin chỉ giáo

 

[giaiphap]

trường hợp đáp án không phải là a, b, c mà là 1,2,3,4 thì mình đổi code sao anh. Tui đổi mà bị báo lỗi hoài á. cũng đang tập tành nên không rành lắm. xin chỉ giáo

Trong cái Sub NextCH sửa chổ

.Shapes("DA" & i).TextFrame.TextRange.Text = Chr(64 + i) & ". " & Arr(iCol + dArr(i), 1)

sửa lại thành

.Shapes("DA" & i).TextFrame.TextRange.Text = i & ". " & Arr(iCol + dArr(i), 1)

 

[thnghiachau]

Mình thấy đôi khi trình chiếu PowerPoint một số người có nhu cầu tạo câu hỏi trắc nghiệm kiểm tra kiến thức (Ở đây chỉ mang tính chất tương đối, chứ nếu tạo trắc nghiệm kiểm tra thực sự thì chẳng ai dùng đến nó). Hôm nay mình chia sẻ cách tạo câu hỏi trắc nghiệm bằng PowerPoint lấy dữ liệu câu hỏi từ file Excel và có thống kê số câu trả lời đúng khi hoàn thành bài trắc nghiệm. Các bạn tải file dưới và giải nén đặt file PowerPoint và file Excel vào chung thư mục sau đó mở file PowerPoint (Nhớ Enable macro trước khi mở file PowerPoint) và trình chiếu thử xem kết quả ra sao. Ở đây mình soạn câu hỏi trắc nghiệm trong File Excel, mật khẩu mở file là GPE.

Chào anh @giaiphap ,
Cho em hỏi tí ah:
e chèn thêm


dòng "Const SELECTED_COLOR As Long = RGB(255, 0, 0)"
nhưng khi run thì nó không hoạt động - nhấn "Bắt đầu" không có động tĩnh gì ...
Thêm nữa, sao mình có thể debug macro PowerPoint được ạ ?
Cám ơn anh.

 

[UltraExcel]

Có bác nào có tài liệu hay link hướng dẫn tạo macro chạy trong action của Powerpoint không share giúp với.

 

[giaiphap]

Chào anh @giaiphap ,
Cho em hỏi tí ah:
e chèn thêm

View attachment 301656
dòng "Const SELECTED_COLOR As Long = RGB(255, 0, 0)"
nhưng khi run thì nó không hoạt động - nhấn "Bắt đầu" không có động tĩnh gì ...
Thêm nữa, sao mình có thể debug macro PowerPoint được ạ ?
Cám ơn anh.

Lệnh này thì đâu có dùng được bạn, thử dùng lệnh này cho Excel nó cũng báo lỗi ngay, sửa lại thế này.

Const SELECTED_COLOR As Long = 255

Một điều mà VBA của PowerPoint hơi khó chịu là nó sẽ êm re khi code bị lỗi và sẽ ngưng chạy code phía dưới lỗi đó, tui chỉ có biết cách dùng Debug.Print ngay vị trí nghi ngời lỗi thôi.

Có bác nào có tài liệu hay link hướng dẫn tạo macro chạy trong action của Powerpoint không share giúp với.

Tui chỉ có cái này và google nếu cần thiết.

 

[UltraExcel]

Lệnh này thì đâu có dùng được bạn, thử dùng lệnh này cho Excel nó cũng báo lỗi ngay, sửa lại thế này.

Const SELECTED_COLOR As Long = 255

Một điều mà VBA của PowerPoint hơi khó chịu là nó sẽ êm re khi code bị lỗi và sẽ ngưng chạy code phía dưới lỗi đó, tui chỉ có biết cách dùng Debug.Print ngay vị trí nghi ngời lỗi thôi.

Tui chỉ có cái này và google nếu cần thiết.

Cảm ơn bác nhé. Không biết sao tìm mấy tài liệu về code cho PPT khó ghê.

 

[UltraExcel]

Có cái thủ tục này để đưa vào Action khi moveover
Sub changecol(oshp As Shape)
If oshp.Fill.ForeColor.RGB <> RGB(255, 255, 0) Then oshp.Fill.ForeColor.RGB = RGB(255, 0, 0) 'To mau nen la mau do cho dap an
End Sub

Tui không biết tài liệu nào hướng dẫn làm sao biết tạo tham số cho thủ tục đó?