Excel VBA質問箱 IV

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

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


11874 / 13645 ツリー ←次へ | 前へ→

【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 お礼[未読]

【13450】任意場所で改行
質問  コノシロ  - 04/5/5(水) 18:05 -

引用なし
パスワード
    住所録を作ろうとしているのですが、長い住所を「スペースを打ち込んだ位置」で自動的に改行し、なおかつ行が増えるごとに1文字ずつ字下げを行ってくれるプログラムをVBAで作成しております。しかしどうしても「スペースを見つけて、スペースを改行に置き換える」方法が分かりません。一体どうすればよろしいのでしょうか?

例:(アンダーバーをスペースとしてみてください)

入力セル:宮城県仙台市泉区七北田_字真美沢1−2−34_コーユウパレス大町204号
    ↓
出力セル:宮城県仙台市泉区七北田
(字下げは _字真美沢1−2−34
   全角)__コーユウパレス大町204号

【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

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

【13563】Re:任意場所で改行
発言  ぴかる  - 04/5/7(金) 14:36 -

引用なし
パスワード
   ほったらかし撲滅運動実施中!。

あきませんよ。ちゃんと結果報告しましょう。マナーって、どこ行っても大切やよ。

【13625】遅れましてスミマセン
お礼  コノシロ  - 04/5/10(月) 0:17 -

引用なし
パスワード
   >ichinoseさん
 五日間も返信しませんで申し訳ありませんでした。まさかこんなにも早く返信をいただくとは思いもよりませんでした。(滝汗)
 書式はあらかじめ調節しますので、改行とインデント処理だけできれば十分です。ご返信ありがとうございます。

>ひかるさん
 わざわざご忠告していただきまして、ありがとうございます。これからは気をつけます。

>この記事をご覧になった皆様方
 ご迷惑をおかけして申し訳ありませんでした。

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