كود للتلوين المتدرج - فديو خفيف ع الماشى

[عبد الفتاح كيرة]

الكود

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

الفديو

[احمد حمور-ابوعبدالله]

الله يعطيك العافيه

رمضان كريم

[أبوبسمله]

جزاك الله خيرا

[عبد الفتاح كيرة]

شكرا لكم

الأخ

AHMADHAMOOR

و الأخ

طالب علم مبتدىء

كل عام أنتم بخير

[ياسر خليل أبو البراء]

تسلم الأيادي يا أخ كيماس

بارك الله فيك على هذه الروائع الجميلة

[عبد الفتاح كيرة]

هذا بعض مما عندكم أستاذ ياسر

كل عام أنتم بخير

[هشام كوكب]

بارك الله فيك

[عبد الفتاح كيرة]

أشكرك أستاذ هشام