[[20050524113302]]　『勤務表で休みの日は斜線をいれたい』（ひろひろ）　ページの最後に飛ぶ

『勤務表で休みの日は斜線をいれたい』（ひろひろ）
たびたびすいません。おかげさまで自動で日付と曜日が変更できるようになったので、土・日曜日の休みの日に出勤、退社、休憩時間をいれるセルにそれぞれ斜線を引きたいのですが、どうしたらいいでしょうか？教えてください。

 残念ながら、自動で斜線は引けません。
 変わりにするとすればどのようなものが良いでしょうか。
 赤で色を塗るってことなら可能です。

 （川野鮎太郎）
ありがとうございました。川野さんのおかげで立派な勤務表ができました。（ひろひろ）

 そこで、曜日のセルを調べ、日・土曜日なら、指定のセルを選択して
 下記コードを実施するマクロコードを組めば可能と思います。
  土・日曜日の判断はどうするのか？
 文字をチェックし、セルの文字が「日曜日」、「土曜日」ならその
 関係のセルに斜線を入れるということになるでしょうか。

Sub test()

    With Selection.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

End Sub

なおさんありがとうございます。実はマクロを使ったことがないのでまったくわかりません。ちょっと勉強してみます。ありがとうございました。

コメント返信：