タイトル : Re^8: Excelの改行 投稿日 : 2013/08/23(Fri) 13:34 投稿者 : GC
YKさん、ご回答ありがとう。 やってみたのですが、 問題: 1.セルを接合した場合と接合しない場合。 > For i = rng.Font.Size To 3 Step -1 > ' セル幅が規定値より小さいか > If sW >= rng.ColumnWidth Then > ' 小さかったらセルの幅を規定値に > rng.ColumnWidth = sW > Exit For > Else > ' フォントサイズを一つ下げる > rng.Font.Size = i > rng.EntireColumn.AutoFit > End If > Next 単一セルのサイズになっています。 例:セル接合しない場合、A1セルのサイズになっています。 A1−I9の接合したセルもA1セルのサイズになっています。 (文字列が小さくなった) 問題2. > Me.Text1.Text = " きょう13日午前11時30分までの最高気温は、全国のトップは高知県" & vbCrLf & _ >"四万十市江川崎で、すでに38.2℃と、ここ数日と同じようなハイペー" & vbCrLf & _ >"スで気温が上がっている。また、高知県 四万十町で36.8℃、宮崎県西" & vbCrLf & _ >"都市で36.7℃と、引き続き西日本を中心に猛烈な暑さとなっている。" 確かに、A1セルに文章が上にようになっています。 文章に ” & vbCrLf & ”手動で入れるのですか、いちいち手動で入れるなら、意味がないです。 自動でほしいですが、(TextBoxに複数行で表示したままに貼り付ける) なかなか難しくなった。だめならやめます。 よろしくお願いします。 |