Jak uzupełnić adres IP zerem w programie Excel?
Po otrzymaniu arkusza zawierającego adresy IP z dwiema cyframi w niektórych segmentach, możesz chcieć uzupełnić adres IP od zera do trzech cyfr w każdym segmencie, jak pokazano na zrzucie ekranu. W tym artykule przedstawię kilka sztuczek, aby szybko uzupełnić adres IP w programie Excel.
Pad adres IP z zerami według wzoru
Adres IP tabliczki zerowej według zdefiniowanej funkcji
Pad adres IP z zerami według wzoru
Oto długa formuła, która może pomóc w szybkim uzupełnieniu adresu IP o zero.
Wybierz pustą komórkę, wpisz tę formułę,
=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 to adres IP, którego używasz, naciśnij Wchodzę klawisz, przeciągnij uchwyt wypełniania w dół do komórek potrzebnych tej formuły. zobacz zrzut ekranu:
Adres IP tabliczki zerowej według zdefiniowanej funkcji
Jeśli znasz kod VBA, oto kod, który może również pomóc w wpisaniu adresu IP.
1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł aby utworzyć nowy moduł. Zobacz zrzut ekranu:
2. w Moduł skrypt, wklej do niego poniższy kod, a następnie zapisz kod i zamknij okno VBA. Zobacz zrzut ekranu:
VBA: adres IP padu
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. Przejdź do pustej komórki, w której umieścisz obliczony wynik, wpisz tę formułę = IP (A1), naciśnij klawisz Enter i przeciągnij uchwyt wypełniania w dół do potrzebnych komórek. Zobacz zrzut ekranu:
Artykuły względne
- Jak wyodrębnić ciąg z adresu IP w programie Excel?
- Jak dodać ten sam adres e-mail do listy nazwisk w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!