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

مشكلتان حركة شكل تلقائي وتنسيق تاريخ


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

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

أساتذتي الكرام حفظكم الله

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

المطلوب الثاني: يخص الشكل التلقائي ذو اللون البرتقالي وهو خاص من خلال ارتباط بالعودة إلى الخلية A6 ما اريده عند الغاء تجميد الالواح واقوم بالتحرك من خلال العجلة في وسط الماوس إلى الاسفل ان يتحرك الشكل ايضا تناسبا مع الحركة وعند العودة إلى اعلى كذلك (او عند الحركة من خلال السكرول بار نفس الشئ) ثم يعود إلى مكانه الحالي أذا ما اخترت تجميد الالواح ارجو مراعاة وجود كود حدث في الصفحة

والله خير موفق ومعين

مشكلتين حركة شكل تلقائي وتنسيق تاريخ.rar

أبو أنس

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

أخي العزيز / أبو أنس حاجب

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

أنا عملت لك تنسيق تاريخ ولم أفهم ما تقصده في المشكلة الثانية أرجو التوضيح.

مشكلتين حركة شكل تلقائي وتنسيق تاريخ1.rar

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

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

أخي الفاضل جزاك الله كل خير على التجاوب.

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

المسألة الثانية:

خاصة شكل تلقائي موجود في الملف أريد بمجرد إلغاء تجميد الألواح وأقوم بالتحرك إلى إسفل أو إلى أعلى عن طريق الماوس (بالعجلة الموجود وسط الماوس) أو من خلال السكرول بار سواءاً إلى الأعلى أو اسفل أن يتبعني الشكل التلقائي وفق حركتي في الصفحة ومن خلاله بعد ذلك بالضغط عليه اعود إلى أعلى المستند كون فيه ارتباط تشعبي يقوم بذلك ويعود هو إلى موقعه الأصلي.

أبو أنس

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

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

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

لا اعلم كيف تنفيذ الكود عند تحريك عجلة الماوس او عند استخدام شريط التمرير

مشاركتي فقط لتنشيط الموضوع واستخراج ما في جعبة الخبراء


Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Not Activewindow.FreezePanes Then

If Cells(Activewindow.ScrollRow, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top Then

ActiveSheet.Shapes.Range("AutoShape 2").IncrementTop Cells(Activewindow.ScrollRow, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top

End If

Else

If Cells(1, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top Then

ActiveSheet.Shapes.Range("AutoShape 2").IncrementTop Cells(1, 1).Top - ActiveSheet.Shapes.Range("AutoShape 2").Top

End If

End If

End Sub

حركة شكل تلقائي.rar

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

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

أستاذي الفاضل خبير الخبراء عبد الحافظ الخالدي حفظكم الله

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

الهدف الرئيسي من المطلوب تم وبنكهته الأصلية وما الباقي الإ بهارات إضافية مكملة إن تمت فخير ونعمة.

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

أبو أنس

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

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information