|
以前教えていただいたコードに条件付書式をプラスしたいのですが
できるでしょうか?よろしくお願いします。
過去検索で探したのですが見つかりませんでした。
Sub 転記()
Dim II As Integer, RR As Long, CC As Long
For II = 1 To 14
Select Case II
Case 1 To 7: RR = 7 + II * 3: CC = 6 '上から7つはF列3つおき
’--------↑--------↑このコードのセルに下記書式を埋め込みたい。↑------
F10,F13,F16,F19,F22,F25,F28です
Case Else: RR = 24 + II: CC = 5 '残りはE列
End Select
'
Worksheets("sheet1").Cells(RR, CC).Resize(1, 2) _
.Value = "=Calendar!H" & (4 + II)
Next
End Sub
上記に↓の書式をプラス(下記はマクロの記録でF10のみ記録したものです)
一度既条件付書式をクリアにして下記をF10,F13,F16,F19,F22,F25,F28に
再設定したい。
Sub 条件書式()
Range("F10:H10").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF(祝日,$F10)"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
Selection.FormatConditions(1).Interior.ColorIndex = 38
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NOT(ISERROR(FIND(""土休"",F10)))"
Selection.FormatConditions(2).Interior.ColorIndex = 55
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WEEKDAY($C11)=1"
Selection.FormatConditions(3).Interior.ColorIndex = 38
End Sub
|
|