標題: [發問] 判斷繪製選取格線的範圍 [打印本頁]

---

作者: EddieLiang    時間: 2016-5-17 16:37     標題: 判斷繪製選取格線的範圍

有查到繪製格線的語法為手動方式繪製格線

Sub 繪製外框線()
MsgBox “在所選取的儲存格範圍四周繪製外框線”
With Selection
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
End Sub


假設表格如下

A B C D E
1  2 3 4 5
6  7  8 9 1

固定左上A4則J欄則判斷最後一欄有值為繪製範圍,例如J20,可否使用判斷是繪製格線?

---

作者: EddieLiang    時間: 2016-5-18 09:20

回復 1# EddieLiang

'選取以A1為基準，向下和向右所有連續資料的儲存格
ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Select

'資質愚昧改為這樣卻無法運行
ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Selection.Borders.LineStyle = xlContinuous '無法執行

---

作者: ML089    時間: 2016-5-18 16:09

回復 2# EddieLiang

ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Selection.Borders.LineStyle = xlContinuous '無法執行

改為

ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Borders.LineStyle = xlContinuous '無法執行

---

作者: EddieLiang    時間: 2016-5-20 10:08

回復 3# ML089

感謝大大這個方法比較複雜也讓有需要的人參考一下!
Worksheets.Select '工作表選取
Range("A4").Select 'A4儲存格為起點
Range(Selection, Selection.End(xlToRight)).Select '選取往右
Range(Selection, Selection.End(xlDown)).Select '選取往下

---

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