標題: 選取所有框線 [打印本頁]

---

作者: chairles59    時間: 2016-3-19 12:24     標題: 選取所有框線

各位大大好:
有個問題想請教
關於已經選取儲存格區域要選擇所有線框標線框
請問VBA語法要如何寫

---

作者: yen956    時間: 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

---

作者: chairles59    時間: 2016-3-19 22:23

回復 2# yen956

謝謝大大的指導

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)