VBAマクロ向け関数。GenderEstimate。漢字の名前とふりがなから、性別を推定する関数GenderEstimate.bas Ӈ�U �ԇ�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文字以下のもの
