返回列表 上一主題 發帖

格線問題

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 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: 3Rank: 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
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

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


    有試過，沒有用。
學習才能提升自己

TOP

clio

帖子
132 
主題
31 
精華
0 
積分
167 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-4-14 
最後登錄
2024-2-28 

2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章
3#
發表於 2016-3-29 12:12 | 只看該作者
我的是2007，我試我的可以使用說
clio

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2016-3-29 10:41 | 只看該作者
回復 1# hugh0620


    聽講2007有很多bugs,試試將 xlContinuous 改成 1

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題