Excel VBA 質問スレ Part70

口だけ出すのもなんなので一応作ってみた
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