エクセル　半角英数6文字以上　8文字の入力制限

Question

エクセルのあるセル内に入力させた文字のチェックにあたり
で半角英数（0,1,2,3,4,5,6,7,8,9)と(a,b,c,d,e,f,g,h,i,j,k,l,n,m,o,p,q,r,s,t,u,v,w,x,y,z)
(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,)
の組み合わせによる6文字以上8文字以内、さらに数字のみの
組み合わせを禁止したチェックを行ないたいのです。
現状
LENB関数で6未満　LENB関数で9以上をエラー
ISNUMBER関数でTRUEの場合エラーとしているのですが
半角カタカナや記号に対してチェックをかける関数が
分かりません。
入力されてくるセルに対するチェックの関数は
半角カタカナチェックの関数式
記号チェックの関数式と別に分けていただいても構いませんので
アドバイスいただけましたら幸いです。

KenKen_SP · Accepted Answer

> 今回はVBAを使わないでチェックを行なう方法を考えていたものですから...

了解です。では、関数でやってみます。

・テキストか調べる
　=IF(ISTEXT(A1),"文字列です","文字列以外です")

・全角文字があるか調べる
　=IF(LEN(A1)=LENB(ASC(A1)),"全角なし","全角あり")

以上２つを連結させます。

　=IF(AND(ISTEXT(A1),LEN(A1)=LENB(ASC(A1))),"OK","NG")

これで、「全角文字が含まれない文字列か？」を判定できます。


・記号や数字があるか調べる
　=IF(ISERROR(FIND({"+","-",";"},A1)),"記号なし","記号あり")

　FIND 関数の第 1 引数に { } で判定させるリストを渡します。
　上記例だと記号 + - ; だけです。したがって、要は禁止文字をリスト化
　すれば良いのですが、半角カナを除いても、

　=ISERROR(FIND({0,1,2,3,4,5,6,7,8,9,"!","""","#","$","%","&","'","(",")","-","=","^","~","\","|","@","`","[","{",";","+",":","*","]","<",",",">",".","/","?","_"},A1))

　で数字や記号があるかをやっと調べられます。半角カナも含めるなら、
　リストはさらに増えますね、、、

　というか、面倒なので半角カナ対応のためのリスト追加はご自分で
　お願いします。

　これらを組あわせれば、ご希望の入力チェックは可能だと思いますが、
　確認はしてません。

私には関数による解は、こんな方法しか思いつきません。そもそも、関数は 
ループ処理ができないし、Excel 既存の関数には、「配列内の文字を含む」
を調べるものがないのですから、こんな感じで複雑を極める数式になります。

VBA がなぜダメなのか良くわかりませんが、この数式のメンテナンスは
容易ではないと思いますよ。。。むしろ、VBA の方がシンプルです。

頑張って下さい。

私は関数が苦手なので、もっと良い回答があるかもしれません。
すみません、あまりお力になれず。

nicotinism · Answer

No1さんのをお借りして
ベタな方法ですが
標準モジュールにこんな風では？
A1にチェックしたいのがあるとしてB1に =pwdchk(A1)

Function PWDchk(ChkString As Variant) As String
'数値0～9はCODE48～57
'A～ZはCODE65～90
'a～ｚはCODE97～122
Dim i As Integer

If Len(ChkString) < 6 Or Len(ChkString) > 8 Then
　　PWDchk = "文字数違反。"
End If

If IsNumeric(ChkString) Then
　　PWDchk = PWDchk & "数字だけじゃ却下。"
End If

For i = 1 To Len(ChkString)
　　Select Case Asc(Mid(ChkString, i, 1))
　　　　Case 48 To 57, 65 To 90, 97 To 122
　　　　
　　　　Case Else
　　　　　　PWDchk = PWDchk & "文字種違反。"
　　　　　　Exit For
　　End Select
Next

End Function

KenKen_SP · Answer

こんにちは。KenKen_SP です。

VBA でユーザー定義関数を作った方が早いと思いますが、、ダメですかね？
ご参考までに。

1.　VBE で標準モジュールを挿入し、下部のソースコードをコピペ
2.　VBE を閉じ、ワークシート上で次の数式を入力

　　=DATACHECK(A1,"^[0-9A-z]{6,8}$")

これで、A1 セルについて判定できます。第 2 引数の”パターン”は正規表現
で渡します。入力チェックのパターンは柔軟に対応できますよ。例えば、

半角アルファベットのみ　→　"^[A-z]{1,}$"
半角数字のみ　→　"^[0-9]{1,}$"
書式 ID-000000　→　"^ID-[0-9]{6}$"

とか。

正規表現をご存知ない場合は、下記 URL が参考になります。わかり易いです。
私はちんぷんかんぷんだった（今もですが）ので、ここで勉強しました。
http://www.mnet.ne.jp/~nakama/

以下はソースコードです。

' 正規表現でわたされたパターンと一致すれば TRUE を返す
Function DATACHECK( _
　　ByRef データ As Variant, _
　　ByRef パターン As Variant) As Boolean

　　Dim Reg As Object
　　Set Reg = CreateObject("VBScript.RegExp")
　　With Reg
　　　　.Pattern = パターン
　　　　.IgnoreCase = False
　　　　.Global = True
　　　　DATACHECK = .Test(データ)
　　End With
　　Set Reg = Nothing

End Function

merlionXX · Answer

きっとほかにいい方法があるのでしょうが・・・・。

文字コードでチェックしたらいかがでしょうか？
数値0～9はCODE48～57
A～ZはCODE65～90
a～ｚはCODE97～122
CODEは　=CODEで求められます。（一個ずつ調べるのは大変そうですが・・・）

エクセル 半角英数6文字以上 8文字の入力制限

> 今回はVBAを使わないでチェックを行なう方法を考えていたものですから...

No1さんのをお借りして

こんにちは。

きっとほかにいい方法があるのでしょうが・・・・。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル　半角英数6文字以上　8文字の入力制限