اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الزباري

بواسطه الزباري
في منتدى الاكسيل Excel

 مشاركة

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

الزباري

الزباري

قام بنشر
قام بنشر

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

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

 

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

 

كلام متحرك.rar

  • Like 2
البروفسير

البروفسير

قام بنشر
قام بنشر

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

الزباري

الزباري

قام بنشر
  • الكاتب
قام بنشر

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

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

شوقي ربيع

شوقي ربيع

قام بنشر
قام بنشر

السلام عليكم

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

 

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

تقبل تحياتي

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع
×
×
  • اضف...

Important Information

  I accept