Avatar billede mile Juniormester
14. november 2001 - 10:42 Der er 14 kommentarer og
3 løsninger

Fjern nul efter punktum

Altså mig og vba - Kan man lave en kode der gennemser et regneark celle for celle og fjerner nuller der måtte være efter et punktum ?

Data er ip-adresser der eksempelvis er angivet som
10.013.243.001

Data skal være

10.13.243.1
Avatar billede askims Nybegynder
14. november 2001 - 10:48 #1
Du kan søge efter \".00\" og erstatte med \".\", derefter kan du søge efter \".0\" og erstatte med \".\"

Helt uden brug af VBA, men det kan også klares med VBA, men det vil lade andre om.

ASKIMS
Avatar billede Slettet bruger
14. november 2001 - 10:51 #2
Ip-adresserne bør stå i et tekstfelt og makroen ser ud som følger:

Selection.Replace What:=\".00\", Replacement:=\".\", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=\".0\", Replacement:=\".\", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

\\\\AMH
Avatar billede Slettet bruger
14. november 2001 - 10:56 #3
Obs du skal state med at angive hvilken kolonne erstatninger skal ske i, f.eks:

Columns(\"A:A\").Select
Avatar billede mile Juniormester
14. november 2001 - 11:16 #4
Columns.select - hvordan angiver jeg flere, der ikke ligger ved siden af hindanden ?

Eks.: B:B og E:E osv. ?
Avatar billede Slettet bruger
14. november 2001 - 11:20 #5
De skal adskilles med : således
Columns(\"A:C\").Select
\\\\AMH
Avatar billede askims Nybegynder
14. november 2001 - 11:20 #6
\"F:F,H:H\"
Avatar billede mile Juniormester
14. november 2001 - 11:21 #7
Tager den så ikke både A, B og C ?
Avatar billede mile Juniormester
14. november 2001 - 11:23 #8
Mhmmm - Jeg får fejl 13 \"Type mismatch\" med denne...
Avatar billede askims Nybegynder
14. november 2001 - 11:26 #9
    Range(\"F:F,H:H\").Select
Avatar billede Slettet bruger
14. november 2001 - 11:27 #10
Jo, men så kan du bruge en disposition, hvor du vælger lige præcis de kolonner som du har brug for
Avatar billede Slettet bruger
14. november 2001 - 11:28 #11
askims forslag et helt korrekt, og nemmere end en disposition
Avatar billede mile Juniormester
14. november 2001 - 11:30 #12
Yep nu virker selectiondelen. Nu får jeg bare fejl på det andet. Jeg er bestemt meget dårlig til det her - ØV-.
Avatar billede mile Juniormester
14. november 2001 - 11:31 #13
Runtime error 1004 - application defined or object defined error ved denne linie:

Selection.Replace What:=\".00\", Replacement:=\".\", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
Avatar billede Slettet bruger
14. november 2001 - 11:34 #14
Det kan være pga. din version - jeg har XP (2002). Du kan selv optage en ny makro, og skrive linien med Range ... ind til sidst.
Det er nok den bedste løsning.
Avatar billede janvogt Praktikant
14. november 2001 - 11:36 #15
En færdig makro kunne se sådan ud:

Sub Macro1()
    Range(\"A:A,C:C,D:D\").Select
    Selection.Replace What:=\".00\", Replacement:=\".0\"
    Selection.Replace What:=\".0\", Replacement:=\".\"
    Range(\"A1\").Select
End Sub
Avatar billede mile Juniormester
14. november 2001 - 11:36 #16
Nå - Jeg skal sgu alligevel have fyret en Xp på min pc, det gør jeg lige først, så må jeg rode videre med det her bagefter. Foreløbigt tak for hjælpen. Jeg vil se om jeg kan få det til at hænge sammen, trods mine dårlige kode evner - godt jeg har jer. Jeg vender lige tilbage...
Avatar billede mile Juniormester
14. november 2001 - 12:59 #17
Jeg fik sgu ikke nogen af dem til at virke. Men jeg er altså også dum til det her. Jeg tror også at det er et problem at punktummerne ikke er en del af dataene, men derimod ren formattering. Nå - men min bruger fandt selv på at kopiere skidtet over i Word og lave en søg/erstat på gammeldags maner, og det er selvom det var ham selv der bad om en kode til det -- Nå men sådan er der jo så meget.... I deler....
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester