16. februar 2007 - 10:49Der er
4 kommentarer og 1 løsning
En matrix på 365*24 der skal vendes
Jeg har en matrix på 365 rækker og 24 kolonner, som jeg skal have ændret til en lang kolonne, hvor tallene står under hinanden. Pt. står de som dato 1.1.2006 - 31.12.2006) i rækkerne og med tiden ( 1-24 timer ) i kolonnerne. Jeg skal bruge tallene som tid fortløbende fra 1. time den 1.1.2006 til time 24 i den 31.12.2006 i en lang kolonne med de 8760 værdier under hinanden.
Det er på den måde , ja... lige nu står datoerne under hinanden 1-365, og timerne fra a og hen til x. Dvs som en matrix. Jeg har brug for at værdierne står i en lag kolonne med alle 8760 værdier under hinanden startende med værdien fra 1.1.06 kl 0-1 og sluttende med værdien kl 23-00 den 31.12.06 (dato og timer er egentligt ligegyldigt, da det kun er værdierne jeg skal bruge.)
Prøv at se på denne kode - indsættes i VBA (Alt+F11) - Ark1:
Dim rMx Private Sub Vend_Matrix() ActiveWorkbook.Sheets(1).Activate sidsteræk = ActiveCell.SpecialCells(xlLastCell).Row 'sidste række Ark1
rMx = 1
For r = 1 To sidsteræk For k = 1 To 25 'dato + 24 timer cindhold = Cells(r, k) Worksheets(2).Cells(rMx, 1) = cindhold rMx = rMx + 1 Next k Next r End Sub
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.