標題: [發問] xlEdgeLeft 可以當作引數傳給 Borders() 嗎? [打印本頁]

---

作者: linshin1999    時間: 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,       可以用引數的方式傳過去嗎?

如果可以的話會很方便,如果可以的話要如何寫? 謝謝!!

---

作者: oobird    時間: 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

---

作者: linshin1999    時間: 2011-1-7 16:16

木工版主: 你的意思是  xlEdgeLeft,xlDouble,xlMedium 它們都有一代碼,我只要傳代碼過去就可了嗎?

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

---

作者: oobird    時間: 2011-1-7 16:23

不錯，它們都有一個代碼。
有些好記，有些不好記，我只記好記的。
難記的就乖乖打出來，如xlDouble，xlMedium

---

作者: linshin1999    時間: 2011-1-7 17:04

本帖最後由 linshin1999 於 2011-1-7 20:05 編輯

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


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)