|
こんにちは、よろしくお願いします。
Cell(4.5)に〇月1日のシリアルがあり、横長のカレンダーが置いてあります。
縦軸はメンバーのシフト表が32行目までありましたが、
事情により37行目まで増やしました。
7年ぐらい前にここで土日に青太線で囲むマクロを作っていただきました。
ところが今それを使うとまともに動かないことがわかりました。
原因がエクセルのバージョンのせいか、行を増やしたせいなのか
恥ずかしながらよくわかりません。
コードを見ていただいて修正していただけたら幸いです。
_________________________________________________________
Sub 罫線作成3()
' 罫線作成 Macro
' マクロ記録日 : 2006/3/13 ユーザー名 :
Dim rngCurrent As Range
Dim kei As Integer
Set rngCurrent = ActiveSheet.Cells(4, 5)
Application.ScreenUpdating = False
With rngCurrent
With .Resize(29, 31)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End With
'青太線の出力
For kei = 0 To 30
With .Offset(, kei).Resize(29)
Select Case .Item(37, 1).Value
Case Is = 7
With .Borders(xlEdgeLeft)
.Weight = xlMedium
.ColorIndex = 11
End With
With .Borders(xlEdgeTop)
.Weight = xlMedium
.ColorIndex = 11
End With
With .Borders(xlEdgeBottom)
.Weight = xlMedium
.ColorIndex = 11
End With
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
With .Borders(xlEdgeTop)
.Weight = xlMedium
.ColorIndex = 11
End With
With .Borders(xlEdgeBottom)
.Weight = xlMedium
.ColorIndex = 11
End With
With .Borders(xlEdgeRight)
.Weight = xlMedium
.ColorIndex = 11
End With
End Select
End With
Next kei
End With
Set rngCurrent = Nothing
Application.ScreenUpdating = True
以上です。自分でも数字をいじってみましたが、ますます動かなくなりました。
よろしくお願いします
|
|