Jak zadat adresu IP s nulou v aplikaci Excel?
Když obdržíte list, který obsahuje některé adresy IP se dvěma číslicemi v některých segmentech, možná budete chtít zadat adresu IP s nulovými až třemi číslicemi v každém segmentu, jak je uvedeno níže. V tomto článku představuji některé triky pro rychlé vložení adresy IP v aplikaci Excel.
Pad IP adresa s nulou podle vzorce
Pad IP adresa s nulou podle definované funkce
Pad IP adresa s nulou podle vzorce
Zde je dlouhý vzorec, který vám pomůže rychle zadat IP adresu s nulou.
Vyberte prázdnou buňku, zadejte tento vzorec,
=TEXT(LEFT(A1,FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(".",A1)+1,FIND("~",SUBSTITUTE(A1,".","~",2))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",2))+1,FIND("~",SUBSTITUTE(A1,".","~",3))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",3))+1,LEN(A1)-FIND(".",A1)-1),"000")
A1 je adresa IP, kterou používáte, stiskněte vstoupit klíč, přetáhněte úchyt výplně dolů do buněk potřebných pro tento vzorec. viz screenshot:
 |
 |
 |
Pad IP adresa s nulou podle definované funkce
Pokud jste obeznámeni s kódem VBA, zde je kód, který vám také může pomoci zadat IP adresu.
1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul vytvořit nový modul. Viz screenshot:
2. V Modul skript, vložte do něj pod kód a poté kód uložte a zavřete okno VBA. Viz screenshot:
VBA: IP adresa Pad
Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
Dim xList As Variant
Dim I As Long
xList = Split(Txt, ".")
For I = LBound(xList) To UBound(xList)
xList(I) = Format(xList(I), "000")
Next
IP = Join(xList, ".")
End Function
3. Přejděte do prázdné buňky, do které umístíte vypočítaný výsledek, zadejte tento vzorec = IP (A1), stiskněte klávesu Enter a přetáhněte úchyt výplně dolů do požadovaných buněk. Viz screenshot:
 |
 |
 |
Relativní články
- Jak extrahovat řetězec z IP adresy v aplikaci Excel?
- Jak přidat stejnou e-mailovou adresu do seznamu jmen v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
