16. september 2005 - 10:12Der er
6 kommentarer og 1 løsning
Splitte tekst plus tælle karakterer
Jeg har i Excel brug for at formattere en del af en celle som en skrifttype og en anden som en anden skrifttype. Det klarer jeg med koden her: '******************************************* With xlsheet.Cells(j, i + 2).Characters(Start:=1, Length:=9).Font .Name = "Code 128AB" .FontStyle = "Fed" .Size = 36 End With With xlsheet.Cells(j, i + 2).Characters(Start:=10, Length:=5).Font .Name = "Verdana" .FontStyle = "Fed" .Size = 10 End With xlsheet.Rows(RækkeNummer).RowHeight = 45 '******************************************* (koden afvikles i Access)
Problemet er nu bare at antallet af karakterer ikke er konstant og det havde været rart med et variable i stedet for.
Eksempel på værdier i cellen: {RF1487ä~ RF1487 {RD585m~ RD585
Gældende for alle mulige værdier er, at de er adskilt i en venstre og højre sektion, separeret af et mellemrum.
Værdien i cellen kommer selvfølgelig fra en variabel fra Access Hvordan finder jeg ud af hvor mange tegn der er til venstre hhv. til højre for mellemrummet?
InStr(Værdi, " ") giver dig positionen for det første mellemrum fra venstre side i Værdi. IStrOmv(Værdi, " ") giver dig positionen for det første mellemrum fra højre side i Værdi.
Left(Værdi, Instr(Værdi, " ") -1) Giver dig alt til venstre for mellemrummet. Mid(Værdi, Instr(Værdi, " ") + 1) Giver dig alt til Højre for mellemrummet.
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.