Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6411 / 13644 ツリー ←次へ | 前へ→

【45334】条件付書式をプラス とし 06/12/20(水) 1:54 質問[未読]
【45356】Re:条件付書式をプラス とし 06/12/20(水) 14:05 発言[未読]

【45334】条件付書式をプラス
質問  とし  - 06/12/20(水) 1:54 -

引用なし
パスワード
   以前教えていただいたコードに条件付書式をプラスしたいのですが
できるでしょうか?よろしくお願いします。
過去検索で探したのですが見つかりませんでした。
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

【45356】Re:条件付書式をプラス
発言  とし  - 06/12/20(水) 14:05 -

引用なし
パスワード
   あきらめました。

6411 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free