30. december 2010 - 09:20Der er
18 kommentarer og 1 løsning
Sammenkædning med komma
Hej
Jeg har nogle kolonner som skal sammenkædes adskilt med et komma. Dette kan jeg godt lave, men hvis en af kolonner indeholder et tomt felt fremkommer kommaet alligevel, hvordan undgår jeg dette?
F.eks. hvis jeg i kolonne C2, C3, C4 har hhv. CS,DD,EF stående og sammenkæder disse kommer det rigtigt nok ud, men hvis jeg i kolonne D2, D3, og D4 kun har noget tekst stående i D2 og D4 mens D# er toms, så kommer der til at stå CS,,EF, hvordan undgår jeg dobbeltkommaet?
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
En makro kunne godt være en mulighed. Og jo i princippet kan der godt være flere end 2 kommaer efter hinanden, men de kan også komme ind i mellem det hele.
Jeg tror måske løsningen er en hvis og erstat i nogle andre kolonner, og derfra så lave sammenkædningen. Men andre foreslag modtages med glæde.
Jeg kan ikke rigtig få det til at virke. Jeg er gået ind i VB, og sat ovenstående funktion ind under ark 3 (hvor formlen skal laves), herefter har jeg prøvet formlen =tst(B2:W4) af i arket, men det virker ikke, hvad mon jeg gør forkert. Tror du, at jeg sætter funktionen forkert ind i VB?
Jeg fået makroen til at virke, hvis jeg tager B2:BW2. Men jeg skal bruge en forskellig rækkefølge af kolonnerne, så jeg kan ikke bruge f.eks. B2:BW2, for jeg skal f.eks. bruge C2, D2, R2 og E2 - Kan du også hjælpe mig med det?
Prøv denne som du evt selv kan udvide hvis du har behov for flere
Function test(Optional x1, Optional x2, Optional x3, Optional x4, Optional x5) If IsMissing(x1) = False Then x = x & x1 & "," If IsMissing(x2) = False Then x = x & x2 & "," If IsMissing(x3) = False Then x = x & x3 & "," If IsMissing(x4) = False Then x = x & x4 & "," If IsMissing(x5) = False Then x = x & x5 & ","
Function test(Optional x1, Optional x2, Optional x3, Optional x4, Optional x5) If IsMissing(x1) = False And x1 <> "" Then x = x & x1 & "," If IsMissing(x2) = False And x2 <> "" Then x = x & x2 & "," If IsMissing(x3) = False And x3 <> "" Then x = x & x3 & "," If IsMissing(x4) = False And x4 <> "" Then x = x & x4 & "," If IsMissing(x5) = False And x5 <> "" Then x = x & x5 & ","
Den virkede desværre ikke helt. Når der er blanke felter, kommer der kommaer frem. F.eks. kolonne a2 og b2 er blanke og i e2 står der SG - Resultatet bliver ,,SG.
Function test(Optional x1, Optional x2, Optional x3, Optional x4, Optional x5) If IsMissing(x1) = False Then If x1 <> "" Then x = x & x1 & "," If IsMissing(x2) = False Then If x2 <> "" Then x = x & x2 & "," If IsMissing(x3) = False Then If x3 <> "" Then x = x & x3 & "," If IsMissing(x4) = False Then If x4 <> "" Then x = x & x4 & "," If IsMissing(x5) = False Then If x5 <> "" Then x = x & x5 & ","
Den fungerer fint nu. Det eneste spørgsmål jeg har er, hvis nu alle kolonnerne er blanke, så kommer den ud med #værdi, kan jeg sætte noget ind, så den blot bliver blank?
Nu virker den helt efter hensigten. Tak for din store indsats og godt nytår.
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.
Ny bruger
Nybegynder
Opret
Preview
