VBA: strconvが使えないPCがある、、数年前にもあったと思う、 FWの問題だっけ？

しょうがないから、代替え関数を作ってみる

まずは、全角カナ文字を出力してみる、、、

Public Function dispChrW()
    
    Dim i
    For i = &H30A1 To &H30FF
        Debug.Print ChrW(i);
    Next i

End Function

文字コードは以下を参考にした

Unicode 片仮名 - CyberLibrarian

文字を置き換えはこうで良いのかな？　めちゃ性能悪そう、、

Public Function CnvKanaToHira(inps) As String
    
    Const sKataist = "ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヲン"
    Const sHiraist = "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわをん"
    
    Dim slen: slen = Len(sKataist)
    Dim wt$:  wt$ = inps
    
    Dim i%
    For i = 1 To slen
        wt$ = Replace(wt$, Mid(sKataist, i, 1), Mid(sHiraist, i, 1))
    Next
    CnvKanaToHira = wt$
    
End Function