カテゴリー
SugiBlog ホームページ制作・システム開発|大阪

Excel 罫線等の定数まとめ【Access】

この記事は最終更新日から1年以上経過しています。

AccessからExcelを操作し、罫線等を設定する場合、私自身もいつも定数の値が何だったかいちいち調べているので、備忘録も兼ねて書いておきます。

まずは全体の流れ

Dim ws

Dim xlApp      As Object
Dim xlBook     As Object
Dim xlSheet    As Object
Dim FileName   As String

Set ws = CreateObject("WScript.Shell")

FileName = ws.SpecialFolders("Desktop") & "\雛形.xlsx"

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
Set xlSheet = xlBook.WorkSheets(1)

With xlSheet
    'このブロック内に書いていきます
End With

'保存
xlBook.Save

xlBook.Close

xlApp.Application.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

罫線を引く

.Range("A1:I1").Borders.LineStyle = 1
.Range("A1:I1").Borders(8).LineStyle = -4118
.Range("A1:I1").Borders(11).LineStyle = -4115
.Range("A1:I1").Borders(11).Weight = 1

罫線の種類 LineStyle
定数
xlContinuous 実践 1
xlDash 破線 -4115
xlDashDot 一点破線 4
xlDashDotDot 二点破線 5
xlDot 点線 -4118
xlDouble 二重線 -4119
xlLineStyleNone 罫線なし -4142
xlSlantDashDot 斜線 13
罫線の太さ Weight
定数
xlHairline 極細 1
xlMedium -4138
xlThick 4
xlThin 2
個別罫線の指定 Borders([値])
定数
xlDiagonalDown 右下がり斜線 5
xlDiagonalUp 右上がり斜線 6
xlEdgeBottom 下辺 9
xlEdgeLeft 左辺 7
xlEdgeRight 右辺 10
xlEdgeTop 上辺 8
xlInsideHorizontal 内側の水平線 12
xlInsideVertical 内側の垂直線 11

横位置、縦位置の指定

.Range("A1").Value = "Example Excel.Application."
.Range("A1").HorizontalAlignment = -4108 '中央揃え
.Range("A1").VerticalAlignment = -4108   '中央揃え
.Range("A1").ShrinkToFit = True
横位置の指定 HorizontalAlignment([値])
定数
xlHAlignCenter 中央揃え -4108
xlHAlignDistributed 均等割り付け -4117
xlHAlignJustify 両端揃え -4130
xlHAlignLeft 左詰め(インデント) -4131
xlHAlignRight 右詰め -4152
xlHAlignCenterAcrossSelection 選択範囲内で中央 7
xlHAlignFill 繰り返し 5
xlHAlignGeneral 標準 1
横位置の指定 VerticalAlignment([値])
定数
xlVAlignBottom 下詰め -4107
xlVAlignCenter 中央揃え -4108
xlVAlignDistributed 均等割り付け -4117
xlVAlignJustify 両端揃え -4130
xlVAlignTop 上詰め -4160

縮小して全体を表示する

.Range("A1").ShrinkToFit = False

色指定

.Range("A1").Borders.Color = RGB(255, 0, 0)

また、指定する際にいちいち数値だと分かりにくいので定数を宣言しておくと分かりやすいです。

Const xlContinuous = 1
Const xlThick = 4

この記事がお役に立ちましたらシェアお願いします

2,998 views

コメントは受け付けていません。