シートの幅変更

VBA マクロ 入門

次は幅の大きさを変更してみた。
文字打って、セルからはみでたらダサいやん。
はみ出したセルの横に文字打ったら、
はみ出した文字列は見えなくなるし、
もちろんエビデンスとしてそんなん提出したら
間違いなく現場で殺される。

というわけで変更します。
高さはRowHeightで変更、
幅はColumnWidthで幅を変更します。

早速書いてみた。

Sub ChangeSize()
    Worksheets("Sheet2").Activate
    Worksheets("Sheet2").Cells(2, 2).Value = "こんな長さでどうだ！！納まるか？"
    Worksheets("Sheet2").Cells(2, 2).RowHeight = 20
    Worksheets("Sheet2").Cells(2, 2).ColumnWidth = 40
End Sub

おぉ！！変わった。
でもコード不細工きわまりねーな。
WorkSheetとCellsが重複しまくってるし・・・。
次はこの重複を削除してくれるぜ！！