اذهب الي المحتوي
أوفيسنا

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


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

السلام عليكم اخواني

عندي استفسارين

اولاً في الملف المرفق نص متحرك ((ماخوذ من مشاركة سابقة لبعض الاخوة)) كيف يمكن جعله يظهر في ورقة ((sheet1)) فقط وليس في الثلاث

ثانياً كود لفتح ملف وورد (مهما كان موقعه في الجهاز)بواسطة زر في ملف اكسل

وشكراً لكم اخواني فقد تعلمت الكثير من هذا المنتدى الرائع

السلام عليكم تتحرك.rar

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

اخي الحبيب : ولد المجرب

كل سنه وانت طيب .. على ماهو آت .. وقفة عرفات وعيد الاضحى

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

ثم افتح ملف جديد ومن محرر الاكواد اذهب وقف على الورقة التي تريد وليكن ورقة 1 واضغط دبل كليك لتفتح صفحة كود الورقة 1 قف على الورقة في الجهة اليسرى وماوس يمين واختر استيراد ملف - المقصود جعل الكود داخل الورقة 1 وليس على مستوى الملف بالكامل

وتقبل شكري

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

اليك اخي ايضا اضافة عبارة اخرى بجانب الاولى لتكون " السلام عليكم ورحمة الله وبركاتة .. وكل عام وانتم بخير "

مع تغيير اتجاه الحركة لتكون من اليسار لليمين لتناسب لغتنا العربية

h1.rar

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

اخي الحبيب : ولد المجرب

كل سنه وانت طيب .. على ماهو آت .. وقفة عرفات وعيد الاضحى

وانت طيب وكل عام وانت والامتين العربية والاسلامية بخير وعساك من عوادة

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

كما اتمنى اخواني ان تساعدوني في طلبي الثاني وذلك للاهمية

تم تعديل بواسطه ولد المجرب
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

اذا سمحتم لى بالمشاركة

هذا هو تعديل بسيط فى الكود (بوضعه فى حدث فتح الملف ) (ووضعه فى حدث تنشيط الشيت 1) مع تحديد المسار الكامل للخلية o3 داخل شيت 1 لكى لا يتكرر هذا الكود فى باقى الشيتات

ارجو ان يكون ذلك المطلوب

كل عام وانتم بخير

اخوكم

konafa4000

h1.rar

  • Like 1
رابط هذا التعليق
شارك

مشكور استاذنا konafa4000 على هذا الشرح الجميل ولاكن عنى سؤل كيف بوضعه فى حدث فتح الملف انا تسخة الكود ولكن لم يعمل

وكذلك ووضعه فى حدث تنشيط الشيت 1) صحيح يعمل الملف الذى رفقته لاكن نريد كيف نعمل ذلك ممكن تشرح لى ذلك

وكل عام وانت والجميع بخير

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

السلام عليكم

اخى العزيز

 


Private Sub Workbook_Open()

t = "    السلام عليكم ورحمة الله وبركاته         وكل عام وانتم بخير                               "

n = 0

Do While n < 5000

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

Sheet1.Range("o3") = t

w = 0.2

temp = Timer

Do While Timer < temp + w

DoEvents

Loop

n = n + 1

Loop

End Sub




هذا هو الذى يوضع بحدث فتح الملف Private Sub Workbook_Open()

غالبا انت قمت بنسخ الكود كاملا بما فيه اسم الاجراء Sub auto_open() ضمن حدث Private Sub Workbook_Open() وهذا خطأ 

فيجب فقط ان تضع الجمل الخاصة بالكود اسفل حدث فتح الملف 

نفس الامر مع حدث تنشيط الشيت 1 

اخوك 

konafa4000

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

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.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information