文字列にカタカナがあるかどうかの関数

質問

A列に入力されている文字列の中にカタカナ（半角,全角含む）が含まれている場合Errorを返す関数ってありますか?
文字列は何文字というのは決まっていません。

回答No.4

sakenomo

たぶんこれで大丈夫だと思いますので、試してみてください。

Visual Vasic Editorを起動して標準モジュールに貼り付ければ、ユーザー定義関数として使えます。

Function Katakana(文字列 As Range) As String
　Dim myStr As String, n As Long, _
　　　　myLen As Long, myRange As Range

　For Each myRange In 文字列
　　　myStr = myRange.Value
　　　If myStr <> "" Then
　　　　　myLen = Len(myStr)
　　　　　Do
　　　　　　　n = n + 1
　　　　　　　Select Case Asc(Mid(myStr, n, 1))
　　　　　　　Case 166 To 223, -31936 To -31850
　　　　　　　　　Katakana = "Error"
　　　　　　　　　Exit Function
　　　　　　　End Select
　　　　　Loop Until n = myLen
　　　　　n = 0
　　　End If
　Next myRange
　Katakana = ""
End Function

お礼

回答ありがとうございます。
実はStrConvでユーザー定義関数を作成してはみたんですが、ユーザー側がVBがわからない為、関数で出来ないかと思い今回質問してみました。
関数では限界がありますね。どうもありがとうございました。

回答No.3

nihonjinn

すいません途中でした。
=IF(MIN((FIND({"ア","カ","サ","タ","ナ"},JIS(A1)&"アカサタナ",1)))>LEN(JIS(A1)),FALSE(),TRUE())
長いので省略しましたが、ア～ンまですべてのカタカナを設定する必要があります。
FIND関数でカタカナの位置を見つけ、MIN関数で一番手前の位置を見つけます。その位置が元のA1の文字内であればカタカナが含まれていることになります。
JIS関数で全角にそろえられます。

回答No.2

nihonjinn

=IF(MIN((FIND({"ア","カ","サ","タ","ナ"},JIS(A1)&"アカサタナ",1)))>LEN(JIS(A1)),FALSE(),TRUE())
長いので省略しましたが、ア～ンまで設定してやるとすべての

回答No.1

noname#6493

言語は何ですか？

補足

Exceldの関数ですが。なるべくVBAは使用したくないので