06. februar 2006 - 19:21Der er
9 kommentarer og 1 løsning
Formatering af tal (indsat som tekst) til tal
Hej
Jeg har en makro som indsætter såvel tekst som tal. Alle data hentes fra et andet system hvor disse kopieres fra med Ctrl. + C.
Når jeg vælger indsæt special kan jeg kun vælge mellem Unicode-tekst og Tekst. Begge formater indsætter mine data som tekst, der ikke umiddelbart kan formateres til tal.
Da der indsættes såvel tekst som tal kan jeg ikke angive at der er tale om tal ved indsættelsen. Jeg ville gerne kunne vælge funktionen indsæt special og så værdier, men det kan ikke lade sig gøre.
Jeg søger derfor en løsning der kan formatere området hvor tal er indsat således, at disse konverteres til tal.
Den er faktisk bedre, da den tager mindre ressourcer og derfor kører hurtigere i programmet. Håber du kan leve med at jeg har givet kabbak points - han var der jo som så ofte med et hurtigt svar ;-)
Jeg giver dem gerne igen, men fordi jeg valgte makroen, var at den kunne kobles til den eksisterende makro, så det blev ordnet automatisk efter overførslen.
Ok du får en ny makro som er hurtigere, den finder selv området, startende i A1
Public Sub Tal_Som_Tekst_Til_Tal() Dim Data As Variant, Ad As String, Col As Long, I As Long, X As Long Range("A1").Select Ad = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Address Col = Range(Ad).Columns(Range(Ad).Columns.Count).Column Data = Range(Selection, ActiveCell.SpecialCells(xlLastCell)) For I = 1 To UBound(Data) For X = 1 To Col If IsNumeric(Data(I, X)) And Data(I, X) <> "" Then Data(I, X) = Data(I, X) * 1 End If Next Next Range(Ad) = Data End Sub
Jeg er ligeglad med point - viste blot et alternativ - slut herfra
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.
