銀行口座名の「ふりがなテキスト文字列」から、振込用のカタカナ口座名を作る。
㈱や㈲は、カ)や、ユ)に変換する必要がある。


Dim Kouzamei As String

'入力した際の 「ふりがなテキスト文字列」が無ければ終了
If Cells(ActiveCell.Row, "C").Phonetic.Text = "" Then Exit Sub

'振込用口座名入力がまだ無い場合に行う。既に入力されていたら何もしない。
If Cells(ActiveCell.Row, "I").Value = "" Then
    
    '口座名をフリガナに変換して変数にもつ(「ふりがなテキスト文字列」を使用する)
    Kouzamei = StrConv(Cells(ActiveCell.Row, "C").Phonetic.Text, vbKatakana)

    '振込用口座名の場合は、㈱や㈲をカタカナ表記に変える
    If Right(Kouzamei, 1) = "㈱" Then Kouzamei = Replace(Kouzamei, "㈱", "(カ")
    If Left(Kouzamei, 1) = "㈱" Then Kouzamei = Replace(Kouzamei, "㈱", "カ)")
    If Right(Kouzamei, 4) = "(カブ)" Then Kouzamei = Replace(Kouzamei, "(カブ)", "(カ")
    If Left(Kouzamei, 4) = "(カブ)" Then Kouzamei = Replace(Kouzamei, "(カブ)", "カ)")
    If Right(Kouzamei, 4) = "(カブ)" Then Kouzamei = Replace(Kouzamei, "(カブ)", "(カ")
    If Left(Kouzamei, 4) = "(カブ)" Then Kouzamei = Replace(Kouzamei, "(カブ)", "カ)")
    
    If Right(Kouzamei, 1) = "㈲" Then Kouzamei = Replace(Kouzamei, "㈲", "(ユ")
    If Left(Kouzamei, 1) = "㈲" Then Kouzamei = Replace(Kouzamei, "㈲", "ユ)")
    If Right(Kouzamei, 4) = "(ユウ)" Then Kouzamei = Replace(Kouzamei, "(ユウ)", "(ユ")
    If Left(Kouzamei, 4) = "(ユウ)" Then Kouzamei = Replace(Kouzamei, "(ユウ)", "ユ)")
    If Right(Kouzamei, 4) = "(ユウ)" Then Kouzamei = Replace(Kouzamei, "(ユウ)", "(ユ")
    If Left(Kouzamei, 4) = "(ユウ)" Then Kouzamei = Replace(Kouzamei, "(ユウ)", "ユ)")
    
    '振込口座名を表示する
    Cells(ActiveCell.Row, "I").Value = Kouzamei

End If