- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 1# yc1031
Dim pValues As Variant
With ActiveSheet
.Cells.Borders.LineStyle = xlNone '格線的處理
.Range(.PageSetup.PrintArea).Borders.LineStyle = xlContinuous
End With |
|
發表於 2012-7-26 17:23
| 