- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
自己修改成如下,在2007、2013試跑過,可以解決。
工作表5.Range(Cells(11, 12), Cells(22, C)).Select
With Selection
.Borders.LineStyle = xlContinuous '格線
.Font.Name = "新細明體" '字體
.Font.Size = 14 '字型大小
.ShrinkToFit = True '字體縮至欄寬大小
.HorizontalAlignment = xlGeneral '左右置中
.VerticalAlignment = xlCenter '上下置中
End With |
|