Avatar billede tjensen Nybegynder
28. august 2008 - 14:55 Der er 9 kommentarer og
1 løsning

Masser af data i array

Hej,

Sidder og bøvler lidt rundt med en problem.
Skal lave en test om nogle forkortelser er korrekte.

Testen er let nok:
For k = 0 To UBound(Land)
    If "DK" = Land(k, 1) Then
        MsgBox Land(k, 2)
    End If
Next

Problemet er bare at jeg har 33 land.
Kan jeg fylde arrayet Land() lettere end at skrive noget ala følgende for hver?

Land(1, 1) = "AT"
Land(1, 2) = 20
Avatar billede excelent Ekspert
28. august 2008 - 15:43 #1
dim land
land = Sheets("Ark1").Range("A1:B33")
Avatar billede tjensen Nybegynder
28. august 2008 - 15:46 #2
Ja, og så er det jeg ikke har formuleret mig rigig.
Kan man undgå og have det liggende i et sheet?
Avatar billede excelent Ekspert
28. august 2008 - 16:02 #3
ja det kan man vel men hvor har du så dine data?
Avatar billede tjensen Nybegynder
28. august 2008 - 21:01 #4
Jo mine data har jeg der.
Men min kontrol data vil jeg helst ikke gemme der.
Avatar billede excelent Ekspert
28. august 2008 - 21:29 #5
Prøv lige at forklare hvad du har og hvad du forventer af en løsning
Umiddelbart ser det ud som om du har en kolonne med lande og en med forkortelser for disse.
Avatar billede tjensen Nybegynder
28. august 2008 - 21:37 #6
Jeg vil teste om min landekode er en af de registrede land, og hvis den er skal den skrive et tal. Altså Således helt korrekt.

Data = Sheets("Ark1").Range(A1).CurrentRegion
For i = 0 To UBound(Data)
    If Data(1,1) = Land(i, 1) Then
        MsgBox Land(i, 2)
    End If
Next

Hvor Land så er en function. Det bliver bare en super lang function. Men det virker fint nu.
Avatar billede excelent Ekspert
29. august 2008 - 15:29 #7
Det er muligt jeg er en smule tungnem, men jeg får ikke meget ud af det du returnerer
Jeg skal bruge fakta om ark celler kolonner rækker
Avatar billede tjensen Nybegynder
01. september 2008 - 11:00 #8
Vi lukker bare denne.
Her gjort som du skrev i kommentar #1. Så smid endelig et svar. :)
Avatar billede excelent Ekspert
01. september 2008 - 13:18 #9
Det er ok, jeg afstår.
Tag point selv, eller lad den stå åben lidt endnu,
måske en anden kan gennemskue spørgsmålet
Avatar billede tjensen Nybegynder
02. september 2008 - 09:03 #10
Tak for din tid alligevel.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester