GenderEstimate.bas �M� �U 0�� �U Public Function GenderEstimate(ByVal strMK As String, Optional strMF As String = "") As String GenderEstimate = "" strMK = Replace(Replace(Replace(strMK, " ", ""), " ", ""), "「", "") strMF = Replace(Replace(StrConv(strMF, vbHiragana), " ", ""), " ", "") 'デバッグ用。こいつをブレークポイントに持ってきて挙動を確認する 'If strMK Like "理世" Then ' Debug.Print strMK 'End If Select Case True 'ひらがなが2文字以
![VBAマクロ向け関数。GenderEstimate。漢字の名前とふりがなから、性別を推定する関数](https://cdn-ak-scissors.b.st-hatena.com/image/square/1ef26f6cb4349557952890dbe3e567f7f98dc151/height=288;version=1;width=512/https%3A%2F%2Fgithub.githubassets.com%2Fassets%2Fgist-og-image-54fd7dc0713e.png)