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

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

linshin1999

中學生 Rank: 2

帖子: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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

linshin1999