返回列表 上一主題 發帖

清除 列印範圍外的格線

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-26 09:03 | 只看該作者

清除 列印範圍外的格線

各位好,

我想請問一下, 我要怎麼清除列印範圍外的格線?   (以下是清除清除列印範圍外的"資料", 但格線還是在)

Dim pValues As Variant
With ActiveSheet
    pValues = .Range(.PageSetup.PrintArea).Value
    .Cells.ClearContents
    .Range(.PageSetup.PrintArea).Value = pValues

End With
End Sub

感謝!
收藏 分享

yc1031

帖子
106 
主題
35 
精華
0 
積分
146 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2024-3-26 
3#
發表於 2012-8-8 10:07 | 只看該作者
回復 2# hugh0620


    非常感謝您!

我剛有試了, 是成功的, 謝謝 :D

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2012-7-26 17:23 | 只看該作者
回復 1# yc1031


Dim pValues As Variant
With ActiveSheet
    .Cells.Borders.LineStyle = xlNone   '格線的處理
    .Range(.PageSetup.PrintArea).Borders.LineStyle = xlContinuous
End With
學習才能提升自己

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題