Excel VBAを使用して、セルの横方向および縦方向の配置を設定する方法について解説します。
横方向の配置設定
Sub セルの配置を設定する_横方向()
Range("A1").HorizontalAlignment = xlCenter 'セルを中央に寄せる_中央揃え
Range("A2").HorizontalAlignment = xlLeft 'セルを左に寄せる_左詰め
Range("A3").HorizontalAlignment = xlRight 'セルを右に寄せる_右詰め
Range("A4").HorizontalAlignment = xlGeneral 'セルを左右中央の寄せるを解除する(標準)
End Sub
Range("A1").HorizontalAlignment = xlCenter
: A1セルの横方向の配置を中央揃えに設定します。Range("A2").HorizontalAlignment = xlLeft
: A2セルの横方向の配置を左詰めに設定します。Range("A3").HorizontalAlignment = xlRight
: A3セルの横方向の配置を右詰めに設定します。Range("A4").HorizontalAlignment = xlGeneral
: A4セルの横方向の配置を左右中央の寄せるを解除し、標準の配置にします。
縦方向の配置設定
Sub セルの配置を設定する_縦方向()
Range("A1").VerticalAlignment = xlCenter 'セルを上下中央(上下センター)に寄せる_中央揃え
Range("B1").VerticalAlignment = xlTop 'セルを上に寄せる_上詰め
Range("C1").VerticalAlignment = xlBottom 'セルを下に寄せる_下詰め
Range("D1").VerticalAlignment = xlGeneral 'セルを上下中央の寄せるを解除する(標準)
End Sub
Range("A1").VerticalAlignment = xlCenter
: A1セルの縦方向の配置を上下中央(上下センター)に寄せる中央揃えに設定します。Range("B1").VerticalAlignment = xlTop
: B1セルの縦方向の配置を上に寄せる上詰めに設定します。Range("C1").VerticalAlignment = xlBottom
: C1セルの縦方向の配置を下に寄せる下詰めに設定します。Range("D1").VerticalAlignment = xlGeneral
: D1セルの縦方向の配置を上下中央の寄せるを解除し、標準の配置にします。
他のExcel VBAスニペットについてもっと知りたい方は、ぜひ他のページもご覧ください。
eigo-gayomenai-engineer.hatenablog.com