17. august 2008 - 16:18Der er
6 kommentarer og 1 løsning
Tilfældig
Jeg håber en af jer exel eksperter kan hjælpe mig da jeg er gået godt og grundig død i dette (muligvis simple) problem ..
Jeg her et excel ark med en skema jeg skal øve så jeg kan det udenad. I første kolonne står et bogstav i næste betydningen:
A Alfa B Bravo C Charlie D Delta E Echo F Foxtrot G Golf H Hotel I India J Juliet K Kilo L Lima M Mike N November O Oscar P Papa Q Quebec R Romeo S Sierra T Tango U Uniform V Victor W Whisky X X-ray Y Yankee Z Zulu Æ Ægir Ø Ødis Å Åse
Til det ønsker jeg mig en måde så excel kan vise mig et tilfældigt bogstav (fra listen) men ikke vise mig svaret før jeg trykker på en tast (jeg har flere lister, f.eks. postnummer og by, som jeg skal lære, dette er blot et eksempel)...
Men jeg har rodet lidt rundt med VLOOKUP() .. uden held og så forsøgt med noget RANDOM osv. men er gået ret sur i det hele.
Hvis der er der nogen der kan hjælpe mig igang med dette vil jeg være meget glad? (jeg har en engelsk excel version 2000)
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Public Sub Test() Dim Data As Variant, I As Integer, Svar As String Data = Worksheets(1).Range("A1").CurrentRegion Worksheets(2).Select Randomize Do I = Int((UBound(Data) * Rnd) + 1) Svar = InputBox("hvad er " & Data(I, 1)) If UCase(Svar) <> UCase(Data(I, 2)) Then MsgBox " svarret var forkert, det var " & Data(I, 2) Else MsgBox "Svaret er KORREKT" End If Loop Until Svar = "" End Sub
Jeg får desværre en Runtime error 9, subscript out of range (i linien Worksheets(2).Select)..
Første element står i A2 i "Ark1" hos mig (så har jeg måske har en Dansk Excel alligevel?). I min nuværende liste er det et tal dvs. A2 er 00, A3 er 01 osv. og det de svarer til står i F2 og nedefter.
Forresten, super cool at du har lavet et helt spørg/svar program her :-) .. jeg kunne dog godt tænke mig at den blot stillede spørgsmålet, og så på et tastetryk viste svaret. Vil det så være korrekt at skrive nedenstående istedet?
Do I = Int((UBound(Data) * Rnd) + 1) Svar = InputBox("hvad er " & Data(I, 1) & " ? (skriv s for slut)") MsgBox "Svaret er " & Data(I, 6) Loop Until UCase(Svar) = "S"
" Jeg får desværre en Runtime error 9, subscript out of range (i linien Worksheets(2).Select).. "
det var bare for at vælge en anden side en den du havde listen på'
Do I = Int((UBound(Data) * Rnd) + 1) Svar = InputBox("hvad er " & Data(I, 1) & " ? (skriv s for slut)") MsgBox "Svaret er " & Data(I, 6) Loop Until UCase(Svar) = "S"
Hej kabbak (beklager sene svar, jeg har været væk et par dage) Jeg får desværre stadig den mystiske "Runtime error 9" fejl hvor den så pejer på linien med Worksheets(2).Select
Jeg har det hele i samme worksheet og ja spørgsmålet står i kolonne A (dvs. 1) og svaret i kolonne F (dvs. 6)
Public Sub Terpe() Dim Data As Variant, I As Integer, Svar As String Data = Worksheets(1).Range("A2").CurrentRegion Worksheets(2).Select Randomize
Do I = Int((UBound(Data) * Rnd) + 1) Svar = InputBox("hvad er " & Data(I, 1) & " ? (skriv s for slut)") MsgBox "Svaret er " & Data(I, 6) Loop Until UCase(Svar) = "S"
arrk ... det skal selvfølgelig være Worksheets(1) så. Tusind tak for din hjælp !!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
