كود لطيف لادراج الالوان

[ابو اسامة العينبوسي]

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True
objExcel.Workbooks.Add

For i = 1 to 56
    objExcel.Cells(i, 1).Value = i
    objExcel.Cells(i, 1).Interior.ColorIndex = i
Next

تم تعديل أبريل 11, 2007 بواسطه ابو اسامة العينبوسي

[نزار سليمان عيد]

اخي ابو اسامة

تشكر وجزاك الله خيرا على الكود وقمت بادراجه في ملف لمن اراد ان يستوضح الفكرة

Colors_in_Excel.rar

[GHMN7174]

اخى نزار

السلام عليكم ورحمة الله وبركاتة

لو سمحت ممكن التوضيح اكثر من الملف

مش فاهم عمل الكود فى الملف وشكرا

اخوكم محمد

[نزار سليمان عيد]

اخي محمد

وعليكم السلام ورحمة الله

المقصود من الكود هو معرفة رقم اللون في اكواد VBA حيث انك تختار الاحمر مثلا وتريد معرفته

فالكود هنا يوضح الالوان

لتشغيله اذهب الى ماكرو ثم تشغيله سيعطيك الالوان

تحياتي

[GHMN7174]

اسف اخى نزار

السؤال هو فين الماكرو فى الملف ؟؟

ولك تحياتى

[ابو اسامة العينبوسي]

السلام عليكم

Colors_in_Excel.rar

[GHMN7174]

بارك الله فيكم يا اخوانى

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



اخى ابو اسامة العينبوسي
ربنا يزيدك علما



السلام عليكم

[نزار سليمان عيد]

اخي GHMN7174

عذرا عندما ارفقت الملف لم يتم حفظ التعديل واخونا ابو اسامة تدارك الموقف وشكرا لاخي هادي سالم

تحياتي للجميع

[ابو اسامة العينبوسي]

السلام عليكم

لكم الفضل بعد الله في تعليم كل من في المنتدى

[محمد عسكر]

السلام عليكم

أخى / اسامة

رائع

اسال الله لك علما واسعا نافعا

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

تحياتى

[nazem]

بسم الله الرحمن الرحيم

اللهم اجعله في ميزان حسناتك واشكرك كثير الشكر

[احمدزمان]

شكرا لكم جميعا

بارك الله فيكم