返回列表 上一主題 發帖

[發問] 判斷繪製選取格線的範圍

[發問] 判斷繪製選取格線的範圍

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

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,可否使用判斷是繪製格線?

回復 1# EddieLiang

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

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

TOP

回復 2# EddieLiang

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

改為

ActiveSheet.Range("A4").End(xlDown).End(xlToRight).Borders.LineStyle = xlContinuous '無法執行
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 3# ML089

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

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題