返回列表下一主題上一主題發帖

格線問題

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-3-29 09:18 | 只看該作者

格線問題

Dear 大大

      問題如下圖：
      不知道為什麼，在excel 2013執行沒問題，在2007就會產生錯誤
      請指導一下

樓主熱帖

學習才能提升自己

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

5^#

發表於 2016-3-29 13:55 | 只看該作者

自己修改成如下，在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

學習才能提升自己

TOP

hugh0620