- 帖子
- 522
- 主題
- 36
- 精華
- 1
- 積分
- 603
- 點名
- 0
- 作業系統
- win xp sp3
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-12-13
- 最後登錄
- 2021-7-11
|
2#
發表於 2016-3-19 15:10
| 只看該作者
本帖最後由 yen956 於 2016-3-19 15:12 編輯
Borders(i) 常數表
7 選取區的左邊 xlEdgeLeft = 7
8 選取區的上面 xlEdgeTop = 8
9 選取區的下面 xlEdgeBottom = 9
10 選取區的右邊 xlEdgeRight = 10
11 選取區內部的垂直線 xlInsideVertical = 11
12 選取區內部的水平線 xlInsideHorizontal = 12
＊如果想要在選取區畫大斜線,
則先將選取區合併為一格, 再用Borders(5) 或 Borders(6)
請用遂步執行, 遂步觀察即可
Sub 畫格線測試()
Range("B2:G7").Select
With Selection
For i = 7 To 12
.Borders(i).LineStyle = xlContinuous
.Borders(i).Weight = xlMedium
Next
End With
End Sub |
|
