الكود
Option Explicit
Sub doTintAndShades()
Dim I As Integer, Rng As Range
Set Rng = Selection
For I = 2 To Rng.Cells.Count
With Rng.Cells(I).Interior
.Color = Rng.Cells(1).Interior.Color
.TintAndShade = (I - 1) / (Rng.Cells.Count - 1)
End With
Next I
End Sub
الفديو