ExcelでIPアドレスのみを受け入れるようにセルを検証するXNUMXつの方法

Excelを使用しているときに、IPアドレス形式（xxx.xxx.xxx.xxx）のみを受け入れるように列またはセルの範囲を設定する方法を知っていますか？ この記事では、それに対処するためのいくつかの方法を提供します。

データ検証機能を使用してIPアドレスのみを受け入れるようにセルを検証します

データ検証機能を使用すると、指定したセルの有効なエントリを制限して、ExcelでのIPアドレスの入力のみを許可できます。 次のようにしてください。

1. IPアドレス形式の入力のみを許可するセルを選択し、をクリックします 且つ > データ検証。 スクリーンショットを参照してください：

2. [データ検証]ダイアログボックスで、[許可]ドロップダウンリストから[カスタム]を選択し、以下の数式を[数式]ボックスにコピーして、[OK]ボタンをクリックします。

=AND((LEN(A2)-LEN(SUBSTITUTE(A2,".","")))=3,ISNUMBER(SUBSTITUTE(A2,".","")+0))

注： 式では、A2は選択したセル範囲の最初のセルです。 必要に応じて変更してください。

今後は、これらの指定したセルにのみIPアドレス形式のコンテンツを入力できます。

一致しない形式のコンテンツが検出された場合、以下のスクリーンショットに示すように警告ボックスがポップアップ表示されます。

VBAコードのIPアドレスのみを受け入れるようにセルを検証します

以下のVBAコードを適用して、ExcelでIPアドレス形式のみを受け入れるようにセルを検証することもできます。 次のようにしてください。

1.セルを検証するワークシートを開き、シートタブを右クリックして、 コードを表示 コンテキストメニューから選択します。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをコピーします。

VBAコード：ExcelでIPアドレスのみを受け入れるようにセルを検証します

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by ExtendOffice 20180809
Dim xArrIp() As String
Dim xIntIP1, xIntIP2, xIntIP3, xIntIP4 As Integer
If Intersect(Target, Range("A2:A10")) Is Nothing Then
    Exit Sub
Else
    If Target = "" Then
        Exit Sub
    End If
    xArrIp = Split(Target.Text, ".")
    If UBound(xArrIp) <> 3 Then
        GoTo EIP
    Else
    xIntIP1 = CInt(xArrIp(0))
    xIntIP2 = CInt(xArrIp(1))
    xIntIP3 = CInt(xArrIp(2))
    xIntIP4 = CInt(xArrIp(3))
    If (xIntIP1 < 1) Or (xIntIP1 > 255) _
    Or (xIntIP2 < 1) Or (xIntIP2 > 255) _
    Or (xIntIP3 < 1) Or (xIntIP3 > 255) _
    Or (xIntIP4 < 1) Or (xIntIP4 > 255) Then
    GoTo EIP
     End If
    End If
End If
Exit Sub
EIP:
    MsgBox "Please enter correct IP address"
    Target = ""
End Sub

注： コードでは、A1：A10は、入力タイプを検証するセル範囲です。 必要に応じて範囲を変更してください。

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

今後は、これらの指定したセルにのみIPアドレス形式のコンテンツを入力できます。

一致しない形式のコンテンツが入力されると、以下のスクリーンショットに示すように警告ボックスがポップアップ表示されます。

セルを簡単に検証して、すばらしい機能を備えたIPアドレスのみを受け入れる

1.IPアドレスのみの入力を許可するセルの範囲を選択します。 クリック クツール > 入力を防ぐ > IPアドレスを検証します。 スクリーンショットを参照してください：

2.次に、ポップアップで[OK]をクリックします Kutools for Excel ダイアログ。

これ以降、指定したセル範囲に入力できるのはIPアドレス形式のデータのみです。

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

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

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

続きを読みます... 無料ダウンロード...

---

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

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード...