Napravio sam kviz, ali ne znam kako da dodam rang listu? Ako neko zna nek pomogne, na google nisam nasao
makro za kviz
Code:
Dim ime As String
Dim tacniodgovori As Integer
Dim netacniodgovori As Integer
Sub vaseime()
ime = InputBox(Prompt:="Unesite Vase ime!")
MsgBox ime + ", dobrodosao/la na kviz o alternativnim izvorima energije "
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub tacno()
MsgBox ime + ", bravo, to je tacan odgovor! "
tacniodgovori = tacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub netacno()
MsgBox ime + ", nazalost, to nije tacan odgovor! "
netacniodgovori = netacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub pocetak()
tacniodgovori = 0
netacniodgovori = 0
ime
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub rezultati()
MsgBox ime + ", imas pogodjenih " & tacniodgovori & " od " & tacniodgovori + netacniodgovori & ""
End Sub
Sub rez()
ActivePresentation.SlideShowWindow.View.First
End Sub
Sub tacno1()
tacniodgovori = 0
netacniodgovori = 0
MsgBox ime + ", bravo, to je tacan odgovor! "
tacniodgovori = tacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub netacno1()
tacniodgovori = 0
netacniodgovori = 0
MsgBox ime + ", nazalost, to nije tacan odgovor! "
netacniodgovori = netacniodgovori + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Hvala unapred