Excel VBA質問箱 IV

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

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


67837 / 76738 ←次へ | 前へ→

【13451】Re:任意場所で改行
回答  ichinose  - 04/5/5(水) 19:11 -

引用なし
パスワード
   ▼コノシロ さん:
こんばんは。

> 住所録を作ろうとしているのですが、長い住所を「スペースを打ち込んだ位置」で自動的に改行し、なおかつ行が増えるごとに1文字ずつ字下げを行ってくれるプログラムをVBAで作成しております。しかしどうしても「スペースを見つけて、スペースを改行に置き換える」方法が分かりません。一体どうすればよろしいのでしょうか?
>
>例:(アンダーバーをスペースとしてみてください)
>
>入力セル:宮城県仙台市泉区七北田_字真美沢1−2−34_コーユウパレス大町204号
>    ↓
>出力セル:宮城県仙台市泉区七北田
>(字下げは _字真美沢1−2−34
>   全角)__コーユウパレス大町204号
いろんな方法があると思いますが・・、一例です。
'=======================================================
Sub main()
  Cells(1, 1).Value = add_vblf_nest("宮城県仙台市泉区七北田字 真美沢1−2−34 コーユウパレス大町204号")
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

尚、セル幅は、予め調節して置いて下さい(それも含めてなら、方法もあるけど)。

0 hits

【13450】任意場所で改行 コノシロ 04/5/5(水) 18:05 質問
【13451】Re:任意場所で改行 ichinose 04/5/5(水) 19:11 回答
【13563】Re:任意場所で改行 ぴかる 04/5/7(金) 14:36 発言
【13625】遅れましてスミマセン コノシロ 04/5/10(月) 0:17 お礼

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