| |
▼コノシロ さん：
こんばんは。
> 住所録を作ろうとしているのですが、長い住所を「スペースを打ち込んだ位置」で自動的に改行し、なおかつ行が増えるごとに１文字ずつ字下げを行ってくれるプログラムをVBAで作成しております。しかしどうしても「スペースを見つけて、スペースを改行に置き換える」方法が分かりません。一体どうすればよろしいのでしょうか？
>
>例：(アンダーバーをスペースとしてみてください)
>
>入力セル：宮城県仙台市泉区七北田_字真美沢１−２−３４_コーユウパレス大町２０４号
> ↓
>出力セル：宮城県仙台市泉区七北田
>(字下げは ＿字真美沢１−２−３４
> 全角)＿＿コーユウパレス大町２０４号
いろんな方法があると思いますが・・、一例です。
'=======================================================
Sub main()
Cells(1, 1).Value = add_vblf_nest("宮城県仙台市泉区七北田字 真美沢１−２−３４ コーユウパレス大町２０４号")
End Sub
'=======================================================
Function add_vblf_nest(cnv_str As String)
Dim wk
wk = Split(cnv_str, " ")
For idx = 1 To UBound(wk)
wk(idx) = String(idx, " ") & wk(idx)
Next
add_vblf_nest = Join(wk, vbLf)
End Function
尚、セル幅は、予め調節して置いて下さい（それも含めてなら、方法もあるけど）。
|
|
ichinose
- 04/5/5(水) 19:11 -
