عبدالله القزاز قام بنشر مايو 7, 2014 مشاركة قام بنشر مايو 7, 2014 اريد ان اغير لون الخلية في الاكسل كل 20 ثانية ارجو المساعدة و بسرعة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 8, 2014 مشاركة قام بنشر مايو 8, 2014 السلام عليكم تفضل أخى Sub ragab() Application.OnTime Now + TimeValue("00:00:20"), "clor" End Sub Sub clor() Randomize x = Int(Rnd(1) * 255 + 1) y = Int(Rnd(1) * 255 + 1) Z = Int(Rnd(1) * 255 + 1) Range("A1").Interior.Color = RGB(x, y, Z) Call ragab Exit Sub End Sub Sub Auto_Open() Call ragab End Sub تغيير لون خلية كل 20 ثانية.rar 2 رابط هذا التعليق شارك More sharing options...
احمد الحاوي قام بنشر مايو 8, 2014 مشاركة قام بنشر مايو 8, 2014 الاستاذ المبدع رجب جاويش كل يوم نتعلم على يديك ابداعا جديدا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 8, 2014 مشاركة قام بنشر مايو 8, 2014 أخى الفاضل / احمد الحاوي جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة 1 رابط هذا التعليق شارك More sharing options...
عبدالله القزاز قام بنشر مايو 22, 2014 الكاتب مشاركة قام بنشر مايو 22, 2014 أخى الفاضل / احمد الحاوي جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة عليكم السلام استاذ رجب ... اشكرك جدا على الاهتمام ... لكن اني بحاجة الى اظهار عداد ثواني في الخلية لكي اتمكن من اعداد تنسيق شرطي بلون الخلية كل عشرون ثانية اي نفس فكرة الاشارة المرورية ,,, احتاج فقط الى خلية فيها عداد ثواني متحرك رابط هذا التعليق شارك More sharing options...
عبدالله القزاز قام بنشر مايو 23, 2014 الكاتب مشاركة قام بنشر مايو 23, 2014 عليكم السلام استاذ رجب ... اشكرك جدا على الاهتمام ... لكن اني بحاجة الى اظهار عداد ثواني في الخلية لكي اتمكن من اعداد تنسيق شرطي بلون الخلية كل عشرون ثانية اي نفس فكرة الاشارة المرورية ,,, احتاج فقط الى خلية فيها عداد ثواني متحرك رابط هذا التعليق شارك More sharing options...
ابوصلاح قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 الاستاذ المبدع رجب جاويش كل يوم نتعلم على يديك ابداعا جديدا جزاك الله خيرا السلام عليكم تفضل أخى Sub ragab() Application.OnTime Now + TimeValue("00:00:20"), "clor" End Sub Sub clor() Randomize x = Int(Rnd(1) * 255 + 1) y = Int(Rnd(1) * 255 + 1) Z = Int(Rnd(1) * 255 + 1) Range("A1").Interior.Color = RGB(x, y, Z) Call ragab Exit Sub End Sub Sub Auto_Open() Call ragab End Sub رائع جدا استاذنا الفاضل "رجب جاويش" رابط هذا التعليق شارك 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.