1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. セルの表示形式・表示位置など

セルの表示形式・表示位置など: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