質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.04%

ExcelのセルにIPアドレスが入力された時のOKとする入力規則

解決済

回答 3

投稿

  • 評価
  • クリップ 3
  • VIEW 4,817

score 20

Excelの入力規則についての質問となるのですが、
Excelのあるセルに入力規則を設定し、
IPアドレスが入力された場合のみ、入力を許可するような動きを
実現したいと考えています。

動きとしては、A1セルに入力規則を指定し、
以下のような数値の場合のみ、入力OKとしたいです。
(セルに全角英字や記号などが入力された場合もNG)

[許可]
192.168.1.1
192.168.1.2

[NG]
192.168.101.
256.256.256.256

上記のようなことは、Excelの入力規則の数式などで実現は可能でしょうか?

ご教授いただければ幸いです。
よろしくお願いします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • ttyp03

    2019/01/16 16:02

    マクロを使うのはありですか?

    キャンセル

  • yutkts

    2019/01/16 16:13

    コメントありがとうございます。
    マクロを使うのもありです。
    よろしくお願いします。

    キャンセル

回答 3

checkベストアンサー

+3

入力規則の数式ではマクロは使えないようでしたので、ネットで調べたらちょうどいいのがありました。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11156148536
この中のwas****さんの回答が使えそうです。
以下、転載。

=PRODUCT(N(MID(SUBSTITUTE(SUBSTITUTE(B2,".","X",4),".",REPT(" ",100)),ROW(A$1:A$4)*100-99,100)*1<2^8),LEFT(B2))


B2のところをチェックしたいセルのアドレスにしてください。
詳しく解析はしてませんが、すごそうなのはわかる。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/01/17 10:54

    入力規則の場合、転載いただいた数式を利用することでIPチェックができました!
    解析は難しそうですが、こちらで調べてみます。
    回答いただきありがとうございました。BAとさせていただきます。

    キャンセル

  • 2019/02/09 23:46

    「1e-2」などの指数表記も数値として扱われてしまうのが微妙ですね。

    キャンセル

+2

関数ゴリゴリ書くのもわかりにくいので、標準モジュールに判定関数を書いて、その結果を条件付き書式に設定すればよいかな、とか思いますがどうでしょう?

雑いですが、正しいIP(v4)アドレスならばtrueを返す関数はこんな感じです。

Function IsIPv4Str(TestString As String)
    'とりあえず判定結果はNGとする
    IsIPv4Str = False

    '「.」で区切る
    Address = Split(TestString, ".")

    '区切った結果の配列が4でなければ終了
    If UBound(Address) <> 3 Then Exit Function

    '各要素をチェック
    For i = 0 To 3
        '1要素取り出す
        Octet = Address(i)
        '対象の要素が、数値として判別できないか、0より小さいか、255より大きければ、判定終了
        If Not (IsNumeric(Octet)) Or Val(Octet) < 0 Or 255 < Val(Octet) Then Exit Function
    Next

    'ここまでの判定が通れば判定結果をOKとする
    IsIPv4Str = True
End Function

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/01/17 08:59

    条件付き書式ではなく入力規則ですね。
    ところで入力規則でユーザー関数って使えます?

    キャンセル

  • 2019/01/17 10:01

    ご指摘ありがとうございます。入力規則でしたね。失礼しました。

    入力規則だとユーザー関数は使えない(はず…。)なので、WorkSheet_Changeイベントで同様の判定を行い、Application.Undoするとかでしょうか。
    こんなことするなら、難解でも関数駆使のほうがよさそうですね。

    キャンセル

  • 2019/01/17 10:10

    ワークのセルに判定結果を入れておいて、それを入力規則で使うって手もありますね。
    いずれにしても直接ユーザー関数が使えないのは不便ですよね。

    キャンセル

  • 2019/01/17 10:55

    入力規則で難しい場合、最悪VBAで実装も検討しておりましたので、
    いただいたコードも参考にさせていただきます。
    ご回答いただきありがとうございました。

    キャンセル

0

できそうですが、面倒なので途中で挫折しました。

  1. LEFTやRIGHTとFINDを駆使して、.で区切られた要素を4つみつける(これが大変だと思う)
  2. 上記のそれぞれをVALUEにかけて数値化して、0以上、255以下であることをANDで判定
  3. 4セグメントを全部ANDにかける

上記で組んだ関数を入力規則のユーザ設定に入れる

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/01/16 16:28

    LEFTやRIGHTやFINDについて調べて見たいと思います。
    コメントいただきありがとうございました。

    キャンセル

  • 2019/01/16 16:31 編集

    =AND(VALUE(LEFT(B2, FIND(".",B2) - 1)) > -1, VALUE(LEFT(B2, FIND(".",B2) - 1)) < 256)
    いちおう最初のセグメントはこれで取れます。
    =AND(VALUE(MID(B2,FIND(".",B2)+1,(FIND(".",B2,FIND(".",B2)+1)) - 1 -(FIND(".",B2)))) > -1, VALUE(MID(B2,FIND(".",B2)+1,(FIND(".",B2,FIND(".",B2)+1)) - 1 -(FIND(".",B2)))) < 256)
    次のセグメントはこんな感じ
    =AND(VALUE(LEFT(MID(B2, FIND(".", B2) + 1, LEN(B2) - FIND(".", B2)), FIND(".",MID(B2, FIND(".", B2) + 1, LEN(B2) - FIND(".", B2))) - 1)) > -1, VALUE(LEFT(MID(B2, FIND(".", B2) + 1, LEN(B2) - FIND(".", B2)), FIND(".",MID(B2, FIND(".", B2) + 1, LEN(B2) - FIND(".", B2))) - 1)) < 256)
    第二セグメントはこうすべきかな

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.04%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る