[[20121010083952]]　『autofitについて』（初心者）　ページの最後に飛ぶ

『autofitについて』（初心者）

 エクセルのＡＵＴＯＦＩＴについて、教えてください。
 入力表シートに入れたデータを別シートに貼り付けした時に
 １行以上のデータは折り返しにしているのですが、自動で
 行幅を変更するＶＢＡを入れたいと思っています。
 １行の高さを15として余裕幅を1/2行とするにはどうすれば
 いいでしょうか？
 （１行の場合＝15＋7.5、２行の場合＝30＋15・・・）
 お助けください。よろしくお願いします。

 ただし、データがＡ列にある行もあれば、Ｂ列にある行、
 Ｃ列にある行・・・とＥ列にある行まであります。
 そのため、Ａ列でＡＵＴＯＦＩＴをするとＥ列で３行
 ある行が上手く調整できないものとなっています。

 難しい質問かもしれませんが、よろしくお願いします。

内容的に無理なのでしょうか？

 ＞ただし、データがＡ列にある行もあれば、Ｂ列にある行、
 ＞Ｃ列にある行・・・とＥ列にある行まであります。
 ＞そのため、Ａ列でＡＵＴＯＦＩＴをするとＥ列で３行
 ＞ある行が上手く調整できないものとなっています。

 ちょっとよく分からないのですけど、「行高」の調整ですよね？

 なのに、なぜA「列」でAUTOFITなんですか？

 「目的とする"行"でAUTOFITする」って云うのなら分かるんですけど。

 (半平太) 2012/10/10 13:25

 早速書き込みいただきありがとうございました。
 そうです。行高の調整です。
 ですが、以下のＶＢＡを試しにしたところダメでした。

 Cells.EntireRow.AutoFit
 Dim myRow As Long
 ' A列にデータがあるとして動いている。
 ' A列にデータがない場合は Rows.Count, 1 の 1 を書き換える。
 ' 1=Aです。B列なら2、C列なら3。
 For myRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
 With Cells(myRow, 1)
 ' 高さを15足す
 .RowHeight = .RowHeight + 15
 End With
 Next myRow
 End Sub

 コピー先のシートがＡ列から始まっているデータもあれば、Ｂ列
 から始まっているデータもあり、そういうのも同じＶＢＡで出来ない
 かなと思ったのですが、上記の式がおかしいのでしょうか。
 初歩的な質問で申し訳ありません。よろしくお願いします。

 こんなんでいけると思います。

 Sub RowFitting()
     Dim myCol As Long
     Dim myRow As Long
     Dim rowMax As Long

     rowMax = 1

     For myCol = 1 To 5
         If rowMax < Cells(Rows.Count, myCol).End(xlUp).Row Then
             rowMax = Cells(Rows.Count, myCol).End(xlUp).Row
         End If
     Next myCol

     Rows(1).Resize(rowMax).AutoFit

     For myRow = 1 To rowMax
        With Rows(myRow)
        ' 高さを15足す
         .RowHeight = .RowHeight + 15
        End With
     Next myRow
 End Sub

 (半平太) 2012/10/10 20:45

 半平太様、ありがとうございます！
 早速試しましたが、１行のものも２行のものも同じ行高さになって
 しまいました。（行高さ＝28.5）
 １行につき行高さ18とすることは出来ないでしょうか？
 よろしくお願いします。

 ＞早速試しましたが、１行のものも２行のものも同じ行高さになって

 私が勘違いしているのかも知れませんが、行高は行全体に適用されます。

 A列1行目の行高が2行分あり、B列1行目が5行分ある、などと云う状況は作れません。

 そんな質問であるハズはないと思いながら、そう受け取らざるを得ません。

 私の勘違いならご指摘ください。

 (半平太) 2012/10/11 09:10

 半平太様、早速ご回答いただき、感謝です。
 同じ行で列によって行高を変える事ではなく、データが入って
 いる列が異なっています。
 例えば・・・
 １行目：Ａ列にデータ（１行）
 ２行目：Ｂ列にデータ（３行）
 ３行目：Ｃ列にデータ（５行）
 という感じになっています。

 こういう時に１行目は１行分の行高、２行目は２行分の行高
 ３行目は５行分の行高・・・という風にできるでしょうか。

 分かりくい書き方だったかもしれません。
 申し訳ありませんが、よろしくお願いします。

 ＞ こういう時に１行目は１行分の行高、２行目は２行分の行高
 ＞ ３行目は５行分の行高・・・という風にできるでしょうか。

 それでしたら、私の環境では上掲コードでそうなりましたけど、どうなっているんでしょうかね？

 ＞ １行以上のデータは折り返しにしている
 この書式設定は今も活きていますか？

 活きているとしたら、私はちょっと分かりません。他の回答者のレスをお待ちください。

 (半平太) 2012/10/11 11:02

お久しぶりです。スレ主です。

 あの後ばたばたしてまして書き込みが遅くなり申し訳ありません。
 結合セルが一部含まれているのですが、それが原因でしょうか？

 ＞結合セルが一部含まれているのですが、それが原因でしょうか

 その場合は、Autofitはワークしない様です。
 こちらを参考にして、トライしてみてください。(初心者のレベルだとキツイかも？）
 　↓
 結合セルの文字列をピッタリ表示される方法
http://excelfactory.net/excelboard/excelvba/excel.cgi
 (過去ログ15に入っていますので、キーワード検索してください。)

 ※まっさらな状態を作ってからデータ入力すると自動アジャストされる、
 　と云うエクセルの不思議な振る舞いを上手く利用しながら解決するものです。

 結合だけでなく、他の書式にも波及する話なので(設定されていればですけど）、
 私はこれ以上関わる気が起きませんので、申し訳ありませんが、これで私の最後のレスとします。

 (半平太) 2012/11/23 13：03

コメント返信：

[ 一覧(最新更新順) ]

[[20121010083952]] 『autofitについて』（初心者） ページの最後に飛ぶ

[[20121010083952]]　『autofitについて』（初心者）　ページの最後に飛ぶ