Jeg har lavet dette eksempel, som bruger makroer så hvis du prøver det skal du tillade at makroen er aktiv:
uploads/107/Spørgeskema.xlsVed hjælp af en makro i "ThisWorkbook"
Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False Worksheets("Ark1").Activate End Sub
|
vil det være Ark1 som starter op hver gang. Og Man kan ikke se de forskellig ark faner.
Når du trykker "start" får du vist en anden fane, her er 4 sp. Ved hjælp af formlerne i kolonne J og K kan man se om alle spørgsmål er besvaret (formater med hvid skrift så disse ikke kan se af brugeren).
Knappen "Næste" styre så ved hjælp af makroen
Private Sub CommandButton1_Click() If Range("k14") = 4 Then Worksheets("Ark3").Activate Else: MsgBox "Du kan ikke gå til næste side før alle spørgsmål er udfyldt", , "Spørgeskema" End If End Sub
|
Hvis summen i celle K14 ikke 4, altså ikke alle´4 sp. er udfyldt, komme der en boks frem som gør opmærk som på at alle 4 sp. skal være besvaret.
Hvis de er det vil makroen gøre at næste ark bliver vist.
Det næste ark er så opbygget på samme måde, også med en "næste" knap, her er det så "Ark4" som bliver vist hvis alle sp er udfyldt.
Dette kan du så vælge at fortsætte så langt du har behov for.
Jeg håber dette kan bruges som inspiration.