اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

Important Information

  I accept