عبد الفتاح كيرة قام بنشر أغسطس 8, 2010 مشاركة قام بنشر أغسطس 8, 2010 الكود 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 الفديو رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر أغسطس 9, 2010 مشاركة قام بنشر أغسطس 9, 2010 الله يعطيك العافيه رمضان كريم رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر أغسطس 9, 2010 مشاركة قام بنشر أغسطس 9, 2010 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 9, 2010 الكاتب مشاركة قام بنشر أغسطس 9, 2010 شكرا لكم الأخ AHMADHAMOOR و الأخ طالب علم مبتدىء كل عام أنتم بخير رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2010 مشاركة قام بنشر أغسطس 9, 2010 تسلم الأيادي يا أخ كيماس بارك الله فيك على هذه الروائع الجميلة رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 9, 2010 الكاتب مشاركة قام بنشر أغسطس 9, 2010 هذا بعض مما عندكم أستاذ ياسر كل عام أنتم بخير رابط هذا التعليق شارك More sharing options...
هشام كوكب قام بنشر أغسطس 9, 2010 مشاركة قام بنشر أغسطس 9, 2010 بارك الله فيك رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 10, 2010 الكاتب مشاركة قام بنشر أغسطس 10, 2010 أشكرك أستاذ هشام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.