[[20080313153008]] 『英文社名を上手く記載したい』(TAKEYOU211) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『英文社名を上手く記載したい』(TAKEYOU211)
皆様、いつもいつも有難うございます。
またまたお願いします。
英文社名を上手く表示したいのですがいい方法はないでしょうか?
完璧に表記するには長く、セルで縮小表示をすると小さくなりすぎて醜いので、
折り返して表示を3行程度の1行15文字程度で表示したいのですが、
社名の途中で切れるのが厭なのです。

駄目な例:AAAAAABBBBC CORPORATION OF AMERICA----->

AAAAAABBBBC COR

PORATION OF AME

RICA

理想例:AAAAAABBBBC CORPORATION OF AMERICA----->

AAAAAABBBBC

CORPORATION OF

AMERICA

宜しくお願いします。


 セル内の改行は されましたか
 Alt+Enter
 (歩歩歩)

さっそくありがとうございます。
そうなんですが、まったく書き忘れてますが、マクロ起動中に一列だけをそうしたいのです。
そのVBA式がわかりません。


 マクロであれば手が出せませんので
 退散します・・・ m(_ _)m
 (歩歩歩)

 Sub test()
     Range("a1").Value = multiLines(Range("a1").Value)
 End Sub

 Function multiLines(txt As String) As String
     multiLines = Join(Split(txt), vbLf)
 End Function

 とか...
 (seiya)

 なるほど、マクロとはそのように書くものなんですね。
 私のようなマクロ苦手が書くとこうなりました。
 (自動記述したものに加工しただけです)

 Sub test2()
     Range("A1:A10").Replace What:=" ", Replacement:=Chr(10)
     Range("A1:A10").Replace What:=Chr(10) & "OF" & Chr(10), Replacement:=" OF" & Chr(10)
 End Sub

 一応、例題にあるような OF の前だけは改行しません。
 他にも改行しない条件があればその条件を下に付け足していく必要があります。
 うまく動くといいのですが。
 (sato)


皆様本当にいつも有難うございます。
本当に助かりました。
因みに独学で勉強するいい教材(本)はあったら紹介してください。
宜しくお願いします。

 「勉強 参考 紹介 SUB」等のワードで全文検索で捜してみました。
[[20071230094515]]『行を選択・削除するマクロ』(年末年始)
[[20070717060615]]『検索を一つに』(ちょいボケ親父)
[[20050930211122]]『セルの書き込み後の変更不可』(りおん)
[[20050115131721]]『条件式書式を6つやりたいんですが・・・』(sirouto)
 その他、ワードを変えて検索してみるとまだ見つかると思います。

 個人的には↓のみやほりんさんのお言葉が好きです。
[[20070227164826]]『行を挿入すると前の行の数式をコピーするには』(ゆん)

 (HANA)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.