31. maj 2006 - 08:16Der er
5 kommentarer og 1 løsning
Udskifte bogstav i serienummer med tal
Hej Jeg har et serienummer der er opbygget som:
0-SXXXXXXYZZZZZZZ
Hvor X'er & Z'er er tal og S og Y er bogstaver
Jeg søger en funktion der i VBA kan fjerne : "0-S"
Udskifte Y med de tilhørende tal i forhold til bogstav.
A=0, B=1, ...., J=9 (bliver aldrig højere end J)
Serienummeret hentes fra en celle og indsættes via makroen flere steder i sin originale form, men et enkelt sted har jeg behov for at ændre til dette nye format.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sub udskift() myarray = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J") w = Range("a1") For a = 0 To 9 If Mid(w, 10, 1) = myarray(a) Then Range("b1") = Mid(Replace(w, myarray(a), a + 1), 4, Len(w)) End If Next a 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.
