エクセルVBAにおける罫線の色指定について
エクセルVBAの初心者です。
使用機種はWindows VistaでExcel2007です。
後に示すコードではどうして("B4:H7")までの下罫線と
("C4:H8")までの左罫線が青色にならず、黒色のまま
になるのでしょうか?("B4:H7")、("C4:H8")ともに
罫線の色は青色にしたいと思っています。
原因と対処方法をご存知の方ご教示願います。
画像も添付しておりますので、合わせてご参照ください。
Sub 日程表作成()
Set WS1 = Worksheets("sheeT1")
With WS1
.Range("B3") = "日"
.Range("B3").Select
End With
Selection.AutoFill Destination:=Range("B3:H3")
WS1.Range("B3:H3").Select
With Selection.Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With Selection.Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With Selection.Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With Selection.Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
'下線を二重線に変える
Range("B3:H3").Select
Selection.Borders(xlBottom).LineStyle = xlDouble
WS1.Range("B3:H8").BorderAround Weight:=xlThick, _
ColorIndex:=5, LineStyle:=xlContinuous
WS1.Range("B3:H8").RowHeight = 35
'日程表の中に横線を入れる
WS1.Range("B4:H7").Select
Selection.Borders(xlBottom).LineStyle = xlContinuous
WS1.Range("B3:H8").BorderAround Weight:=xlThick, _
ColorIndex:=5, LineStyle:=xlContinuous
'日程表の中に縦線を入れる
WS1.Range("C4:H8").Select
Selection.Borders(xlLeft).LineStyle = xlContinuous
WS1.Range("B3:H8").BorderAround Weight:=xlThick, _
ColorIndex:=5, LineStyle:=xlContinuous
'曜日のセルを塗りつぶす
With WS1
.Range("B3:B8").Interior.ColorIndex = 38
.Range("C3:G8").Interior.ColorIndex = 19
.Range("H3:H8").Interior.ColorIndex = 19
.Range("B4").Activate
End With
End Sub
お礼
それはいい方法ですね。 私も使わせてもらいます。 ありがとうございました。