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

**الزباري** · سبتمبر 25, 2013

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

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

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

كلام متحرك.rar

البروفسير · سبتمبر 25, 2013

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

**الزباري** · سبتمبر 25, 2013

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

**عبدالله باقشير** · سبتمبر 25, 2013

السلام عليكم

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

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

أبو عبد الملك السوفي · سبتمبر 25, 2013

السلام عليكم

جميل والله

جوزيت خير

**الزباري** · سبتمبر 26, 2013

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

:fff: :fff: :fff: :fff: :fff: :fff: :fff:

**saad abed** · سبتمبر 26, 2013

اخى الزباري

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

**شوقي ربيع** · سبتمبر 26, 2013

السلام عليكم

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

وأن لم يكن فيها مانع وللافادة لا غير هذا اختصار للكود دون الحاجة للمعادلات التي على الملف ضعه في حدث 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

تقبل تحياتي

**الزباري** · سبتمبر 27, 2013

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

تسجيل الدخول

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

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

محتوي مشابه

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information