علي السحيب

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

السلام عليكم، الأخ عادل صادق .. الرجاء مراعاة التالي: 1- مالذي قصدته بقولك .. هل كنت تقصد بأن الإجابة التي وضعتها أنا غير صحيحة؟؟؟ .. إذا كان الأمر كذلك فأعتقد أن هناك أساليب أفضل لتنبيه الغير بخطأه .. وهذا لا يعني أن إجابتي غير صحيحة .. فأنا متأكد تماماً من أنها صحيحة 100% .. وهي تقوم بتلوين الخلية بالأحمر عندما يكون اليوم هو الاربعاء. 2- إذا كنت ترى أن إجابتي غير صحيحة .. فينبغي عليك على الأقل أن تأتي بالحل الصحيح .. لا أن تأتي بصيغة تجلب لك أسم اليوم بالإنجليزي .. وإذا قلت لي بأن الملف الذي أرفقته أنت يحتوي على الأيام العربية .. فأعلم أنه بمجرد الضغط بضغطتين متتالين على أي خلية تشتمل على الصيغة .. فسيتحول إسم اليوم من العربي الى الإنجليزي. 3- السائل طلب أن يكون اليوم يوم الخميس أو الجمعة .. وجميع التنسيقات التي طرحتها .. تعطي اليوم باللغة الإنجليزية وليس بالعربية. على كل حال لا نريد إطالة الموضوع أكثر من اللازم .. ولكن يا أخ عادل .. أود منك في مقبل الأيام أن تنتبه أكثر إلى السؤال قبل طرح الإجابة .. حتى لا يكون هناك تشتيت لذهن السائل. الأخ gelani .. المرفق الأول .. يحتوي على مثال بسيط لكيفية إعطاء الخلية اللون الأحمر عندما يكون اليوم هو الخميس أو الجمعة. والمرفق الثاني يحتوي على ملفك الذي أرفقته .. إضافةً إلى التعديل المطلوب. شكراً للجميع. Conditaional_Formatting.rar _____.rar

كما لاحظت .. قمنا بتقسيم عدد الأيام المستهلكة على عدد الأيام الكلي .. ثم قمنا .. بتنسيق الخلية لتصبح % 0 .. وذلك لكي نحصل على تنسيق النسبة المئوية..

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

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

تخرج النتيجة TRUE .. لأن هناك خطاً في الخلية المرجع .. أي بمعنى أن المراد من الصيغة قد تحقق .. كما هو معروف أن الدالة ISERR تكشف لك إذا كان هناك خطاً في الخلية المعنية أم لا .. فإذا كان هناك خطاً يتم إرجاع النتيجة كـ TRUE .. أي: نعم يوجد خطأ في الصيغة. والعكس صحيح بالنسبة لـ FALSE

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

السلام عليكم، الأخ العزيز أبو هادي .. لقد أطلعت على الكود الذي أنشأته والذي يعمل على حساب الفرق بين التواريخ الهجرية (مرفق الملف). لكن الكود يعمل مع الرموز (YYYY , M ,D) فقط .. ولا يقبل بقية الرموز الخاصة بالدالة DATEDIF .. وهي (YM , YD , MD). وحسب علمي أن أن الدالة المقابلة لـ DATEDIF في تطبيقات الفيجوال بيسك هي DateDiff .. وهي لا تقبل إلا الثلاث رموز الأولى فقط. لذا أو منك وحسب خبرتك الكبيرة في هذا المجال أن تنشأ لنا كود يقبل بقية الرموز .. لكي أتمكن من تصميم برنامج لحساب العمر يقبل التواريخ الهجرية على غرار البرنامج الموجود على الرابط التالي والذي لا يقبل إلا التواريخ الميلادية فقط. http://www.officena.net/ib/index.php?showtopic=9674 وألف شكر لك أخي أبو هادي. UmAlQura.rar

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

يكون ذلك بإستخدام الدالة SUMIF .. كما في المثال التالي: SUMIF.rar

الجواب موجود في المشاركة الرابعة لي في هذا الموضوع.

السلام عليكم، تبقى أنت أستاذنا الذي نتعلم منه أخي أبو هادي .. بالنسبة للدالة DATEDIF .. فلقد تعرفت عليها قبل ثلاث سنوات تقريباً بينما كنت أتجول في أحد المواقع الأجنبية .. ولا يوجد أي معلومات عن هذه الدالة في جميع إصدارات الإكسل .. ما عدا أوفيس 2000 .. فهو الوحيد الذي تفرد بشرح وافي عن هذه الدالة .. ولقد قمت بترجمة الموضوع الذي يتحدث عن هذه الدالة .. وقد أرفقته على الرابط التالي .. أرجو أن يحوز على رضاك أخي أبو هادي. http://www.officena.net/ib/index.php?showtopic=8616

السلام عليكم، الأخ العزيز أبو هادي .. لقد قمت بإستخدام الدالة DATEDIF فقط .. وقد حصلت على نفس النتيجة التي حصلت أنت عليها بإستخدامك للدالة المذكورة بالإضافة إلى الدوال MOD و DAY .. لذا أود منك إيضاح سبب إستخدامك لدوال إضافية .. ما دام بوسعنا تقليص عدد الدوال للحصول على نفس النتيجة المرجوة. شكراً لك. DateDiff.rar

لعمل ذلك قم بدمج الخلية A3 مع الخلية B3 .. ثم قم بزيادة حجم الخليتين المدموجتين عن طريق تصغير أو تكبير حجم الخلية B3 .. وبهذا لن يتأثر حجم الخلية A1 عندما نزيد حجم الخلية A3 .. كما في المثال المرفق. ولمعلومات أكثر مع مثال توضيحي موسع .. راجع الرابط التالي: http://www.officena.net/ib/index.php?showt...=8074&hl=إضافية _____________________.rar

نتشرف بملاحظاتك القيمة والمفيدة أخي أبو هادي.

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

لا أعقتد أن الخطأ بسبب إصدار الأوفيس .. لأن ميزة الفرز موجودة في النسخ القديمة في الإكسل. ولكن أقترح عليك أن تنقل الملف إلى جهاز آخر به أوفيس 2003 ..

لا يمكنك عمل ذلك عن طريق تسجيل الماكرو. لا يمكن وضع الأرقام في العمود .. لأن الكود يعتبر الصفوف التي تحتوي على أرقام مملوءة .. لذا فإنه يذهب للصف الفارغ الذي يليه .. لذا توجب علينا جعل الترقم تلقائي مع كل عملية ترحيل. لقد قمت بتعديل الكود ليقوم بهذه المهمة. يجب أن يبدأ الترحيل من الصف الثاني .. و لايمكننا تغيير ذلك. لقد قمت بالتعديل على الكود .. ليفي بهذا الغرض .. وإذا أبقينا العمود الأول غير فارغ .. فإن الترحيل لن يعمل بشكل صحيح. بكل سرور With Columns(1).Rows(31).End(xlUp) في هذا الجزء من الكود .. الرقم 1 يمثل رقم العمود الذي يبدأ منه الترحيل .. والرقم 31 يمثل آخر صف نريد تعبئة البيانات به. .Offset(1, 0) = [A36] وفي هذا الجزء .. الرقم 1 .. يمثل رقم الصف الذي نبدأ منه الترحيل -1 .. والرقم 0 .. يمثل رقم العمود الذي نبدأ منه الترحيل -1 و [A36] .. يمثل رقم الخلية التي نريد نقل بياناتها .. لكي يصبحوا مكان الخلية التي قمنا بتحديد موقعها عن طريق الرقمين 0 و1. هذا كل شيء. __________________________.rar

وعليكم السلام، يتم إحتساب الفرق بين التواريخ عن طريق إستخدام الدالة DATEDIF .. شاهد المرفق وأخبرني إذا كان هذا ما تريد. _________________.rar

هل تعني ترحيل البيانات من العمود A إلى العمود B في نفس الصفحة .. كما في الرابط التالي: http://www.officena.net/ib/index.php?showtopic=10091

وعليكم السلام، هذا الكود خاص بالفرز .. وهل يعمل لدي بدون أي مشاكل .. أشك أنك قمت بتغيير شيء في الكود .. وأرى أن تقوم بتحميل الملف مرةً أخرى.

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

ضع الكود التالي في الورقة الأولى: Private Sub Worksheet_Change(ByVal Target As Range) If (Range("D" & Target.Row).Value <> "" And (Range("E" & Target.Row).Value <> "" Or Range("F" & Target.Row).Value <> "") _ Or Range("E" & Target.Row).Value <> "" And (Range("D" & Target.Row).Value <> "" Or Range("F" & Target.Row).Value <> "") _ Or Range("F" & Target.Row).Value <> "" And (Range("D" & Target.Row).Value <> "" Or Range("E" & Target.Row).Value <> "")) Then MsgBox "لا يمكنك إختيار أكثر من نوع للإجازة", vbExclamation, "عفــواً" Application.Undo Exit Sub End If End Sub

بالطبع يمكن عمل ذلك، شاهد المرفق، Extract2.rar

جرب الكود التالي: Sub Select_Range() [A7:J7].Select Range(Selection, Selection.End(xlDown)).Select End Sub