إعطاء نص معين داخل خلية تأثير لوني

[عبدالكريم]

إخواني الأفاضل :- السلام عليكم ورحمة الله وبركاته

هل يمكن إعطاء نص داخل خلية تأثير متحرك ، مثلاً جعل النص يظهر ثم يختفي ، أو يتحرك بحركة معينة .

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

[محمد طاهر عرفه]

احد الاقتراحات هو تغيير لون الفونت دوريا

Sub runcolorchanger()
 For i = 1 To 50
  Cells(1, 3).Font.ColorIndex = i
     Start = Timer    ' Set start time.
      Do While Timer < Start + 1
        DoEvents    ' Yield to other processes.
      Loop
 Next i
End Sub

و يمكن تشغبلها مع بدأ الفتح و مع حدث تعديل فى ورقة العمل مثلا بحسب ما يناسبك

و الكود السابق يقوك بتغيير لون الخط دوريا لاول 50 لون

و الغرض من اقحام ال Timer هو توقيف الكود لمدة ثانية واحدة مع كل تغيير حتي يكون التغيير ظاهرا

و الا سيغير اللون دون ان نستطيع ملاحظة ذلك

colorcell.rar

[حسام نور]

وإذا سمح لي المعلم محمد طاهر مرفق مثال يقوم بعمل وميض للخليه A1

وشكراً

FLASH.zip

[عبدالكريم]

شكرررررررررررراً وجزاك الله خيرا