VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Re^8: Excelの改行

投稿日： 2013/08/23(Fri) 13:34

投稿者： GC

YKさん、ご回答ありがとう。

やってみたのですが、
問題：
１．セルを接合した場合と接合しない場合。
>     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セルのサイズになっています。
（文字列が小さくなった）

問題２．
> Me.Text1.Text = "　きょう13日午前11時30分までの最高気温は、全国のトップは高知県" & vbCrLf & _
>"四万十市江川崎で、すでに38.2℃と、ここ数日と同じようなハイペー" & vbCrLf & _
>"スで気温が上がっている。また、高知県  四万十町で36.8℃、宮崎県西" & vbCrLf & _
>"都市で36.7℃と、引き続き西日本を中心に猛烈な暑さとなっている。"

確かに、A1セルに文章が上にようになっています。
文章に　” & vbCrLf & ”手動で入れるのですか、いちいち手動で入れるなら、意味がないです。
自動でほしいですが、（TextBoxに複数行で表示したままに貼り付ける）

なかなか難しくなった。だめならやめます。

よろしくお願いします。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

Excelの改行

ＧＣ

No.15779

Re: Excelの改行 - YK 13/08/10-17:31 No.15783
- Re^2: Excelの改行 - GC 13/08/13-09:26 No.15784
  - Re^3: Excelの改行 - YK 13/08/13-11:16 No.15785
    - Re^4: Excelの改行 - GC 13/08/13-13:39 No.15786
      - Re^5: Excelの改行 - YK 13/08/13-18:02 No.15787
        
        Re^6: Excelの改行 - ＧＣ 13/08/14-08:38 No.15788
        
        Re^7: Excelの改行 - YK 13/08/14-11:14 No.15789
        
        Re^8: Excelの改行 - GC 13/08/23-13:34 No.15801
        
        Re^9: Excelの改行 - YK 13/08/24-07:59 No.15802
        
        Re^10: Excelの改行 - ＧＣ 13/08/25-10:40 No.15803

タイトル	： Re^8: Excelの改行
投稿日	： 2013/08/23(Fri) 13:34
投稿者	： GC

古いスレッドにレスはつけられません。