[[20120512112745]]　『改行』（過去ログ）　ページの最後に飛ぶ

『改行』（過去ログ）

選んだセルから改行出来るようマクロ無いでしょうか？

例えばb4から後はA4に改行さたいです
改行する際はセル画面の一番左端にしたいです

＞例えばb4から後はA4に改行さたいです
B4セルの幅からはみ出る部分はその左隣のA4セルに移動したいということですか？
（普通そういうのは改行とは呼ばないと思うので）A4は左端列の次の行、　A5　の間違い？

単一の列なら「文字の割付」が適していますけど、複数列を対象とした割付は
通常コマンドではないし、そういうニーズも少ないと思えるので、

＞マクロ無いでしょうか？
の答えは、「無いから作る必要がある」でしょう。

マクロ作ってほしいということなら、
状況説明が不足しているように思えますよ。

（みやほりん）

すみません間違いました
Ａ５でした（過去ログ）

了解です。
ご相談の内容に沿っているとは思うのですが。

 Sub Macro1()
     Dim ws1 As Worksheet
     Dim ws2 As Worksheet
     Dim myRng As Range
     Dim myStr As String
     Set ws1 = ActiveSheet
     Set myRng = Selection
     Set ws2 = Worksheets.Add
     myStr = myRng.Value
     ws2.Columns(myRng.Column).ColumnWidth = ws1.Columns(myRng.Column).ColumnWidth
     myRng.Copy Destination:=ws2.Range(myRng.Address)

     Application.DisplayAlerts = False
     ws2.Range(myRng.Address).Justify
     Application.DisplayAlerts = True

     ws1.Range("A" & myRng.Offset(1, 0).Row).Value = Application.WorksheetFunction.Substitute(myStr, ws2.Range(myRng.Address).Value, "")
     myRng.Value = ws2.Range(myRng.Address).Value

     Application.DisplayAlerts = False
     ws2.Delete
     Application.DisplayAlerts = True

 End Sub

熱が出ているのか、関節痛・・・
（みやほりん）　

ありがとうございます　
体調早く良くなるといいですね

あらら上手くいきません（過去ログ）

うまくいかないとは、
何がどのように？
（みやほりん）

新しいシートが立ち上がります

また左端列にもありません（過去ログ）

＞新しいシートが立ち上がります

     Set ws2 = Worksheets.Add
で新規シートを作成していますが、
     ws2.Delete
と削除を行っていますので残らないはずです。

＞左端列にもありません
・選択セルに入力されている文字列を選択セルの幅に収まる
　データのみ残す。
・選択セルからはみ出た部分は選択セルの次行左端セルへ
　移動させる。
という仕様で作っていますので、こちらではそのようになっています。

B4セルに
「じゅげむ　じゅげむ　ごこうのすりきれ　かいじゃりすいぎょの　すいぎょうまつ　うんらいまつ　ふうらいまつ　くうねるところにすむところ　やぶらこうじのぶらこうじ　ぱいぽ　ぱいぽ　ぱいぽのしゅーりんがん　しゅーりんがんのぐーりんだい　ぐーりんだいのぽんぽこぴーの　ぽんぽこなーの　ちょうきゅうめいのちょうすけ」
が入力されていて、B列の幅が「じゅげむ　じゅげむ」までしかない時に
B4を選択した状態でこのマクロを実行すると

B4には「じゅげむ　じゅげむ」が残り、
A5には残りの
「ごこうのすりきれ　かいじゃりすいぎょの　すいぎょうまつ　うんらいまつ　ふうらいまつ　くうねるところにすむところ　やぶらこうじのぶらこうじ　ぱいぽ　ぱいぽ　ぱいぽのしゅーりんがん　しゅーりんがんのぐーりんだい　ぐーりんだいのぽんぽこぴーの　ぽんぽこなーの　ちょうきゅうめいのちょうすけ」
が移動する、というのが私の質問内容の解釈です。

もし違うとすれば、実際やりたいことと、上記の私の解釈との食い違いが
あるのではないでしょうか。

今、気がついたけど、マクロ実行時選択セルに残る文字列が繰り返されていると
SUBSTITUTEでは置換されて消えちゃいますね。
ここは後で時間ができたら、手直しバージョンをUPしますが、
これが原因でしょうかね。

(みやほりん)(-_∂)b

？？？変な人が湧いてきました。困ります（過去ログ）

B4セルが結合セルということはないですか（マナ）

ないですよ（過去ログ）

 やりたいことは、みやほりんさんの説明のとおりで合っていますか。
 違うなら、もう一度詳しく教えてください。
 (semm)

詳しくは第１番目に書いています。結果難しいそうですよね
（過去ログ）

 こちらではみやほりんさんの説明のとおり「じゅげむ　じゅげむ」がB4に、
 残りがA5に入ります。
 第１番目に書いてあるとおりです。
 新しいシートが一瞬表示されますが残ることはなく、
 左端列(A列のことですね)になっています。
 (semm)

＞変な人が湧いてきました。困ります
そこまで言われたら撤退するかな。
(みやほりん)q(-_-;)

？何やら前に進みませんので再度質問いたします

例えばC2セル以降数値がＡ３に改行出来るようにしたいです（過去ログ）

もしかしたら、アクティブセルの移動？
[[20081013162805]]　『セルの移動について』（初心者）

＞詳しくは第１番目に書いています。
はぁ・・・。
（みやほりん）

難しいですかね（過去ログ）

 とりあえず、状況説明が不足のようですよ。このままでは、難しいかも？
 （過去ログ）さんの状況がつかめません、もう少し具体的な例も書いていただければ解決が出来るかもね％
(ヘン)

コメント返信：

[ 一覧(最新更新順) ]

[[20120512112745]] 『改行』（過去ログ） ページの最後に飛ぶ

[[20120512112745]]　『改行』（過去ログ）　ページの最後に飛ぶ