LineStyle
罫線または輪郭線の種類を設定します。
- 構文
- Borders.LineStyle
- 引数
- 戻値
定数一覧
XlBordersIndex
| 名前 | 値 | 説明 |
|---|
| xlDiagonalDown | 5 | 範囲内の各セルの左上隅から右下方向に実行される罫線。 |
| xlDiagonalUp | 6 | 範囲内の各セルの左下隅から右上への罫線。 |
| xlEdgeLeft | 7 | 範囲内の左端の罫線 |
| xlEdgeTop | 8 | 範囲内の上側の罫線 |
| xlEdgeBottom | 9 | 範囲内の下側の罫線 |
| xlEdgeRight | 10 | 範囲の右端の罫線 |
| xlInsideVertical | 11 | 範囲外の罫線を除く、範囲内のすべてのセルの垂直罫線 |
| xlInsideHorizontal | 12 | 範囲外の罫線を除く、範囲内のすべてのセルの水平罫線 |
CONST xlDiagonalDown = 5
CONST xlDiagonalUp = 6
CONST xlEdgeLeft = 7
CONST xlEdgeTop = 8
CONST xlEdgeBottom = 9
CONST xlEdgeRight = 10
CONST xlInsideVertical = 11
CONST xlInsideHorizontal = 12
XlLineStyle
| 名前 | 値 | 説明 |
|---|
| xlLineStyleNone | -4142 | 線なし |
| xlDouble | -4119 | 2本線 |
| xlDot | -4118 | 点線 |
| xlDash | -4115 | 破線 |
| xlContinuous | 1 | 実線 |
| xlDashDot | 4 | 一点鎖線 |
| xlDashDotDot | 5 | ニ点鎖線 |
| xlSlantDashDot | 13 | 斜破線 |
CONST xlLineStyleNone = -4142
CONST xlDouble = -4119
CONST xlDot = -4118
CONST xlDash = -4115
CONST xlContinuous = 1
CONST xlDashDot = 4
CONST xlDashDotDot = 5
CONST xlSlantDashDot = 13
プログラム実行例
罫線を引く
CONST xlEdgeTop = 8
CONST xlDiagonalUp = 6
CONST xlDouble = -4119
CONST xlDash = -4115
CONST xlContinuous = 1
DIM Excel = ExcelBoot()
WITH Excel
.Range("B2").Borders.LineStyle = xlContinuous
.Range("B4").Borders(xlEdgeTop).LineStyle = xlDash
.Range("B6").Borders(xlDiagonalUp).LineStyle = xlDouble
.Range("D2:F6").Borders.LineStyle = xlContinuous
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
表を作成
// XlBordersIndex
CONST xlDiagonalDown = 5
CONST xlEdgeLeft = 7
CONST xlEdgeTop = 8
CONST xlEdgeBottom = 9
CONST xlEdgeRight = 10
// XlLineStyle
CONST xlDouble = -4119
CONST xlContinuous = 1
// XlBorderWeight
CONST xlThick = 4
DIM Excel = ExcelBoot()
WITH Excel
.Range("B2:F6").Borders.LineStyle = xlContinuous
.Range("B2:F6").BorderAround(xlContinuous, xlThick)
.Range("F2:F6").Borders(xlEdgeLeft).LineStyle = xlDouble
.Range("B6:F6").Borders(xlEdgeTop).LineStyle = xlDouble
.Range("B2").Borders(xlDiagonalDown).LineStyle = xlContinuous
WITH .Range("B2:B6").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
ENDWITH
WITH .Range("B2:F2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
ENDWITH
ENDWITH
//////////////////////////////////////////////////
// 【引数】
// path : 開くファイルのパス名
// 【戻値】
// Excelオブジェクト
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
IFB path = "" THEN
Excel.Workbooks.Add
ELSE
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
IFB FSO.GetParentFolderName(path) = "" THEN
path = GET_CUR_DIR + "\" + path
ENDIF
Excel.Workbooks.Open(path)
ENDIF
RESULT = Excel
FEND
- 結果
解説
- 18行目
.Range("B2:F6").Borders.LineStyle = xlContinuous
セル範囲B2:F6に格子の罫線を引きます。
- 19行目
.Range("B2:F6").BorderAround(xlContinuous, xlThick)
セル範囲B2:F6に太線で外枠罫線を引きます。
- 20行目
.Range("F2:F6").Borders(xlEdgeLeft).LineStyle = xlDouble
セル範囲F2:F6に2本線の左罫線を引きます。
- 21行目
.Range("B6:F6").Borders(xlEdgeTop).LineStyle = xlDouble
セル範囲B6:F6に2本線の上罫線を引きます。
- 22行目
.Range("B2").Borders(xlDiagonalDown).LineStyle = xlContinuous
セルB2に左上から右下の斜線を引きます。
- 23-26行目
WITH .Range("B2:B6").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
ENDWITH
セル範囲B2:B6に太線で右罫線を引きます。
- 27-30行目
WITH .Range("B2:F2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
ENDWITH
セル範囲B2:F2に太線で下罫線を引きます。
