شريط متحرك لآخر عملية تتم

[الزباري]

في الحقيقة هذا تجديد لموضوع قديم مطروح في المنتدى وأضفت إليه بعض التعديلات البسيطة.. ويتميز بالقراءة الديناميكية لآخر سطر تم إدخاله وعرضه في شريط أخبار متحرك.. للرجوع للموضوع الأصلى الرجاء زيارة الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=39755

 

وتقبلوا تحياتي مع المرفق التالي

 

كلام متحرك.rar

[البروفسير]

رائع اخي تتميز اعمالك دوما بالابداع
وشكرا لصاحب الموضع الاصلي ايضا

[الزباري]

شكرا لك يالبروفسير

[عبدالله باقشير]

السلام عليكم

 

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

 

تقبلوا تحياتي وشكري

[أبو عبد الملك السوفي]

السلام عليكم

جميل والله

جوزيت خير

[الزباري]

اللهم اجز أصحاب المنتدى كل خير ولمن أسسه وشارك فيه وانتسب ودل عليه.. فالدال على الخير كفاعله.. وجزاكم الله خيرا

           

[saad abed]

اخى الزباري

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

[شوقي ربيع]

السلام عليكم

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

 

وأن لم يكن فيها مانع  وللافادة لا غير  هذا اختصار للكود  دون الحاجة للمعادلات التي على الملف ضعه في حدث  Initialize

Private Sub UserForm_Initialize()
Dim lr As Long
Dim Te
lr = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
Te = "يوم  " & Feuil1.Range("a" & lr) & "  الكمية :   " & Feuil1.Range("c" & lr) & "  الصنف :   " & Feuil1.Range("b" & lr)

Me.WebBrowser1.Navigate _
"about:<html><body scroll='no'><font color= " & LaCouleur & " size='4' face='NEW'>" & _
"<marquee direction=right>" & Te & "</marquee></font></body></html>"

End Sub

تقبل تحياتي

[الزباري]

جزاكم الله خيرا.. وتحياتي للجهابذة أصحاب الخبرة