Excelのマクロ（VBA）を使い、指定のシートの複数のセルに斜線を表示したい

Question

実現したいこと

ExcelのVBAを使い、特定の文字列が入力された時のみ指定のセルに斜線を表示したい。

前提

エクセルで「入力」「出力１」「出力２」「出力３」・・・「出力３０」とシートがあります。
「入力」の"C7"セルに「A」「B」「C」の３パターンが入力された場合に「出力１」シートの"B5""C5""D5""J5"のそれぞれのセルに書式設定の斜線を表示したいです。"C7"セルに「D」「その他」「　」（未入力）の時は斜線は表示されないようにしたいです。
同じ感じで「入力」の"C8"のセルに「A」「B」「C」と入力されたときは「出力２」に斜線表示、"C9"は「出力３」…といった感じで処理をしたいのですが、可能でしょうか？

補足情報（FW/ツールのバージョンなど）

Windows11
Microsoft365　Excel

Answer 1

下記でどうでしょう。

「入力」シートのモジュール

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, c As Range
    Set r = Intersect(Target, Range("C7:C36"))
    If r Is Nothing Then Exit Sub
    For Each c In r
        With Worksheets("出力" & c.Row - 6).Range("B5,C5,D5,J5").Borders(xlDiagonalUp)
            Select Case c.Value
            Case "A", "B", "C"
                .LineStyle = xlContinuous
            Case Else
                .LineStyle = xlNone
            End Select
        End With
    Next
End Sub