|
|
| |
| 本章では、セルの書式設定に関するコードサンプルを例示しています。 |
| |
|
|
|
Font
＜記述例＞
Range("A1").Font
|
|
|
|
|
|
|
Font.Name = フォント名（文字列）
＜記述例＞
Range("A1").Font.Name = "ＭＳ 明朝" |
|
|
|
|
|
|
Font.Size = 設定値（整数）
＜記述例＞
Range("A1").Font.Size = 14 |
|
|
|
|
|
Bold = 設定値（論理値）
使用例
セル「A1」のフォントを太字にする
Worksheets("Sheet1").Range("A1").Font.Bold = True
プロパティ
目的
-------------------------------------------
Italic
斜体
Strikethrough 取り消し線
Subscript
下付き文字
Superscript 上付き文字
Shadow
影付き
|
|
|
|
|
|
Underline = 線種（定数）
＜記述例＞
Range("A1").Font.Underline = xlUnderlineStyleSingle
定数
線種
-------------------------------------------
xlUnderlineStyleNone
下線なし
xlUnderlineStyleSingle
直線
xlUnderlineStyleDouble
二重線
xlUnderlineStyleSingleAccounting
直線（会計）
xlUnderlineStyleDoubleAccounting 二重線（会計）
|
|
|
|
|
|
Characters（開始位置，文字数）
＜記述例＞
Range("A1").Characters(1, 2) .Font.Italic = True
|
|
|
|
|
|
ColorIndex = 色番号
＜記述例＞
Range("A1:B4").Font.ColorIndex = 6
色番号 色 色番号
色
-----------------------------------
1 黒
7 マゼンタ
2 白 8
シアン
3 赤 9 茶
4 明るい緑
10 緑
5 青 11 紺
6
明るい黄色 12 うぐいす
|
|
|
|
|
|
Color = 設定値（16進数またはRGB関数の戻り値）
＜記述例＞
Range("A1").Font.Color = &HFFF
Range("A1").Font.Color = RGB(0, 255, 0)
|
|
|
|
|
|
RGB（Red, Green, Blue）
＜記述例＞
セル「A1」のフォントをサーモン色に設定する＞
Worksheets("Sheet1").Range("A1").Font.Color = RGB(250, 80, 160) |
|
|
|
|
|
Interior
＜記述例＞
Range("A1").Interior |
|
|
|
|
|
ColorIndex = 色番号
＜記述例＞
Range("A1").Interior.ColorIndex
= 6 |
|
|
|
|
|
Color = 設定値（16進数またはRGB関数の戻り値）
＜記述例＞
Range("A1").Interior.Color = RGB(255, 255, 0) |
|
|
|
|
|
Pattern = 設定値（定数）
＜記述例＞
Range("A1").Interior.Pattern = xlChecker
＜定数＞
xlPatternAutomatic xlPatternChecker
xlPatternCrissCross
xlPatternDown
xlPatternGray16 xlPatternGray25
xlPatternGray50
xlPatternGray75
xlPatternGray8 xlPatternGrid
xlPatternHorizontal
xlPatternLightDown
xlPatternLightHorizontal
xlPatternLightUp
xlPatternLightVertical xlPatternNone
xlPatternSemiGray75
xlPatternSolid
xlPatternUp xlPatternVertical |
|
|
|
|
|
PatternColorIndex = 色番号
＜記述例＞
Range("A1").Interior.PatternColorIndex = 6
PatternColor = 設定値（16進数またはRGB関数の戻り値）
＜記述例＞
Range("A1").Interior.PatternColor = ＆HFF
Range("A1").Interior.PatternColor
= RGB(255, 255, 0) |
|
|
|
|
|
Cells(1,1).Value=5
Cells(2,1).Value="abc"
|
