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

実現したいこと

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

前提

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

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

Windows11
Microsoft365　Excel

行動規範の内容に同意します

回答1件

下記でどうでしょう。

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

vba
1Private Sub Worksheet_Change(ByVal Target As Range)
2    Dim r As Range, c As Range
3    Set r = Intersect(Target, Range("C7:C36"))
4    If r Is Nothing Then Exit Sub
5    For Each c In r
6        With Worksheets("出力" & c.Row - 6).Range("B5,C5,D5,J5").Borders(xlDiagonalUp)
7            Select Case c.Value
8            Case "A", "B", "C"
9                .LineStyle = xlContinuous
10            Case Else
11                .LineStyle = xlNone
12            End Select
13        End With
14    Next
15End Sub