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

linshin1999

各位前輩你們好:儲存格劃框線如下所示:
  
  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

不太明白用引數傳過去的意思。
是這樣嗎？
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

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

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

oobird

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

linshin1999

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


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