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

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

قام بنشر (معدل)

السادة الأفاضل

تحية طيبة وبعد

الرجاء من سيادتكم التكرم بتعديل الكود التالى وهو لعمل نص متحرك داخل الإكسيل بحيث يعمل النص المتحرك عند عمل تجميد للصفحة لعدم العبث بأى شيئ بها

والكود هو

Sub auto_open()
t = "  Report By Yasser Fathi Albanna  "
n = 0
Do While n < 5000000
t = Right(t, 1) & Left(t, Len(t) - 1)
[h17] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub

ولسيادتكم خالص الشكر والتقدير

مع وافر التحية

تم تعديل بواسطه Eng : Yasser Fathi Albanna
قام بنشر

أخي الحبيب ياسر

ارفق الملف للتوضيح أكثر (ماذا تقصد بالتجميد)

أخى الحبيب الغالى ياسر

أقصد بتجميد الصفحة  أى أجمدها بباسوورد لعدم التعديل بأى شى

مرفق صورة داخل ملف الإكسيل

 

New Microsoft Excel Worksheet.rar

قام بنشر (معدل)

تفضل أخي الحبيب ياسر

الموضوع أبسط مما تتخيل

فقط قمت بالغاء خاصية Locked من الخلية التي بها النص المتحرك

كلمة السر 1

Moving Text During Protection.rar

تم تعديل بواسطه YasserKhalil
قام بنشر

معلش هاتعبك يا حبيب قلبى يا أخى العزيز / ياسر

لغيت Locked من الخليه التى بها النص إزاى

ممكن تشرحلى

معلش تعبك

قام بنشر

خلاص يا باشا عملتها معلش مكنتش مركز سلمت يمينك وسلمت من كل شر

جزاك الله كل خير أستاذى ومعلمى وأخى ياسر خليل

قام بنشر

أولاً قم بالدخول لمحرر الأكواد واضغط على Reset من قائمة RUN لوقف عمل الكود

حدد كل خلايا ورقة العمل ثم كليك يمين ثم التبويب Protection ثم علم علامة صح على الخيار Locked

حدد الخلية التي بها النص المتحرك وكليك يمين والتبويب Protection وشيل علامة الصح من الخيار Locked

قم بحماية الورقة .... انتهى

قام بنشر

أولاً قم بالدخول لمحرر الأكواد واضغط على Reset من قائمة RUN لوقف عمل الكود

حدد كل خلايا ورقة العمل ثم كليك يمين ثم التبويب Protection ثم علم علامة صح على الخيار Locked

حدد الخلية التي بها النص المتحرك وكليك يمين والتبويب Protection وشيل علامة الصح من الخيار Locked

قم بحماية الورقة .... انتهى

تسلملى يا غالى تم بالفعل عمل هذا الشرح قبل رد حضرتك

بس أنا تعبان شوية ومكنتش مركز

ربنا يبارك فى حضرتك

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