即効テクニック |
現在のセルの文字の配置を把握して、文字揃えの位置を変更してみましょう。 <HorizontalAlignmentプロパティ> HorizontalAlignmentプロパティを使用するとセルの左右方向の位置を取得、設定できます。 ●使用例● セルA1の文字の配置が、左詰めであれば中央揃えに中央揃えであれば右詰めに、 右詰めであれば左詰めに変更します。 Sub セルの文字の配置変更() With Worksheets("Sheet1").Range("A1") Select Case .HorizontalAlignment Case xlHAlignLeft .HorizontalAlignment = xlHAlignCenter Case xlHAlignCenter .HorizontalAlignment = xlHAlignRight Case xlHAlignRight .HorizontalAlignment = xlHAlignLeft End Select End With End Sub どのオブジェクトが対象の場合も、使用できる定数は、XlHAlign クラスのxlHAlignCenter、xlHAlignDistributed、xlHAlignJustify、 xlHAlignLeft、xlHAlignRight のいずれかです。