Excelマクロ覚書 ~罫線編~
図書館で借りてきた某書籍の覚書です。
- 【罫線を設定する】
- 【セル下側に罫線を設定する】
- 【罫線の色を設定する】
- 【罫線の太さを変更する】
- 【表示形式をカンマ区切りにする】
- 【表示形式を指定した日付にする】
- 【セルの塗りつぶしの設定をする】
- 【セルの背景色の設定をする】
【罫線を設定する】
罫線を設定するにはFontメソッドのBordersプロパティを使う。
(sつけるのを忘れないように!)
Rangeオブジェクト.Borders.LineStyle = 値
※指定できる値
xlContinuous | :実践 |
xlDash | :破線 |
xlDashDut | :一点鎖線 |
xlDashDotDot | :二重鎖線 |
xlDot | :点線 |
xlDouble | :2本線 |
xlSlantDashDot | :斜破線 |
xlLineStyleNone | :罫線の設定を解除する |
Range("A1").Borders.LineStyle = xlContinuous 'A1セルに実践の罫線をつける'
【セル下側に罫線を設定する】
セル下側に罫線を設定するにはBordersプロパティで指定する。
Rangeオブジェクト.Borders(値)
※指定できる値
xlDiagonalDown | :セルの左上隅から右下への罫線 |
xlDiagonalUp | :セルの左下隅から右上への罫線 |
xlEdgeBottom | :下側の鎖線 |
xlEdgeLeft | :左端の罫線 |
xlEdgeRight | :右端の罫線 |
xlEdgeTop | :上側の罫線 |
xlInsideHorizontal | :指定した範囲内のすべてのセルの水平罫線 |
xlInsideVertical | :指定した範囲内のすべてのセルの垂直罫線 |
Range("A1").Borders(xlEdgeRight).LineStyle = xlDash 'A1セルの下側に破線をつける'
【罫線の色を設定する】
セル下側に罫線を設定するにはBordersプロパティで指定する。
Range("A1").Borders.Color = RGB(0, 0, 255) 'A1セルの罫線の色を青に設定'
【罫線の太さを変更する】
罫線の太さを変更するにはWeightプロパティで指定する。
Rangeオブジェクト.Bordersオブジェクト.Weight = 値
※指定できる値
xlHairline | :細線(最も細い罫線) |
xlMedium | :普通 |
xlThick | :太線(最も太い罫線) |
xlThin | :極細 |
Range("A1").Borders(xlEdgeBottom).Weight = xlThick 'A1セルの下側に太線をつける'
【表示形式をカンマ区切りにする】
書式をカンマ区切りにするにはNumberFormatLocalプロパティを使う。
Rangeオブジェクト.NumberFormatLocal = 設定値
※指定できる値
# | :1桁の数字。指定した桁数未満の場合は表示されない。 |
0 | :1桁の数字。指定した桁数未満の場合でも表示される。 |
Range("A1").NumberFormatLocal = "\#,##0" 'A1セルに3桁までの金額が表示される。'
【表示形式を指定した日付にする】
書式を日付(yyyy/mm/dd)にする場合も、NumberFormatLocalプロパティを使う。
Rangeオブジェクト.NumberFormatLocal = 設定値
※指定できる値
yy | :西暦年(下2桁) |
yyyy | :西暦年(4桁) |
g | :元号(アルファベット) |
gg | :元号(先頭文字) |
ggg | :元号 |
e | :月(1~12) |
mmm | :月(英語簡略表記) |
mmmm | :月(英語表記) |
mmmmm | :月(英語表記の先頭文字) |
d | :日(1~31) |
dd | :日(01~31) |
ddd | :曜日(英語簡略表記) |
dddd | :曜日(日本語簡略表記) |
aaa | :曜日(日本語簡略表記) |
aaaa | :曜日(日本語表記) |
h | :時(0~23) |
hh | :時(00~23) |
m | :分(0~59) |
mm | :分(00~59) |
s | :秒(0~59) |
ss | :秒(00~59) |
Range("A1").NumberFormatLocal = "YYYY/MM/DD" 'A1セルにyyyy/mm/dd形式で日付を表示する。'
【セルの塗りつぶしの設定をする】
セルを塗りつぶすには、Interiorプロパティを使う。
Rangeオブジェクト.Interior.Color = RGB(0, 0, 255)
Rangeオブジェクト.Interior.Color = 色名
※指定できる色
rgbAqua | :水色 |
rgbBlack | :黒 |
rgbBlue | :青 |
rgbForestGreen | :フォレストグリーン |
rbgGreen | :緑色 |
rgbLime | :黄緑 |
rgbNavy | :ネイビー |
rgbRed | :赤 |
rgbWhite | :白 |
rgbYellow | :黄 |
Range("A1").Interior.Color = rgbBlue 'A1セルを青にする。'
【セルの背景色の設定をする】
セルの背景色の設定をするには、ThemeColorプロパティを使う。
また、TintAndShadeプロパティを使うことで基本色の割合を設定できる。
(正の値だと白、負の値だと黒)
Rangeオブジェクト.Interior.ThemeColor = 色名
Rangeオブジェクト.Interior.TintAndShade = 数値
※指定できる色
xlThemeColordark1 | :白色 |
xlThemeColorLight1 | :黒 |
xlThemeColorDark2 | :ベージュ |
xlThemeColorLight2 | :濃い青 |
xlThemeColorAccount1 | :青 |
xlThemeColorAccount2 | :赤 |
xlThemeColorAccount3 | :オリーブ |
xlThemeColorAccount4 | :紫 |
xlThemeColorAccount5 | :アクア |
xlThemeColorAccount6 | :オレンジ |
Range("A1").Interior.ThemeColor = xlThemeColorDark2 'A1セルの背景色をベージュ基調の色にする。'