Excel VBA 質問スレ Part70

[271 デフォルトの名無しさん (ﾜｯﾁｮｲ 375f-OlEI) 2021/04/17(土) 07:30:13.57 ID:jQb3oNGZ0]

口だけ出すのもなんなので一応作ってみた
Sheet1モジュール用

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Alea数値 As Range
Set Alea数値 = Range("C4:C9")

If Intersect(Target, Alea数値) Is Nothing Then Exit Sub

Dim AleaColor As Range
Set AleaColor = Range("A4:A9")

Dim Rng As Range
Dim Color�� As Long

For Each Rng In AleaColor
If Rng.Value = Target.Value Then
Color�� = Rng.Interior.Color
Target.Interior.Color = Color��
Exit Sub
End If
Next Rng

End Sub