Skip i'r prif gynnwys

Sut i ddidoli cyfeiriad IP yn gyflym o isel i uchel yn Excel?

Yn gyffredinol, rydym yn defnyddio'r swyddogaeth Trefnu i ddidoli llinyn yn Excel. Ond os oes angen didoli rhai cyfeiriadau IP, gall y gorchymyn didoli fod yn anghywir trwy ddefnyddio'r swyddogaeth Trefnu yn uniongyrchol fel isod y llun a ddangosir. Nawr mae gen i rai ffyrdd i ddidoli'r cyfeiriadau IP yn gyflym ac yn gywir yn Excel.

Trefnu Anghywir yn ôl swyddogaeth Trefnu Trefnu Cywir
didoli ip 1 didoli ip 2

Trefnu cyfeiriad IP yn ôl fformiwla

Trefnu cyfeiriad IP yn ôl VBA

Trefnu cyfeiriad IP yn ôl Testun i Golofnau


Trefnu cyfeiriad IP yn ôl fformiwla

Defnyddiwch fformiwla i lenwi'r cyfeiriad IP yna didoli.

1. Dewiswch gell wrth ymyl y cyfeiriad IP a theipiwch y fformiwla hon

=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")

wasg Rhowch allwedd, a llusgo handlen llenwi dros gelloedd i gymhwyso'r fformiwla hon.
didoli ip 3

2. Copïwch ganlyniadau'r fformiwla a'u pastio fel gwerth yn y golofn nesaf. Gweler y screenshot:

didoli ip 4
didoli ip 5

3. cadwch y gwerth pastio wedi'i ddewis, a chlicio Dyddiad > Trefnu A i Z..
didoli ip 6

4. Yn y Trefnu Waring deialog, cadwch Ehangu'r dewis gwirio.
didoli ip 7

5. cliciwch Trefnu yn. Nawr mae'r cyfeiriadau IP wedi'u didoli o isel i uchel.
didoli ip 2

Gallwch chi gael gwared ar y colofnau cynorthwywyr.


Trefnu cyfeiriad IP yn ôl VBA

Dyma god VBA a all hefyd eich helpu chi.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, copïo a gludo'r cod i'r sgript wag.

VBA: Llenwch gyfeiriad IP

Sub FormatIP()
'UpdatbyExtendoffice20171215
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim xArr() As String
    On Error Resume Next
    Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    With xReg
        .Global = True
        .Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
        For Each xCell In xRg
            Set xMatches = .Execute(xCell.Value)
            If xMatches.Count = 0 Then GoTo xBreak
            For Each xMatch In xMatches
                xArr = Split(xMatch, ".")
                For I = 0 To UBound(xArr)
                    xArr(I) = Right("000" & xArr(I), 3)
                    If I <> UBound(xArr) Then
                        xArr(I) = xArr(I) & "."
                    End If
                Next
            Next
            xCell.Value = Join(xArr, "")
xBreak:
        Next
    End With
End Sub

didoli ip 8

3. Yna cliciwch offer > Cyfeirnod, a gwirio Mynegiadau Rheolaidd Microsoft VBScript 5.5 yn y dialog popping.

didoli ip 9
didoli ip 10

4. Cliciwch OK ac yn y wasg F5 allwedd, mae deialog yn galw allan i'ch atgoffa i ddewis ystod i weithio.
didoli ip 11

5. Cliciwch OK. Yna mae'r cyfeiriadau IP wedi'u llenwi â sero.

6. Dewiswch y cyfeiriadau IP a chlicio Dyddiad > Trefnu A i Z. i'w didoli.


Trefnu cyfeiriad IP yn ôl Testun i Golofnau

A dweud y gwir, gall y nodwedd Testun i Golofnau ffafrio chi yn Excel hefyd.

1. Dewiswch y celloedd rydych chi'n eu defnyddio, a chlicio Dyddiad > Testun i Colofnau. Gweler y screenshot:
didoli ip 12

2. Yn y Trosi Deunydd Testun i Colofnau deialog, gwnewch fel isod:

Gwirio Wedi'i ddosbarthu, a chliciwch Digwyddiadau;

Gwirio Arall a math . i mewn i'r blwch testun, a chlicio Digwyddiadau;

Dewiswch gell wrth ymyl y cyfeiriad IP i osod y canlyniad. Cliciwch Gorffen.

didoli ip 13
didoli ip 14
didoli ip 15

3. Dewiswch yr holl gelloedd sy'n cynnwys y cyfeiriadau IP a'r celloedd hollt, a chlicio Dyddiad > Trefnu yn.
didoli ip 16

4. Yn y Trefnu yn deialog, clicio Ychwanegu lefel i ddidoli data o golofn B i E (y celloedd hollt). Gweler y screenshot:
didoli ip 17

5. Cliciwch OK. Nawr mae'r colofnau wedi'u didoli.
didoli ip 18


Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Traducido al español:
=TEXTO(IZQUIERDA(A1,ENCONTRAR(".",A1,1)-1),"000") & "." & TEXTO(EXTRAE(A1,ENCONTRAR( ".",A1,1)+1,ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)-ENCONTRAR(".",A1,1)-1),"000") & "." & TEXTO(EXTRAE(A1,ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)+1,ENCONTRAR(".",A1, ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)+1)-ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)-1), "000") & "." & TEXTO(DERECHA(A1,LARGO(A1)-ENCONTRAR(".",A1,ENCONTRAR(".",A1,ENCONTRAR( ".",A1,1)+1)+1)),"000")
This comment was minimized by the moderator on the site
Thanks for your help on translating the formula.
This comment was minimized by the moderator on the site
This is great! Very much appreciated. It would be nice to add to the VB code to reverse (put back) the IP's in the original format (without the extra leading 0's) after having sorted them. :) I would be very interested in that where you can run this script, sort results, then revert back to original format.
This comment was minimized by the moderator on the site
thank you, very useful !
This comment was minimized by the moderator on the site
la formule traduite en Francais :
=TEXTE(GAUCHE(I6;TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE( ".";I6;1)+1;TROUVE(".";I6;TROUVE(".";I6;1)+1)-TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE(".";I6;TROUVE(".";I6;1)+1)+1;TROUVE(".";I6; TROUVE(".";I6;TROUVE(".";I6;1)+1)+1)-TROUVE(".";I6;TROUVE(".";I6;1)+1)-1); "000") & "." & TEXTE(DROITE(I6;NBCAR(I6)-TROUVE(".";I6;TROUVE(".";I6;TROUVE( ".";I6;1)+1)+1));"000")
This comment was minimized by the moderator on the site
Merci pour la traduction !
This comment was minimized by the moderator on the site
Why does the formula not work for the last octet? It adds zeros to the 3rd octet but not the last? So frustrating.
This comment was minimized by the moderator on the site
I have tested the formula before I post it, it can work for the last octer. Have you checked the formula you pasted is correct?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations