変更の境界線と線種

Question

[

それは、私が私のテーブルの周りに適切な境界線を取得しようとしていますが、毎回私は色に基づいて特定の範囲の周りにそれを作ってみます点線で出てくる。私は実線を欲しがっていますが、私はラインスタイルの作品に何もしていないようです。私はまた、赤いボックス内に黒い縦線を置いておきたくありませんが、破線で囲まれていない線を得るには唯一の方法でした。私が付けた最初の写真は私のもののように見え、二番目の写真は私が私のように見えるものです。ここで私が同様に使用してきたコードは次のとおりです。

Sub borders() 
' 
' borders and colors 
' 

' 
'B column = blue 

    range("B2:B46, D2:D6").Select 
    Selection.BorderAround 
    With Selection.Interior 

     .Color = 6108951 

    End With 

    'C column = gray 

    range("C2:C6").Select 
    With Selection.borders(xlLeft) 
    .Weight = xlThin 
    End With 
    With Selection.borders(xlRight) 
    .Weight = xlThin 
    End With 

    With Selection.Interior 
    .Color = 12632256 
    End With 


    range("C7:C46").Select 
    Selection.borders.LineStyle = xlContinuous 
    With Selection.Interior 
    .Color = 12632256 
    End With 

    'thin columns = gray 
    range("E2:E46, I2:I46, M2:M46, Q2:Q46, U2:U46, Y2:Y46, AC2:AC46, AG2:AG46, AK2:AK46, AO2:AO46, AS2:AS46").Select 
    Selection.BorderAround (xlThin) 
    Selection.borders.LineStyle = xlContinuous 
    With Selection.Interior 
    .Color = 11711154 
    End With 

    'rows gray 
    range("B21, B36, B43, B46").Select 
    With Selection.Interior 
    .Color = 12632256 
    End With 

'categories gray 

range("D7:D45").Select 
Selection.borders.LineStyle = xlContinuous 

With Selection.Interior 
.Color = 15395562 
    End With 

    'red rows 
    range("C21:AS21, C36:AS36, C43:AS43, C46:AS46").Select 
    Selection.BorderAround (xlThin) 
    Selection.borders.LineStyle = xlContinuous 
    'Selection.Border -Style: Solid 
     With Selection.Interior 
     .Color = 128 
    End With 


    'outside thick border 

range("B2:AX46").Select 
    Selection.BorderAround , Weight:=xlThick 


    'border around trigger, weight, limit 
    range("AU5:AW20").Select 
    Selection.borders.LineStyle = xlContinuous 

    range("AU5:AW6").Select 
    Selection.borders.LineStyle = xlNone 
    Selection.BorderAround (xlThin) 




    End Sub 

Answer 1

たぶん、それをすべての呼び出しを1つ作ってみるので、

'thin columns = gray 
    range("E2:E46, I2:I46, M2:M46, Q2:Q46, U2:U46, Y2:Y46, AC2:AC46, AG2:AG46, AK2:AK46, AO2:AO46, AS2:AS46").Select 
    Selection.BorderAround Weight:=xlThin, LineStyle:= xlContinuous 
    With Selection.Interior 
    .Color = 11711154 
    End With