Søg
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel 3 19/02/202614:23 20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel 2 18/02/202620:41 19/02/202611:30
Udskrift af ark Af boro23 i Excel 4 17/02/202608:38 18/02/202607:46
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:32 hvilken afløser kan I anbefale? Af jcr18 i Andet sikkerhed
I går 09:27 Hjælp til Api.asmx Af lurup i Andet programmering
16/0310:59 Ændre navn på ost-fil i Outlook Af TTA i Office & Kontorpakker
15/0316:12 Outlook fejler: 0x80070057 + 0x800CCC0E Af TTA i Office & Kontorpakker
14/0320:13 PIHOLE Af dcedata1977 i Linux
White papers
Flere white papers »