メインコンテンツへスキップ

ExcelでIPアドレスをゼロで埋める方法は?

一部のセグメントにXNUMX桁のIPアドレスが含まれているシートを受け取った場合、以下のスクリーンショットに示すように、すべてのセグメントにXNUMX〜XNUMX桁のIPアドレスを埋め込むことができます。 この記事では、ExcelでIPアドレスをすばやく埋めるためのいくつかのトリックを紹介します。
ゼロのドキュメントパッドIP1

式でIPアドレスをゼロで埋める

定義された関数によってIPアドレスをゼロで埋める


式でIPアドレスをゼロで埋める

これは、IPアドレスをすばやくゼロで埋めるのに役立つ長い式です。

空白のセルを選択し、この数式を入力して、

=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は使用するIPアドレスです。を押します。 入力します キーを押しながら、塗りつぶしハンドルをこの数式が必要なセルまでドラッグします。 スクリーンショットを参照してください:

ゼロのドキュメントパッドIP2
下向き矢印
ゼロのドキュメントパッドIP3

定義された関数によってIPアドレスをゼロで埋める

VBAコードに精通している場合は、IPアドレスの埋め込みにも役立つコードを次に示します。

1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール 新しいモジュールを作成します。 スクリーンショットを参照してください:
ゼロのドキュメントパッドIP4

2。 の中に モジュール スクリプトを作成し、以下のコードを貼り付けてから、コードを保存してVBAウィンドウを閉じます。 スクリーンショットを参照してください:

VBA:パッドIPアドレス

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

ゼロのドキュメントパッドIP5

3.計算結果を配置する空白のセルに移動し、この数式を入力します = IP(A1)、Enterキーを押し、塗りつぶしハンドルを必要なセルまでドラッグします。 スクリーンショットを参照してください:

ゼロのドキュメントパッドIP6 右矢印を撃った ゼロのドキュメントパッドIP7


関連記事

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The Excel equation above has a flaw that will yield incorrect padded IPv4s in some circumstances. Use this instead:
=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("~",SUBSTITUTE(A1,".","~",2))),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",3))+1,LEN(A1)-FIND(".",A1)-1),"000")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations