横書きの半角数字を、縦表示にしても，横に「・・・」と並べるには？

質問

リンクさせたデータの中に「123（半角）」があったとして、
これを縦書きで表示させたいときに、
横に「123」と並べることはできますか？

例えて書けば・・・
「これは123円です」のデータをリンクさせて、縦書き表示にしたくて、

　こ
　れ
　は
　123
　円
　で
　す

みたいなイメージ???
１でも２でも折り返されたくなくて、３で折り返されたい感じ???
加えて、必ずしも3文字とも決まっていなくて・・・

具体的に記述して教えていただけると、ありがたいです。
かなりワガママですが、コメントを入れてください・・・
お願いします。

回答No.3

nishi6

Excelと仮定して回答します。ユーザー定義関数を作ってみました。
　　=HankakuYokogaki(今ある算式) として使います。
セルの書式は配置タブで、『折り返して全体を表示する』にチェック。方向は横書きにします。
Wordだったらすいません。参考にして下さい。

標準モジュールに貼り付けて下さい。
Public Function HankakuYokogaki(moji As String)
　　Dim L As Integer 'カウンタ
　　Dim elm1, elm2 As String '１文字
　　Dim mojiCD1, mojiCD2 As Long '文字コード
　　Dim TateGaki As String '縦書き文字
　　Dim kaigyo As Boolean '改行有無
　　For L = 1 To Len(moji) - 1
　　　　elm1 = Mid(moji, L, 1): mojiCD1 = Asc(elm1)
　　　　elm2 = Mid(moji, L + 1, 1): mojiCD2 = Asc(elm2)

　　　　kaigyo = True
　　　　'半角数値が続いたら改行しない
　　　　If 48 <= mojiCD1 And mojiCD1 <= 57 Then
　　　　　　If 48 <= mojiCD2 And mojiCD2 <= 57 Then
　　　　　　　　kaigyo = False
　　　　　　End If
　　　　End If

　　　　If kaigyo = True Then
　　　　　　elm1 = elm1 & vbLf
　　　　End If
　　　　TateGaki = TateGaki & elm1
　　Next
　　HankakuTategaki = TateGaki & Right(moji, 1)
End Function

お礼

どうしても・・・どうしても・・・うまく使いこなすことができません・・・。
あなた様に作っていただいたマクロで、うまく活用できないのはこれが初めて。
私の使い方が悪いと思うのですが・・・。
何が原因かさえ分りません・・・。
セルの書式は・・・のあたりかな？
もし心当たりがあったら、また書き込んでください。
お願いします・・・。