セルに収まらない場合の処理

広告

1つのセルに入りきらないほど多くの文字などがセルに含まれた場合、デフォルトではセルをはみ出して表示されますが、セル内で文字を折り返して全体を表示するようにしたり、文字のサイズを変更してセルに収まるようにすることが出来ます。

セルの幅でセルに含まれる値を折り返して表示させる場合にはRangeオブジェクトの「WrapText」プロパティで設定します。

Dim range1 As Range

Set range1 = Range("A1")
range1.WrapText = True

設定する値は「True」か「False」を設定します。Trueを設定した場合に折り返しが行われます。

また、表示される文字サイズを調整してセル内に全ての値が表示されるようにするにはRangeオブジェクトの「ShrinkToFit」プロパティで設定します。

Dim range1 As Range

Set range1 = Range("A1")
range1.ShrinkToFit = True

設定する値は「True」か「False」を設定します。Trueを設定した場合に文字サイズの自動調整が行われます。

サンプルプログラム

では簡単なサンプルで試してみましょう。

testcellalign4.bas

Sub テスト()
    
    Range("A1:A3").Value = "宮里藍、史上最年少で初優勝。日本女子プロ"
    
    Range("A2").WrapText = True
    Range("A3").ShrinkToFit = True
        
End Sub

上記マクロを実行すると次のようになります。

セルの文字配置の設定

Excel VBA入門の他の記事を見てみる

( Written by Tatsuo Ikura )