帶有邊框的運行時錯誤'438'

Question

我有以下代碼，符合要求。 但是，當它運行時，它會添加細邊框，但是粗邊框會給我一個Run-time 438 error 。

 Border = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
Range("A3:H" & Border).Select
    With Selection.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Range("A3:H" & Border).BorderAround_
    Weight = xlThick

我的目標是在所有單元周圍提供邊框，然后在邊緣周圍提供粗邊框。 任何幫助都會很棒。 謝謝！

Answer 1

問題在於BorderAround 方法的語法樣式與Border 對象之間的區別。 權Weight參數是內部參數名稱，而不是屬性（我希望我正確地描述了這一點！）。

Dim border As Long
border = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
With Range("A3:H" & border).Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
Range("A3:H" & border).BorderAround Weight:=xlThick

將權重分配給BorderAround時，請注意使用冒號BorderAround 。