شوقي ربيع

الاخ مصطقى كامل كل عام وانت بخير تقبل تحياتي وشكري

الاستاد رجب جاويش شكرا لمرورك ولكلماتك تقبل تحياتي وشكري

الاخ الحبيب حمادة عمر جزاك الله خيرا لكلماتك الجميلة تقبل تحياتي وشكري

الاخ الحبيب ضاحي الغريب (القلب التابض للمنتدى) كل عام وانت بخير شكرا لمرورك لحركاتك الجميلة تقبل تحياتي وشكري

الاخ الحبيب ضاحي الغريب (القلب التابض للمنتدى) كل عام وانت بخير شكرا لمرورك لحركاتك الجميلة تقبل تحياتي وشكري

الاخت الفاضلة ام عبد الله وانتي بخير ان شاء الله شكرا لمرورك ولدعائك تقبلي مني تحياتي وشكري

الستاد العزيز رجب جاويش يسعدني ويشرفني مرورك العطر دائما تقبل تحياتي وشكري

الستاد العزيز رجب جاويش يسعدني ويشرفني مرورك العطر دائما تقبل تحياتي وشكري

الاخ الحبيب حمادة عمر سلم قلبك من كل كرب شكرا لمرورك العطر تقبل تحياتي وشكري

الاستاد القدير جمال دغيدي شكرا لمرورك وتقبل الله منا ومنكم الصيام تقبل تحياتي وشكري

الاخ salah15salah شكرا لمرورك ولكلماتك اللطيفة تقبل تحياتي وشكري

'هدا كود زمني اي امر يوضع بعده لاينفد الا بعد انتهاء الفترة الزمنية التي حددتها 'الوقت او الزمن المحدد هنا هو جزاء من الثانية Sub Tm() secondes = 0.01 timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop End Sub 'ادا اردت تحريك اي شيء في الاكسل كل ما عليك هو دمج الكود السابق مع الحلقات التكرارية 'مثال لجعل ليبل يتسع ببطاء 'أنشاء فورم جديد ضع فيه ليبل و كومبو بوتن ثم انسخ فيه هدا الكود ولاحض Private Sub CommandButton1_Click() secondes = 0.1 'سرعة الحركة For a = 1 To 100 'متغير timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Me.Label1.Height = a 'هنا اضفنا كود لجعل عرض اليبل ياخد قيمت المتغير Next End Sub ''''''انتهينا من الفكرة الاساسية لتحريك الاشكال في الاكسل"""" 'لو تلاحض ان الحركة تتوقف بوصول المتغير الى اخر قيمة له 'ادا كيف نجعل الحركة متواصلة 'الكود التالي استخدمته في الملف المرفق في اول الموضوع Sub engrenage() vitesse = 0.01 'سرعة الحركة secondes = vitesse Do While start timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Shapes("a").IncrementRotation 'هدا هو الكود الدي يجعل الحركة مستمرة 'شرح لكود استمرار الحركة 'Shapes("a") a شكل او صورة داخل الاكسل اسمها 'IncrementRotation امر يجعل الصورة او الشكل يدور حول نفسه SHMove 'كود جل الفانوس يتحرك Loop End Sub 'لان نأتي الى شرح كود تحريك الفانوس 'الفكرة بسيطةجدا 'وهي وضع مجموعة من الصور في ملف الاكسل وجعلها تختفي وتضهر بالتوالي 'وهده هي الطرية Sub SHMove() VFalse 'كود لاخفاء جميع صور الفانوس secondes = vitesse 'لدينا في الملف 18صورة 'للفانوس وضعت فوق بعضها بطريقة مرتبة واوضاع مختلفة For a = 1 To 36 '36 ضعف عدد الصورة الموجودة b = Feuil2.Cells(a, 1).Text 'شاهد الورقة الثانية للملف ستفهم الامر 'حيث جعلنا الرمز b 'ياخد اسم صور الفانوس من الاول الى الاخير ثم من الاخير الى الاول timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Feuil1.Shapes(b).Visible = msoTriStateToggle ' هدا الامر يجعل الصورة تختفي ادا كانت ضاهرة والعكس ادا كانت مخفية Feuil1.Shapes("Rectangle 22").Visible = msoTriStateToggle 'نفس الامر لكلمة رمضان كريم Next Feuil1.Shapes("Rectangle 21").Visible = msoCTrue 'امر لجعل الصورة تضهر End Sub Sub VFalse() 'كود لاخفاء جميع صور الفانوس For a = 1 To 18 b = Feuil2.Cells(a, 1).Text Feuil1.Shapes(b).Visible = msoFalse Next End Sub كما يمكن تنفيد الامر على الفورم شاهد هدا الرابط http://www.officena.net/ib/index.php?showtopic=47857

السلام عليكم كما وعدتك استادي العزيز في موضوع حركة لطيفة اهديك بمناسبة حلول شهر رمضان هدا الملف فانوس رمضان.rar

الاخ الحبيب ضاحي الغريب جزاك الله خيرا لدعائك الجميل و شكرا جزيلا لمرورك العطر تقبل تحياتي وشكري

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

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

الاخ احمد غانم شكرا لمرورك ولكلماتك تقبل تحياتي وشكري

الاستاد جمال دغيدي يشرفني مرورك العطر تقبل تحياتي وشكر

الاخ أمحمد عبد الصمد شكرا لمرورك ولكلماتك وانا احب دائما اخد الاكسل الى ابعد الحدود تقبل تحياتي وشكري

الاخ مصطفى كامل شكرا لمرورك ولكلماتك تقبل تحياتي وشكري

الاستاد مجدي يونس يشرفني مرورك العطر وساصنع ما أردت بأدن الله تقبل تحياتي وشكري

الاخ محمد يوسف محمد شكرا لمرورك ولكلماتك المرحة تقبل تحياتي وشكري

الاخ ابراهيم الشال شكرا لمرورك ولكلماتك تقبل تحياتي وشكري

الاخ الحبيب ضاحي الغريب يسعدني دائما مروررك العطر تقبل تحياتي وشكري

الاخ حسام مصطفى شكرا لمرورك ولكلماتك تقبل تحياتي وشكري