まず、一文を平仮名に直すだけでよければ''' ''' 文書を平仮名変換 ''' ''' 変換元文字列 ''' ひらがな化済み文字列 ''' Function toHiragana(Value As String) As String Dim objExcel As New Microsoft.Office.Interop.Excel.Application Dim stKanji As S…

プログラムソースメモです。IsNumericやIsErrorの様な文字列の判定関数が無いものかと探したのですがなかった為、自分でコードを書きました。 ''' ''' ひらがな検索 ''' ''' 検索元ひらがな ''' ひらがな部分 ''' True:ひらがなあり False:ひらがな無し ''' …