11. december 2006 - 14:44Der er
7 kommentarer og 1 løsning
Standard celle seperator
Hi E,
Vi har et apperatur som generere nogle data, som automatisk overføres til Excel. I en tidligere version af Excel blev data automatisk anbragt i celler og rækker, men efter en installation af en nyere version af Excel havner alle data for de enkelte rækker i samme celle (den første i rækken) i stedet for at blive delt ud i cellerne i en række.
De enkelte data er adskildt af komma, og der anvendes semikolon som rækkeseperator. Tilsyneladende fungerer rækkeseperatoren altså, mens celleseperationen fejler i den nye udgave.
Findes der en indstilling, hvor man kan ændre/sætte en standard celle seperator, således at rådata fra andre applikationer automatisk deles ud i celler og rækker iht. de angivne celle/række-seperatorer?
Rådata: data 1,data 2,data 3,data 4,data 5;data a,data b,data c,data d,data e
Bliver opdelt således: Række 1: data 1,data 2,data 3,data 4,data 5 Række 2: data a,data b,data c,data d,data e
Bør opdeles således (| = adskildelse mellem celler): Række 1: data 1 | data 2 | data 3 | data 4 | data 5 Række 2: data a | data b | data c | data d | data e
Maker celle og kør sub - data splittes op i nabo cellerne
Sub Del() Dim rCell As Range, t, x For t = 1 To Len(Selection) If Mid(Selection, t, 1) = "," Then x = x + 1 Next For Each rCell In Selection '(c)bak rCell(1, 2).Resize(, x + 1) = Split(rCell, ",") Next End Sub
Jeg vil teste det næste gang jeg er i nærheden af apparaturet... Spørgsmålet er, om jeg kan få den kodestump til at ekseverer, når apparatet sender rådata til Excel...
spørgmålet er ikke aktuelt mere, da jeg ikke er tilknyttet det laboratorium mere... ellers tak for indsatsen...
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.
