Wie wird diese Bereichsgrenze festgelegt?

Question

Ich möchte die Grenze so einstellen.

Mein Code kann den Effekt wie in der Abbildung nicht durchführt, ist die Mitte leer (ohne Rand) mit dieser Grenze Dicke.

Der Bereich ist A4:B30.

With Range(Cells(6, 1), Cells(row, 2))' row is second last row 
    .Borders.LineStyle = xlContinuous 
    .Weight = xlHairline 
End With 

Wie kann ich eine dünne mittlere Grenze zwischen den inneren Zellen meiner Reichweite bekommen?

Answer 1

Bei kosmetischen Änderungen versuchen Sie immer, Makro aufzunehmen und den Code zu lesen. Das ist der beste Weg. :)

Sub testBorders() 

With Range(Cells(6, 1), Cells(30, 2)).Borders(xlEdgeRight) 
'/(xlEdgeRight) sets the border only to right most cells 
.LineStyle = xlContinuous 
.Weight = xlMedium '/ as per your pic you are looking for medium weight. 
End With 

End Sub