20. november 2005 - 13:36Der er
11 kommentarer og 1 løsning
bearbejdning af data
Jeg måler og får derved en datarække i en kolonne, hvor data står i række 2-70. De første data (4-6 målinger)ligger meget tæt og derefter stiger data meget. Jeg vil gerne have, at jeg får flyttet data til en ny kolonne, så den første værdi er den, som er den sidste af de værdier som ligger tæt og den næste er den værdi, hvor der sker en større stigning.
eks: 21,28 21,22 21,22 21,20 den værdi skal være den første i den ny kolonne 22,04 23,86
eks 2: 20,82 20,76 20,7 20,72 første værdi i ny række 22,4 24,26
eks 3 22,26 22,12 22,02 22,18 første værdi i ny række 23,62 24,92
Lav en makro der sorterer tingene ud fra nogle kriteriet om hvor tæt tallene skal ligge på hinanden for at være i samme kolonne m.m.. Det kunne evt være en opgave du kunne få hjælp til i VB kategorien, jeg ved der er gode folk der.
Sub Flytdata() Dim DK As String, TilKo As String, I As Long, RW As Long DK = "A" ' data i A kolonnen TilKo = "M" ' data sættes ind i M kolonnen RW = Range(DK & "65536").End(xlUp).Row For I = 1 To RW If Cells(I, DK).Offset(1, 0) - Cells(I, DK) >= 0.5 Then ' hvis forskellen er større end 0,5 begynder flytningen Range(Cells(I, DK), Cells(RW, DK)).Cut Cells(1, TilKo) Exit For End If Next End Sub
kabbak - det virker som sædvanligt, når du hjælper. Kan sende et svar, så jeg kan give dig point. I den macro som du har hjulpet mig med mange gange, har jeg igen behov for hjælp - se evt. spørgsmål http://www.eksperten.dk/spm/665931 Håber du har lyst og ved behov kan jeg klippe dit gamle visual basic program ind !!
Sub Flytdata() Dim DK As String, TilKo As String, I As Long, RW As Long DK = "A" ' data i A kolonnen TilKo = "M" ' data sættes ind i M kolonnen RW = Range(DK & "65536").End(xlUp).Row For I = 1 To RW If Cells(I, DK).Offset(1, 0) - Cells(I, DK) >= 0.5 Then ' hvis forskellen er større end 0,5 begynder flytningen Range(Cells(I, DK), Cells(RW, DK)).Copy Cells(1, TilKo) Exit For End If Next 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.
