Excelのphonetic関数で、ふりがなデータがない場合に漢字ではなく非表示（またはスペース）としたい

Question

Excelでphonetic関数を使用する際、元の漢字をペーストした場合等、ふりがなデータがない場合は、
ふりがなの代わりに元の漢字が表示されます。

しかし、ふりがなデータがない場合に漢字ではなく非表示（またはスペース表示）としたいのですが、
そのような方法はあるでしょうか？

ちなみに、phonetic関数ではなく、セル内部の「ふりがなの表示」を行うと、
ふりがなデータがない場合は、ふりがな非表示となります。
これと同じような挙動が希望です。

【追記】
セル内の文字の一部のみ、ふりがなデータがない場合にも対応したいです。
（例）
山田太郎の山田にしかふりがなデータがない場合
ふりがなの表示→「やまだ」
phonetic関数→「やまだ太郎」　←これを「やまだ」にしたい

Answer 1

ワークシートの関数を用いた数式でもできます。が、難解です。
ので、ppyp03さんのような、VBAをお勧めします。

{=TEXTJOIN("",FALSE,IF(MID((TEXT(BITAND(TEXTJOIN("",TRUE,INT(CODE(MID(PHONETIC(B2),ROW(INDIRECT("1:"&LEN(PHONETIC(B2)))),1))>=9505)),TEXTJOIN("",TRUE,INT(CODE(MID(PHONETIC(B2),ROW(INDIRECT("1:"&LEN(PHONETIC(B2)))),1))<=9590))),REPT("0",LEN(PHONETIC(B2))))),ROW(INDIRECT("1:"&LEN(TEXT(BITAND(TEXTJOIN("",TRUE,INT(CODE(MID(PHONETIC(B2),ROW(INDIRECT("1:"&LEN(PHONETIC(B2)))),1))>=9505)),TEXTJOIN("",TRUE,INT(CODE(MID(PHONETIC(B2),ROW(INDIRECT("1:"&LEN(PHONETIC(B2)))),1))<=9590))),REPT("0",LEN(PHONETIC(B2))))))),1)="1",MID(PHONETIC(B2),ROW(INDIRECT("1:"&LEN(PHONETIC(B2)))),1),"　"))}

また、単純にフリガナがあるかないかの判定なら、もっと、数式は少なくて済みますが・・・

Answer 2

IF文で処理するしかないですね。
A1を対象とする場合。

=IF(PHONETIC(A1)=A1,"",PHONETIC(A1))

Comments

[lg_rino]

ありがとうございます。言葉足らずだったのですが、セル内の文字の一部のみふりがなデータがない場合にも対応したいのです。
例えば、
A1に「山田太郎」と入っており、ふりがなデータが山田にしかない場合、
=PHONETIC(A1)
は、「やまだ太郎」となってしまいますが、これを
「やまだ」のみにしたいのです。

[ttyp03]

それは難しいような。
少し考えてはみます。

[ttyp03]

無い知恵絞ってみましたが、ワークシート関数だけでは厳しいですね。
ユーザー関数を作るのが手っ取り早いかと。
例えばこんな関数を用意して、
Function GetPhonetic(r As Range) As String
Dim p As String
Dim l As Long
Dim i As Long
p = WorksheetFunction.Phonetic(r)
l = Len(r.Value)
For i = 1 To l
p = Replace(p, Mid(r.Value, i, 1), "")
Next
GetPhonetic = p
End Function
こうする
=GetPhonetic(A1)