返回列表 上一主題 發帖

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

EddieLiang

帖子
19 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
Win7 
軟體版本
office2013 
閱讀權限
10 
註冊時間
2015-8-13 
最後登錄
2017-4-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
19 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
Win7 
軟體版本
office2013 
閱讀權限
10 
註冊時間
2015-8-13 
最後登錄
2017-4-11 
2#
發表於 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 '無法執行

TOP

EddieLiang

帖子
19 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
Win7 
軟體版本
office2013 
閱讀權限
10 
註冊時間
2015-8-13 
最後登錄
2017-4-11 
3#
發表於 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 '選取往下

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題