エクセルバージョン
マイクロソフト365
今回はエクセルVBAでセルの色々な設定について解説していきたいと思います。
それではいってみましょう!
Menu
セルの文字位置
上揃え
セルA1の文字位置を上揃えにする場合
1 2 3 | Sub 上揃え() Range("A1").VerticalAlignment = xlTop End Sub |
下揃え
セルA1の文字位置を下揃えにする場合
1 2 3 | Sub 下揃え() Range("A1").VerticalAlignment = xlBottom End Sub |
左揃え
セルA1の文字位置を左揃えにする場合
1 2 3 | Sub 左揃え() Range("A1").HorizontalAlignment = xlLeft End Sub |
右揃え
セルA1の文字位置を右揃えにする場合
1 2 3 | Sub 右揃え() Range("A1").HorizontalAlignment = xlRight End Sub |
中央揃え
セルA1の文字位置を中央揃えにする場合
1 2 3 | Sub 中央揃え() Range("A1").HorizontalAlignment = xlCenter End Sub |
上下中央揃え
セルA1の文字位置を上下中央揃えにする場合
1 2 3 4 5 6 | Sub 上下中央揃え() With Range("A1") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End Sub |
セルの表示
折り返して全体を表示
セルA1を折り返して全体を表示する場合
1 2 3 | Sub セルを折り返して表示() Range("A1").WrapText = True 'Falseで解除 End Sub |
縮小して全体を表示
セルA1を縮小して全体を表示する場合
1 2 3 | Sub 縮小して全体を表示() Range("A1").ShrinkToFit = True 'Falseで解除 End Sub |
結合
セルを結合
セルA1とB1をセルの結合する場合
1 2 3 | Sub セル結合() Range("A1:B1").MergeCells = True 'Falseで解除 End Sub |
行の高さと列幅
行の高さ
セルA1の行の高さを変更する場合
1 2 3 | Sub 行の高さ() Range("A1").RowHeight = 50 End Sub |
列幅
セルA1の列幅を変更する場合
1 2 3 | Sub 列幅() Range("A1").ColumnWidth = 20 End Sub |
まとめ
マクロの記録でも自動でこのようなコードが出ますが、Withの中がわからない方向けに簡単にコードが書けるようにまとめてみました(^^♪
以上です。