よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13164 / 1階層)  勤務表に斜線を引きたい
□投稿者/ よねさん -(2017/06/04(Sun) 10:49:54)
    > 罫線で右上がり斜め線と左上がり斜め線、両方を引きたいのですが、何か方法はありませんでしょうか。
    条件付き書式では無理なようですから、VBAで処理するのはいかがでしょうか。
    とりあえず、休日の中にA列の日付があったら、結合されたC列〜E列に斜線を引きます。
    こんな感じで処理したらいかがでしょう。
    
    Sub test()
    Dim i As Long
    Dim Ans As Boolean
        For i = 2 To 32
            Ans = Application.WorksheetFunction.CountIfs(Range("休日"), Cells(i, 1).Value) >= 1
            If Ans = True Then
                With Range(Cells(i, 3), Cells(i, 5))
        
                    .Borders(xlDiagonalDown).LineStyle = xlContinuous
                    .Borders(xlDiagonalUp).LineStyle = xlContinuous
                End With
            End If
        Next i
    
    End Sub
    

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←勤務表に斜線を引きたい /ぺこ →Re[2]: 勤務表に斜線を引きたい /ぺこ
 
上記関連ツリー

Nomal 勤務表に斜線を引きたい / ぺこ (17/06/03(Sat) 23:26) #13163
Nomal 勤務表に斜線を引きたい / よねさん (17/06/04(Sun) 10:49) #13164 ←Now
  └Nomal Re[2]: 勤務表に斜線を引きたい / ぺこ (17/06/05(Mon) 13:19) #13165
    └Nomal Re[3]: 勤務表に斜線を引きたい / よねさん (17/06/05(Mon) 13:35) #13166
      └Nomal Re[4]: 勤務表に斜線を引きたい / ぺこ (17/06/05(Mon) 14:44) #13167

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -