بقاء نص متحرك

[زاكي بوشلاغم]

السلام عليكم  اخوتي اريد ان يبقى النص المتحرك عند غلق ملف ايكسل حيث عند غلف ملف ايكسل و فتحه يذهب نص النص المتحرك اريد حفظه دائما يبقى متحرك

 

عبارة النص المتحرك هي (من اعداد باقي مسعودي متوسطة طالب عبد الله **بئر الشهداء**)

 وعبارة النص المتحرك  موجودة في ورقة type

متوسطات.rar

تم تعديل نوفمبر 29, 2013 بواسطه زاكي بوشلاغم

[حمادة عمر]

السلام عليكم

الاخ الكريم / زاكي بوشلاغم

بارك الله فيك

تفضل اخي المرفقات ... ان شاء الله به طلبك

تقبل خالص تحياتي

 

 

 

متوسطات-ss.rar

[زاكي بوشلاغم]

 اخي ممكن  ان  تشرح  لي  كيف  فعلتها  من  فظلك

[زاكي بوشلاغم]

اخي  ممكن ان  تشرح  لي  كيف  فعلت ذلك انا  حاولت ان  اغير  على ملفك  فلم  تصلح  معي 

انا  اريد  ان  انشىء كلام  متحرك   عند  فتح  وغلق  الملف  يبقى  كلام  يتحرك   ممكن  ان  تساعدني  من  فظلك

تم تعديل نوفمبر 30, 2013 بواسطه زاكي بوشلاغم

[زاكي بوشلاغم]

عند كتابة في الورقة يتوقف كلام المتحرك  ممكن حل ان  اكتب في الورقة ويبقى الكلام المتحرك

تم تعديل نوفمبر 30, 2013 بواسطه زاكي بوشلاغم

[زاكي بوشلاغم]

اخي ممكن ان تشرح  لي  اريد  عند  الكتابة  في  ورقة  ايكسل  ليس  في  مكان  عبارة المتحركة  في  مكان  اخر ان  لا  يتوقف الكلام المتحرك  وشكرا 

[ahha985]

أخي العزيز هذا هو الكود الذي أضافه لك الأخ

 

 

t = "ي باقي متوسطة طالب عبد الله**بئر الشهداء** من اعدادمسعود ـ ـ "

n = 0

Do While n < 5000

t = Right(t, Len(t) - 1) & Left(t, 1)

[o4,p4,q4,r4,s4,t4,u4,v4,w4,x4,y4,z4,aa4,ab4] = t

w = 0.1

temp = Timer

Do While Timer < temp + w

DoEvents

Loop

n = n + 1

Loop

 

 

وقد وضعه في الحدث التالي في صفحة type

 

 

Private Sub Worksheet_Activate()

 

End Sub

 

بامكانك الدخول إلى لوحة البرمجة بالضغط على ALT + F11 وغير نوعلا الحدث إلى 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

وضع الكود ضمنه

فيتحقق ما تريد

 

أهلا بك

[زاكي بوشلاغم]

اخي  عند  الكتابة في  ورقة type يتوقف  كلام  المتحرك  عن  الحركة  انا  اريد  ان  لايتوقف  ويبقى يتحرك

[حمادة عمر]

السلام عليكم

الاخ الكريم / ahha985

بارك الله فيك

شرح جميل وبسيط

 

الاخ الكريم / زاكي بوشلاغم

بارك الله فيك

كما ذكر لك الاخ الكريم /  ahha985  بانه يجب عليك تغيير حدث الكود للشيت فقط ليكون الكود كما يلي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = "(من اعداد باقي مسعودي متوسطة طالب عبد الله **بئر الشهداء**)"
n = 0
Do While n < 5000
t = Right(t, Len(t) - 1) & Left(t, 1)
[o4,p4,q4,r4,s4,t4,u4,v4,w4,x4,y4,z4,aa4,ab4] = t
w = 0.1
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop

End Sub

ولكن مع تعديل بسيط ليتحرك معك النص من بداية فتح الملف واثناء العمل والكتابة عليه

لتعديل الكود الموجود في كود حدث فتح الملف ليكون كالتالي

Private Sub Workbook_Open()
Feuil1.[o4].Select
End Sub

واليك الملف المرفق الموجود به ما تم ايضاحه

تقبلوا خالص تحياتي

 

 

 

متوسطات-sss.rar

[ضاحي الغريب]

أخي الحبيب ابو سما أ// حمادة عمر

ماشاء الله

افكارك جميلة 

بارك الله فيك وجزاك خيرا

وجعلها في ميزان حسناتك

تقبل تحياتي

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

والله بجد نورت الموضوع وشرفتني

ومرة اخري الف مليون مبروك علي الترقية المستحقة

التي كنت انتظرها يوميا  في موضوع لاحد المديرين

فهنيئا لنا خبيرنا المعتمد الجديد

وسلامي الخاص للخبير الصغير / عمرو

تقبل خالص تحياتي

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

[أ . مجدي]

ماشاء الله ... لا قوة الا بالله ؛ جزاكم الله خيراً ...

[صلاح الصغير]

ا / حمادة

عمل رائع بارك الله فيك

لكن توجد مشكلة هى بطئ فتح الملف و عدم القدرة على التنسيق مثل حذف الاعمدة مثلا

[MGS]

كيف يمكن عكس دوران الكلام لو كان النص باللغه الأنجليزيه مثلا