|
こんにちは。かみちゃん です。
横から失礼します。
> Hirofumiさんの直してくださったコードを使っていたところ1日と2日に土日が来る場合(4月や7月)、その最初の土日(1日と2日、セル番地はC5とD5)に反応していない
私もカレンダーをよく使っていますので、コードを検証してみました。
以下の部分を修正するとうまく動きます。
ただし、小の月、うるう年の処理は必要ないのでしょうか?
Sub Test()
'〜省略〜
With rngCurrent
'〜省略〜
'青太線の出力
'--- 修正
'For kei = 2 To 32
For kei = 0 To 30
'--------
With .Offset(, kei).Resize(28)
Select Case .Item(2, 1).Value
Case Is = 7
'〜省略〜
'--- 追加
If kei = 30 Then
With .Borders(xlEdgeRight)
.Weight = xlMedium
.ColorIndex = 11
End With
End If
'--------
Case Is = 1
'--- 追加
If kei = 0 Then
With .Borders(xlEdgeLeft)
.Weight = xlMedium
.ColorIndex = 11
End With
End If
'--------
'〜省略〜
End Select
End With
Next kei
End With
Set rngCurrent = Nothing
Application.ScreenUpdating = True
End Sub
|
|