علي السحيب

لتحويل التاريخ الهجري إلى ميلادي راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=9761 أو هذا الرابط: http://www.officena.net/ib/index.php?showtopic=12899

ليس هناك أي فرق،

فقط لإثراء هذا الموضوع .. شاهد المرفق، ____________________________________.rar

شكراً على هذا الإنجاز الراقي،

شاهد المرفق، _________________.rar

عذراً أخي الكريم .. لم أنتبه من قبل إلى طلب التعديل الذي ذكرته .. على كل حال شاهد المرفق .. وأتمنى أن يكون به ما تريد. __________________________________________________________________2_______.rar

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

شاهد المرفق .. _____________________________________________.rar

يمكننا بدايةً أن نبدأ بالصيغة التالية لتحديد ما إذا كان هذا اليوم من ضمن أيام شهر رمضان المبارك أم لا؟ =IF(TEXT(TODAY(),"b2m")="9","هذا اليوم من أيام شهر رمضان المبارك","هذا اليوم ليس من أيام شهر رمضارن المبارك") ______________________________________________________.rar

إذا كنت تقصد إخفاء أو حذف الصفوف الفارغة والعكس .. راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=7486&hl= وإذا كنت تقصد غير ذلك .. فالرجاء التوضيح.

نعم يمكن اللجوء إلى جعل خلايا النطاقات التي تريد التنقل خلالها غير مؤمنة .. ثم حماية ورقة العمل .. وبهذا تسطيع التنقل بين النطاقات والورقة محمية .. ولمعلومات أكثر حول هذا الموضوع راجع الرابط التالي: http://www.officena.net/ib/index.php?showtopic=2350 شاهد المرفق، ________________________________________.rar

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

حاول البحث عن الكلمة Jeddah أو الرقم 1 مثلاً .. وأنظر ما سيحدث.

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

طريقة إدراج التواريخ رائعة وأعجبتني كثيراً أخي عمر .. شكراً لك،

في الكود الخاص بتلوين مجال معين من السطر عن طريق الكود .. قم بإستبدال السطر الرابع من الكود بالسطر التالي: If Target <> "" And TC <= 7 And TR > 1 And Cells(TR, 1).Row Mod 2 = 0 Then

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

قم بتحديد ما تريد تنفيذه بالضغط .. وسنقوم إن شاء الله بتزويدك بالكود اللازم.

أرفق ملف مشابه للذي تعمل عليه ليتم تطبيق كود الترحيل عليه، أو أبحث في المنتدى عن المواضيع الخاصة بالترحيل،

لا يمكن تحديد أكثر من نطاق داخال خاصية ScrollArea ولكن يمكن التنقل بين النطاقات حسب قائمة منسدلة إذا أحببت.

طباعة نطاق محدد فقط من ورقة العمل بالطريقة التقليدية يتم من خلال الخطوات التالية: 1- تحديد النطاق المُراد طباعتة. 2- الذهاب إلى القائمة ملف ثم طباعة وفي أسفل مربع حوار الطباعة هناك مربع لتحديد ما نود طباعته .. يحتوي على الثلاث خيارات التالية وهم : - كامل المصنف (طباعة جميع أوراق العمل دفعة واحدة) - ورقة العمل (طباعة ورقة العمل الحالية) - التحديد (طباعة النطاق المحدد) ففي هذه الحالة نقوم بإختيار التحديد والضغط على موافق وعندها سيتم طباعة النطاق الذي قمنا بتحديده مسبقاً. أما إذا أردنا إختصار جميع تلك الخطوات فيكون ذلك عن طريق الكود التالي: Sub SpecialPrint() Sheet2.[A1:D15].PrintOut End Sub مع ملاحظة أن هذا الكود يقوم بطباعة النطاق A1:D15 من الورقة الحالة .. أما إذا أردنا طباعة نطاق معين موجود في ورقة عمل أخرى فنقوم بإضافة إسم ورقة العمل قبل النطاق .. فيكون الكود كالتالي: Sub SpecialPrint2() [F9:H15].PrintOut End Sub شاهد المرفق، _____________________________.rar

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

كود رائع أخي عمر،

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

على حسب فهمي للسؤال .. شاهد المرفق، Book2.rar