返回列表 上一主題 發帖

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

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

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 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 '無法執行
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

EddieLiang

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

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題