Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8546 / 13646 ツリー ←次へ | 前へ→

【32638】濁点等の分割表示 ましゃ 05/12/20(火) 9:59 質問[未読]
【32639】Re:濁点等の分割表示 ichinose 05/12/20(火) 10:30 発言[未読]
【32640】Re:濁点等の分割表示 Jaka 05/12/20(火) 10:34 回答[未読]
【32641】同じだけど、ま いっか Jaka 05/12/20(火) 10:45 発言[未読]
【32669】Re:同じだけど、ま いっか ましゃ 05/12/20(火) 17:06 お礼[未読]

【32638】濁点等の分割表示
質問  ましゃ  - 05/12/20(火) 9:59 -

引用なし
パスワード
   取引先への支払を銀行振込でやってるんですが、
銀行の振込用紙って、OCR方式だとフリガナが例えば
「バ」なら所定の□(マス)に「ハ」と「゛」を別々に記入しなくてはなりません。
エクセルで作成したリストから振込用紙に印字する仕組み作りました。
この仕組みだと「バ」がひとつのセルに入る結果、振込用紙の□(マス)にもに入ってしまい、銀行では受け付けてもらえません。

濁点等を分割してセルに入れることはできるのでしょうか。
できるとすればどうすればいいのでしょうか。

【32639】Re:濁点等の分割表示
発言  ichinose  - 05/12/20(火) 10:30 -

引用なし
パスワード
   ▼ましゃ さん:
おはようございます。


>取引先への支払を銀行振込でやってるんですが、
>銀行の振込用紙って、OCR方式だとフリガナが例えば
>「バ」なら所定の□(マス)に「ハ」と「゛」を別々に記入しなくてはなりません。
>エクセルで作成したリストから振込用紙に印字する仕組み作りました。
>この仕組みだと「バ」がひとつのセルに入る結果、振込用紙の□(マス)にもに入ってしまい、銀行では受け付けてもらえません。
>
>濁点等を分割してセルに入れることはできるのでしょうか。
>できるとすればどうすればいいのでしょうか。
以下のコードで試して下さい。
'========================================================
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

【32640】Re:濁点等の分割表示
回答  Jaka  - 05/12/20(火) 10:34 -

引用なし
パスワード
   どんな風に使うのか解らないけど、1度半角カタカナにしてみるとか...。

Dim st As String, st1 As String
st = "パットベネター"
st1 = StrConv(st, vbNarrow)
For i = 1 To Len(st1)
  Cells(1, i).Value = StrConv(Mid(st1, i, 1), vbWide)
Next

【32641】同じだけど、ま いっか
発言  Jaka  - 05/12/20(火) 10:45 -

引用なし
パスワード
   ダブったけど、消さない。
失礼しました。

【32669】Re:同じだけど、ま いっか
お礼  ましゃ  - 05/12/20(火) 17:06 -

引用なし
パスワード
   目からうろこが・・・うまくいきました。

ありがとうございました。

8546 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free