| |
▼ましゃ さん：
おはようございます。
>取引先への支払を銀行振込でやってるんですが、
>銀行の振込用紙って、ＯＣＲ方式だとフリガナが例えば
>「バ」なら所定の□（マス）に「ハ」と「゛」を別々に記入しなくてはなりません。
>エクセルで作成したリストから振込用紙に印字する仕組み作りました。
>この仕組みだと「バ」がひとつのセルに入る結果、振込用紙の□（マス）にもに入ってしまい、銀行では受け付けてもらえません。
>
>濁点等を分割してセルに入れることはできるのでしょうか。
>できるとすればどうすればいいのでしょうか。
以下のコードで試して下さい。
'========================================================
Sub test()
Dim ans As String
ans = CnvKatakana("ノブタヲプロデュース")
MsgBox ans & "---文字数： " & Len(ans)
End Sub
'=================================================================
Function CnvKatakana(mystr) As String
'input mystr カタカナ文字列
'Output CnvKatakana--濁点等を独立一文字にして全角カタカナ文字列
Dim wk As String
wk = StrConv(mystr, vbNarrow)
CnvKatakana = ""
For i = 1 To Len(wk)
CnvKatakana = CnvKatakana & StrConv(Mid(wk, i, 1), vbWide)
Next
End Function
|
|
ichinose
- 05/12/20(火) 10:30 -
