おしえて

エクセル2016 条件付き書式で全角カタカナ以外が含まれている場合に色をつける

締切済

質問者：ynhskst
質問日時：2020/01/22 12:39
回答数：4件

A列（行数はその都度変わります）に人の名前のふりがなが全角カタカナで入っています。
条件付き書式で全角カタカナ以外が含まれている場合に色をつける方法はありませんでしょうか。
よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： rukaandkaito
回答日時：2020/01/22 17:22

VBAなら簡単だと思いますのでとりあえず作ってみました

--------------------------------------------------------------------------------
Public Sub psubKanaChk()
　Dim intR As Integer
　Dim intC As Integer
　Dim intS As Integer
　Dim strB As String
　intR = 2
　With Sheet1
　　Do Until .Cells(intR, 2).Value = ""
　　　For intS = 1 To Len(.Cells(intR, 2).Value)
　　　　strB = Mid(.Cells(intR, 2).Value, intS, 1)
　　　　If Asc(strB) >= &H8340 And _
　　　　 Asc(strB) <= &H8396 Then
　　　　Else
　　　　　.Cells(intR, 2).Interior.Color = RGB(255, 240, 240)
　　　　　Exit For
　　　　End If
　　　Next intS
　　　intR = intR + 1
　　Loop
　End With
End Sub
--------------------------------------------------------------------------------
ワークシート１のＢ２セルから下方にデータ末端までを判定し、対象の場合に背景色を変えるプログラムです、必要に応じて修正下さい

条件付き書式をご希望ということなので恐らくデータの変更があるという想定ですと、changeイベントにでも当該関数をcallしてもらえれば対応可能かと思います

参考までにお試しください

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。試してみます。

通報する

お礼日時：2020/01/24 14:47

No.3

回答者： chonami
回答日時：2020/01/22 16:11

>全角カタカナ以外

これはどのようなデータを想定されているのですか？
フリガナは手打ちするのですか？

- 0
- 件

通報する

この回答へのお礼

いいえ。自分で手打ちするのではなく、データは人からもらいます。

通報する

お礼日時：2020/01/24 14:49

No.2

回答者：銀鱗
回答日時：2020/01/22 13:24

ASC関数の方だと思う。

全角カタカナを半角カタカナにはできるけど、
全角ひらがなを半角ひらがなにはできない。（そもそも半角ひらがなと言うものが無い）
半角にできなければそのままの値が返るので、文字列のバイト数を調べれば良い。

そんなわけでASC関数とLENB関数を組み合わせで条件を作ってみましょう。

「佐藤」さんは ”さとう” または ”サトウ” ですね。
ASC関数を使わずにLENB関数で文字数を数えるとどちらも
「6」「6」
ですが、
ASC関数を使うと、”さとう” 、 ”ｻﾄｳ” になり、
これをLENB関数で文字数を数えると
「6」と「3」になります。
ASC関数を使わないときと使ったときで、LENB関数が返す値が同じなら「ひらがな」と判断して良いと思います。

ただ、読み仮名すべてに濁点を含む文字の場合、思うような結果を得られないことがあります。
「馬場」さんの読みは、”ババ” ですが、半角にすると ”ﾊﾞﾊﾞ” となります。
元の文字列 "ババ" をLENB関数で数えても、
ASC関数で ”ﾊﾞﾊﾞ” とし、LENB関数で数えても、
同じ「4」なので、ひらがなで入力されていると判断されてしまいます。

こんな例外があるということですが、まあ、何とかなるんじゃないですか。