返回列表 上一主題 發帖

[發問] xlEdgeLeft 可以當作引數傳給 Borders() 嗎?

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-1-7 12:06 | 只看該作者

[發問] xlEdgeLeft 可以當作引數傳給 Borders() 嗎?

本帖最後由 linshin1999 於 2011-1-7 13:47 編輯

各位前輩你們好:儲存格劃框線如下所示:
  
  Range("F1:J51").Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlDouble
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    ......................................................................很多...很多..............
    其中.Borders(xlEdgeLeft)      xlEdgeLeft, 可以用引數的方式傳過去嗎?
          .LineStyle = xlDouble     xlDouble,     可以用引數的方式傳過去嗎?
          .Weight = xlThick           xlThick,       可以用引數的方式傳過去嗎?

如果可以的話會很方便,如果可以的話要如何寫? 謝謝!!
收藏 分享
V98

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
5#
發表於 2011-1-7 17:04 | 只看該作者
本帖最後由 linshin1999 於 2011-1-7 20:05 編輯

我要回家了,若有問題回家再找你,謝謝!!


木工版主謝啦!!以 數值型態傳過去就 OK 了!
V98

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2011-1-7 16:23 | 只看該作者
不錯，它們都有一個代碼。
有些好記，有些不好記，我只記好記的。
難記的就乖乖打出來，如xlDouble，xlMedium

TOP

linshin1999

帖子
199 
主題
45 
精華
0 
積分
252 
點名
0  
作業系統
windows 7 (X64) 
軟體版本
office 2010 (x64) 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2010-12-24 
最後登錄
2020-3-31 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2011-1-7 16:16 | 只看該作者
木工版主: 你的意思是  xlEdgeLeft,xlDouble,xlMedium 它們都有一代碼,我只要傳代碼過去就可了嗎?

另外引數傳過去的意思是指,我寫一個副程式,只要把這些值當引數傳過就可以了,意思就如你所說的,謝謝!!
V98

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-1-7 16:06 | 只看該作者
不太明白用引數傳過去的意思。
是這樣嗎？
With Range("F1:J51")
    With .Borders(7)
        .LineStyle = xlDouble
        .Weight = 4
    End With
    With .Borders(8)
        .LineStyle = 1
        .Weight = xlMedium
    End With
End With

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題