أبو أنس حاجب قام بنشر نوفمبر 9, 2012 قام بنشر نوفمبر 9, 2012 السلام عليكم ورحمة الله وبركاته أساتذتي الكرام حفظكم الله المطلوب الأول: يخص تنسيق التاريخ حيث انني جعلت التنسيق متشابه ولكن لم يتحدث التغيير ويتطلب الدخول إلى كل خلية (مثال هنا الخلايا الصفراء يجب تنشيطها واحدة بواحدة كي يتم التغيير) وتنشيطها كي يتم احداث التغيير لتماثل التنسيق مثل الخلايا الخضراء هل هنالك طريقة سريعة لعمل ذلك البيانات كبيرة المطلوب الثاني: يخص الشكل التلقائي ذو اللون البرتقالي وهو خاص من خلال ارتباط بالعودة إلى الخلية A6 ما اريده عند الغاء تجميد الالواح واقوم بالتحرك من خلال العجلة في وسط الماوس إلى الاسفل ان يتحرك الشكل ايضا تناسبا مع الحركة وعند العودة إلى اعلى كذلك (او عند الحركة من خلال السكرول بار نفس الشئ) ثم يعود إلى مكانه الحالي أذا ما اخترت تجميد الالواح ارجو مراعاة وجود كود حدث في الصفحة والله خير موفق ومعين مشكلتين حركة شكل تلقائي وتنسيق تاريخ.rar أبو أنس
أبو أنس حاجب قام بنشر نوفمبر 10, 2012 الكاتب قام بنشر نوفمبر 10, 2012 السلام عليكم ورحمة الله وبركاته للرفع رفع الله قدركم
أم عبد الله قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 (معدل) أخي العزيز / أبو أنس حاجب السلام عليكم ورحمة الله وبركاته أنا عملت لك تنسيق تاريخ ولم أفهم ما تقصده في المشكلة الثانية أرجو التوضيح. مشكلتين حركة شكل تلقائي وتنسيق تاريخ1.rar تم تعديل نوفمبر 10, 2012 بواسطه fzsss
أبو أنس حاجب قام بنشر نوفمبر 10, 2012 الكاتب قام بنشر نوفمبر 10, 2012 السلام عليكم ورحمة الله وبركاته أخي الفاضل جزاك الله كل خير على التجاوب. ولكني أريد شرح الطريقة الأسرع التي يتم بها تغيير التنسيق حتى أطبقها على ملفي الأصلي ببياناته الكثيرة وتعدد صفحاته أي فقط دلني علي الطريقة أو من خلال كود برمجي. المسألة الثانية: خاصة شكل تلقائي موجود في الملف أريد بمجرد إلغاء تجميد الألواح وأقوم بالتحرك إلى إسفل أو إلى أعلى عن طريق الماوس (بالعجلة الموجود وسط الماوس) أو من خلال السكرول بار سواءاً إلى الأعلى أو اسفل أن يتبعني الشكل التلقائي وفق حركتي في الصفحة ومن خلاله بعد ذلك بالضغط عليه اعود إلى أعلى المستند كون فيه ارتباط تشعبي يقوم بذلك ويعود هو إلى موقعه الأصلي. أبو أنس
الخالدي قام بنشر نوفمبر 10, 2012 قام بنشر نوفمبر 10, 2012 السلام عليكم ورحمة الله وبركاته الكود المرفق يعمل عند تغير التحديد في الورقة لا اعلم كيف تنفيذ الكود عند تحريك عجلة الماوس او عند استخدام شريط التمرير مشاركتي فقط لتنشيط الموضوع واستخراج ما في جعبة الخبراء 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
أبو أنس حاجب قام بنشر نوفمبر 11, 2012 الكاتب قام بنشر نوفمبر 11, 2012 السلام عليكم ورحمة الله وبركاته أستاذي الفاضل خبير الخبراء عبد الحافظ الخالدي حفظكم الله لقد أستنبطت من ردك مسمى جديد لك وأظن أنه يشاركني فيه الكثير من الأساتذة والأعضاء باستحقاقك له. الهدف الرئيسي من المطلوب تم وبنكهته الأصلية وما الباقي الإ بهارات إضافية مكملة إن تمت فخير ونعمة. أجزم بإنني لن أستطيع أوفيك حقك من الشكر والثناء بل والدعاء بظهر الغيب ولكن أنتظر الجزاء والثواب الأكمل والحقيقي من واهب النعم والمتحكم والمتصرف بالكون كله مالك الملك بديع السموات والأرض رب العرش العظيم بإسمك ربي الأعظم وبكل أسم هو لك أدعوك وأسالك أن تغفروتعفو عن سيدي وأستاذي الخالدي وتحفظه من بين يديه ومن خلفه وعن يمينه وعن شماله ومن فوقه وأعوذ بعظمتك أن يغتال من تحته وتبلغه مامنه يوم القيامة وتحفظ له ذريته من بعده إلى يوم العرض. أبو أنس
الخالدي قام بنشر نوفمبر 19, 2012 قام بنشر نوفمبر 19, 2012 جزاك الله كل خير اخي ابو انس ولك مثل دعائك لي وزيادة بارك الله في عملك وعمرك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.