Excel(エクセル) VBA入門：セルの表示形式・表示位置など

セルの表示形式(NumberFormatLocalプロパティ)　　　topへ

• エクセルの一般機能の書式→セルで表示形式タブのユーザー定義で設定するものと同じように記述します。
  • 書式→セルで表示形式タブのユーザー定義　→【ユーザー定義のページ】に説明があります
    

数値の表示形式　　topへ

• 数値の表示形式の例です。

  • Sub rei19_01() 　　Range("A1:A3").Value = 1234.5 　　Range("A1").NumberFormatLocal = "#,###.#" 　　Range("A2").NumberFormatLocal = "[緑]#,###.#" 　　Range("A3").NumberFormatLocal = "[DBNum1][赤]#,###.#" End Sub

  • 実行後
    

数値と文字列を組み合わせた表示形式　　topへ

• 「単位を組み合わせて表示したい」との質問を受けたことがあります。
  • 下表のB列に単位を付けて表示します。
    金額の計算をしたいので、B列は表示形式を変更することとします。
    

    	A	B	C	D
    1	商品名	単価	数量	金額
    2	ペン	\10/本	3	\30
    3	ノート	\150/冊	10	\1,500

  • なお、単位はH:I列に一覧表が有るものとします。
    

    	H	I
    1	鉛筆	本
    2	ノート	冊
    3	ペン	本

  • 表示形式を　\#,##0/本　となるように設定します。
    なお、For〜Next　で捜していますので、データ数が多いと実用上、このコードではスピードが遅すぎるかもしれません。
    ここでは表示形式を変数で設定する例として書いていますので、ご了解ください。

  • Private Sub Worksheet_Change(ByVal Target As Range) 　　Dim unit 　　Dim myVal 　　Dim i As Long 　　　　If Target.Count <> 1 Then Exit Sub 　　　　If Target.Column = 2 And Target.Row > 1 Then 　　　　　　myVal = Range("H1", Range("H" & Rows.Count).End(xlUp)).Resize(, 2).Value 　　　　　　For i = 1 To UBound(myVal) 　　　　　　　　If myVal(i, 1) = Target.Offset(, -1).Value Then 　　　　　　　　　　unit = myVal(i, 2) 　　　　　　　　　　Exit For 　　　　　　　　End If 　　　　　　Next i 　　　　　　unit = "\#,##0" + """" + "/" + unit + """" 　　　　　　Target.NumberFormatLocal = unit 　　　　End If End Sub

  • 実行例
    

日付の表示形式　　topへ

• 日付の表示形式の例です。

  • Sub rei19_02() 　　Range("A1:A5").Value = "2007/2/5" 　　Range("A1").NumberFormatLocal = "yyyy/m/d" 　　Range("A2").NumberFormatLocal = "yyyy/mm/dd" 　　Range("A3").NumberFormatLocal = "yyyy/mm/dd (aaa)" 　　Range("A4").NumberFormatLocal = "ggge年m月d日" 　　Range("A5").NumberFormatLocal = "ggge年m月d日 (aaa)" End Sub

  • 実行後
    

注意　　topへ

• Excelが入力値の表示形式を自動で設定するケースでは、表示形式の設定を先に行う必要があります。
  • 例1：A1セル：先に「1-1」と入力すると、日付データと判断されてシリアル値に変更されます。

    • Sub rei19_03() 　　Range("A1").Value = "1-1" 　　Range("A1").NumberFormatLocal = "@" End Sub

  • 例2：A2セル：先に表示形式を設定してから、値を入力します。

    • Sub rei19_04() 　　Range("A2").NumberFormatLocal = "@" 　　Range("A2").Value = "1-1" End Sub

  • 実行例
    

セル内の表示位置・向き　　　topへ

水平方向の位置　HorizontalAlignmentプロパティ

垂直方向の位置　VerticalAlignmentプロパティ

• エクセルのセル内の水平、垂直方向の位置を設定します。
  • マクロの例
    

    Sub Rei19_05() 　　Range("A1").HorizontalAlignment = xlHAlignLeft 　　Range("B1").HorizontalAlignment = xlHAlignCenter 　　Range("C1").HorizontalAlignment = xlHAlignRight 　　Range("A2").VerticalAlignment = xlVAlignTop 　　Range("B2").VerticalAlignment = xlVAlignCenter 　　Range("C2").VerticalAlignment = xlVAlignBottom End Sub

  • 実行後
    
  • 水平方向
    

    xlHAlignGeneral	標準	1
    xlHAlignLeft	左詰め	-4131
    xlHAlignCenter	中央	-4108
    xlHAlignRight	右詰め	-4152
    xlHAlignCenterAcrossSelection	選択範囲内で中央	7
    xlHAlignDistributed	均等割り付け	-4117
    xlHAlignFill	繰り返し	5
    xlHAlignJustify	両端揃え	-4130

  • 垂直方向
    

    xlVAlignTop	上詰め	-4160
    xlVAlignCenter	中央	-4108
    xlVAlignBottom	下詰め	-4107
    xlVAlignJustify	両端揃え	-4130
    xlVAlignDistributed	均等割り付け	-4117

文字列の方向　Orientationプロパティ

• 文字列の方向を設定します
  • Orientationプロパティで-90〜90の角度を指定します。
  • 例1：
    

    Sub Rei19_06() 　　Range("A1").Orientation = xlDownward 　　Range("B1").Orientation = xlHorizontal 　　Range("C1").Orientation = xlUpward 　　Range("D1").Orientation = xlVertical End Sub

  • 例2：
    

    Sub Rei19_07() 　　Range("A2").Orientation = -90 　　Range("B2").Orientation = -45 　　Range("C2").Orientation = 0 　　Range("D2").Orientation = 45 　　Range("E2").Orientation = 90 End Sub

  • 実行後
    
  • 文字方向
    

    xlDownward	下向き	-4170
    xlHorizontal(既定値)	水平	-4128
    xlUpward	上向き	-4171
    xlVertical	垂直	-4166

列幅で折り返して全体を表示する　WrapTextプロパティ

列幅で縮小して全体を表示する　ShrinkToFitプロパティ

セルを結合する　Mergecellsプロパティ

• セル内での文字列の表示方法
  • 例:
    

    Sub Rei19_08() 　　Range("B2").WrapText = True 　　Range("B4").ShrinkToFit = True 　　Range("B6:C7").MergeCells = True End Sub

  • 実行後
    
    • 結合したセルを解除するには、結合セルの範囲または結合されたセルの一つを対象にします。
      上の例なら、Range("B6:C7").MergeCells = False　、Range("B6").MergeCells = False　とすれば結合は解除されます。

PageViewCounter
　
　Since2006/2/27