Make PPT Quiz Game Report Card - percentages, no. of correct answers | PPT VBA Macro Tutorial

Download code: https://pptvba.com/quiz-game-percentage/ Download file: https://pptvba.com/quiz-game-percentage/ ================ In this Microsoft PowerPoint Tutorial, we will be using Visual Basic Coding (VBA Coding) and making an interactive quiz game which can be used by teachers and in online courses. We will be making a scorecard/report card slide and showing the following: 1. The number of correct answers. 2. The number of wrong answers. 3. The number of questions passed. 4. The total number of questions. 5. Points 6. Percentages Download PPTM file and code: http://tutorials.bhaveshshaha.com/dow... ========================================== Part 1: I will be showing you how to make an interactive quiz game that can keep scores/points in PowerPoint using Visual Basic or VBA Code.    • How to make PowerPoint Interactive Quiz Ga...   Part 2: We will be adding labels for the number of correct and wrong answers, total and passed questions. We will also show the Points and Percentages scored. We will also allow questions to be passed and for the user to retry the quiz game.    • Make PPT Quiz Game Report Card - percentag...   Part 3: We will be adding a certificate slide which contains the name and the location of the user. Then, we will be printing the certificate slide and the result slide and save it as a .PDF file.    • Print Certificate with student's NAME | In...   ========================================== Be responsible for the next part, comment on any one of my videos for any suggestions that you might have! Comment below if you have any doubts. I also do freelancing and make custom powerpoint games and templates. Contact me for more information. ========================================== CODE: Sub Correct() Points.Caption = (Points.Caption) + 10 CA.Caption = (CA.Caption) + 1 Output = MsgBox("Your Answer is correct, well done!", vbOKOnly, "Correct Answer") ActivePresentation.SlideShowWindow.View.Next End Sub Sub Wrong() Points.Caption = (Points.Caption) - 5 WA.Caption = (WA.Caption) + 1 Output = MsgBox("Your Answer is wrong.", vbOKOnly, "Incorrect Answer") ActivePresentation.SlideShowWindow.View.Next End Sub Sub Reset() CA.Caption = 0 WA.Caption = 0 PQ.Caption = 0 TQ.Caption = 0 Points.Caption = 0 Percentages.Caption = 0 ActivePresentation.SlideShowWindow.View.Exit End Sub Sub CalculateResults() TQ.Caption = 6 PQ.Caption = (TQ.Caption) - (CA.Caption) - (WA.Caption) Percentages.Caption = (CA.Caption) * 100 / (TQ.Caption) ActivePresentation.SlideShowWindow.View.Next End Sub Sub Retry() CA.Caption = 0 WA.Caption = 0 PQ.Caption = 0 TQ.Caption = 0 Points.Caption = 0 Percentages.Caption = 0 ActivePresentation.SlideShowWindow.View.GotoSlide (1) End Sub ========================================== Bhavesh Shaha, [email protected]    / bhaveshshaha   www.instagram.com/basicallybhavesh