بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم، أريدك أن تجرب العملية التالية : بعد أن تقوم بتفعيل خاصية "التفاف النص" في خلية ما واحجز فيها النص (الطويل) وقبل أن تقوم بتغيير ارتفاع الصف (كما فعلت في الفيديو) انظر إلى خاصية "التفاف النص" هل بقيت مفعلة؟ إذا لم تجدها مفعلة فهذا يعني أنه يوجد (أو وُجد) ماكرو في الملف يقوم بإلغاء الخاصية ... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، في اعتقادي أنه لحل هذه المشكلة في الوورد يجب اتباع ما يلي : 1- الضغط على : ALT+F9 وفي هذه الحالة كل الحقول المدرجة في الورقة تُفتح على الشكل : { MERGEFIELD Name } حيث Name يمثل اسم الحقل... 2- تختار الحقل الذي تريد تغيير التنسيق فيه وتضيف له بعد اسم الحقل العبارة MM/dd/yyyy @\ أو العبارة dd/MM/yyyy @\ (حسب الحالة) بعد اسم الحقل، فيكون الحقل من الشكل : { MERGEFIELD Name \@ MM/dd/yyyy } أو { MERGEFIELD Name \@ dd/MM/yyyy } 3- الضغط على : ALT+F9 مرة أخرى للرجوع إلى حالة الدمج... أرجو أن يفيدك هذا في حل مشكلتك.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم نسيت أن أذكر أنه لكي تعمل هذه الخاصية تلقائيا في خلايا معينة يجب أولا تحديد هذه الخلايا ثم تفعيل الخاصية على هذه الخلايا... انظر إلى الرابط التالي (بالإنجليزية) وهو يجيب على السؤالين : http://office.microsoft.com/en-us/excel-help/wrap-text-in-a-cell-HP001216382.aspx أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أختي الكريمة، وأؤكد أن هذا يبقى صحيحا حتى في إكسيل 2003... أخوكم بن علية

السلام عليكم ورحمة الله أختي الكريمة نادية، ليست عندي فكرة عن كيفية عمل السيرفر ولكني أعتقد أن عملها مماثل لعمل أي جهاز كمبيوتر وفي هذه الحالة وإذا كانت ملفات PDF التي يتم طلب فتحها بواسطة الكود موضوعة مع ملف إكسيل الذي يتم العمل عليه (في الموقع نفسه) فإنه يتم استبدال السطر (في الكود) : Emplacement = "C:\TEST\" بالسطر: Emplacement = ThisWorkbook.Path & "\" ملاحظة : في كود الزر Open MRR أخطأت خطأ مطبعيا وهو في العبارة : If Dir(Fichier) <> "" الرجاء تصحيحها بالعبارة : If Dir(File) <> "" والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أختي الكريمة نادية، قمت ببعض التعديلات على كود البحث إذ أني وجدت فيه خللا بعدم اعتبار "السنة" في البحث مع إضافة حل للمطلوب الأول (التحقق من حالة المعمل Lab Status بعد إظهار النتيجة) بطريقتين (في الملفين المرفقين) الأولى بتلوين textbox ذاته الخاص بحالة المعمل في الفورم والثاني تلوين textbox آخر تم إنشاؤه مقابل textbox الخاص بحالة المعمل... تم أيضا كحل للمطلوب الثاني ربط زر Open MRR بكود يقوم بفتح المعني من مسار يتم تحديده في الكود، والكود كما يلي : Private Sub cmdClear_Click() Dim File As String, Emplacement As String On Error Resume Next Emplacement = "C:\Test\" File = Emplacement & Split(txtICn.Value, "/")(2) & "_" & Split(txtICn.Value, "/")(3) & ".pdf" If Dir(Fichier) <> "" Then ShellExecute 0, "open", File, "", "", 0 End Sub * الملف الذي يتم فتحه من المسار تكون تسميته من الشكل (مثلا) : 2012_257.pdf * المسار يتم تغييره وتحديده في الكود في السطر : Emplacement = "C:\Test\" أرجو أن يكون هذا العمل مستوفيا كل المطاليب.... أخوك بن علية الملف المرفق : Nadia_Offic4_5.rar

السلام عليكم ورحمة الله أختي الكريمة، أخوايا الكريمين الأستاذ/ عباد والأستاذ/ ضاحي، عيدكم سعيد وكل عام وانتم بخير، عملكما أكثر من رائع فبارك الله فيكما وجزاكما عنا كل خير... أستسمحكما لأضيف حلا آخر فيه تعديل على كود أخي عباد ومشابه لعمل أخي ضاحي في الملف المرفق... أخوكم بن علية الملف المرفق : Nadia_Offic3.rar

السلام عليكم ورحمة الله أختي الكريمة، معذرة أولا على الإطالة في الرد وثانيا لأني لم أستعمل الفورم الذي وضعته (لا أتحكم كثيرا بالفورم) واستعملت المعادلات لعمل المطلوب مع إضافة بالتنسيق الشرطي ... أرجو أن يفي هذا بالمطلوب... أخوك بن علية الملف المرفق : book1-trial.rar

السلام عليكم ورحمة الله أخي الكريم، تم المطلوب في الملف المرفق مع إضافة عمودين في ورقة "سجل الطلبات" للترقيم التلقائي حسب الشروط المطلوبة أحدهما (A) خاص للفرز حسب "مركز الخدمة" والآخر (B) للفرز حسب "التاريخ" وهذا يساعد في استعمال معادلات بسيطة للترحيل وإلا -وما دمت لا تريد أكوادا- فإن معادلات الترحيل ستكون "معادلات صفيف وطويلة" مما يكون سببا في بطء عمل الملف باعتبار العدد الكبير لهذه المعادلات... أرجو أن يكون هذا العمل مقبولا ويفي بالغرض المطلوب فعلا... أخوك بن علية الملف المرفق : سجل.rar

السلام عليكم ورحمة الله أخي الكريم، تم المطلوب بإدراج كود بسيط جدا مع تغيير طفيف على معادلة A10.... أخوك بن علية الملف المرفق : مساعده فى كود لمسح البيانات.rar

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على الكود ليتناسب مع المطلوب... أخوك بن علية الملف المرفق : المساعده فى الطباعه.rar

السلام عليكم ورحمة الله أخي الكريم، هذا رابط (بالإنجليزية) يعطي بعض الحلول لهذا النوع من الرسائل، أرجو أن تحل مسألتك... الرابط : http://techsalsa.com/solution-to-this-operation-has-been-cancelled-due-to-restrictions-in-effect-on-this-computer/ أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كنت قد فهمت المطلوب وأقدم لك الملف المرفق فيه تعديل على المعادلة الشرطية علّه يفي بالغرض المطلوب.... أخوك بن علية الملف المرفق : ‫PASS OR FAIL11_2.rar

السلام عليكم ورحمة الله أخي الكريم، انظر الملف المرفق وإن شاء الله تجد ما تطلبه... أخوك بن علية الملف المرفق : ‫PASS OR FAIL11.rar

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أن ما تريده يصلح بالمعادلات إلا إذا كانت خلية القائمة المنسدلة واحدة فقط وليست كما تقترحها عدة خلايا من العمود B فنربط هذه الخلية مع الخلية J1 (بالتساوي) وتعمل كما يعمل الكود مثل ما هو مبين في الملف المرفق ... والله أعلى وأعلم أخوك بن علية الملف المرفق : قائمة منسدلة مفلترة.rar

السلام عليكم ورحمة الله أخي الكريم أزهر، المعادلة التي وضعتها في الخلية AH3 وضعتها فقط للتأكد من أن رقم يوم (الذي هو يوم جمعة) لتاريخ 04/01/2013 هو 6 يمكنك مسحها... بالنسبة للمعادلة التي استعملتها في التنسيق الشرطي في الخلية B4 مطبقة على النطاق B4:AF15 والتي هي : بالفرنسية: =JOURSEM(DATE($D$1;EQUIV($A4;$A$4:$A$15;0);B$3))=6 وبالإنجليزية : =WEEKDAY(DATE($D$1;MATCH($A4;$A$4:$A$15;0);B$3))=6 فتفسيرها كما يلي: إذا صادف وأن كان رقم يوم التاريخ، في هذه الخلية (B4) المعين بالدالة DATE حسب السنة من الخلية المثبتة D1 ورقم الشهر المعين بالدالة MATCH حسب رقم ترتيب مضمون الخلية A4 (المثبت عمودها) في النطاق المثبت للأشهر A4:A15 واليوم المعين حسب عمود الخلية B4 من السطر الثالث المثبت، هو رقم 6 (الذي هو رقم يوم الجمعة في الأسبوع) فيتم تلوين الخلية باللون المختار... وجدت صعوبة في كتابة حرف F داخل الخلية الملونة إلا بواسطة كود وضع في حدث الورقة باستعمال خاصية Calculate تجد ذلك في الملف المرفق... أتمنى أن يكون الشرح مستوفيا المطلوب.... الملف المرفق : dairy2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، نعم تم باستعمال التنسيق الشرطي.... أخوك بن علية الملف المرفق : dairy.rar

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على القائمة المنسدلة ببعض الإضافات والاستعانة بكود بسيط يقوم بنسخ مضمون الخلية المختارة من العمود B في الخلية J1 والتي تسمح بانتقاء القائمة المنسدلة... لم أهتد لوسيلة وفكرة أخرى لعمل المطلوب.... أرجو أن ينال إعجابك... أخوك بن علية الملف المرفق : قائمة منسدلة مفلترة.rar

السلام عليكم ورحمة الله أخي الكريم سمير الهنداوي، انظر الملف المرفق ربما تجد فيه ما تريد... أخوك بن علية الملف المرفق : مقارنة بين عمودين -1.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، حاولت أن أفهم مبدأ الكود في بدايته (الشروط) لكن دون جدوى... تمت تعديلات على الكود حسب المطلوب (أرجو ذلك)... بالنسبة للبيانات التي كُتبت في اليسار (خارج الجدول في الصورة عند تنفيذ الكود) كان بسبب أن تنسيق الملف في الرد الأول يختلف عن تنسيق الملف في ردك الأخير، فقد جعلت في جدول الملف عمود "بيان" من خمسة أعمدة (من E إلى I) بينما في الثاني جعلت له عمودا واحدا (العمود E) وتركت معادلات الترحيل في الكود كما هي... أرجو أني فهمت واستوفيت المطلوب... أخوك بن علية الملف المرفق : Code Merge (4).rar

السلام عليكم ورحمة الله أخي الكريم أحمد صاحب، تم الحل باستعمال المعادلات في الملف المرفق... أرجو أن يفي بالغرض المطلوب... أخوك بن علية الملف المرفق : تجربة.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، الحقيقة أن الكودين يشكلان جزئين من كود واحد كما ذكر أخي الحبيب عبد الله... وقد قمت فقط بنقل السطرين التاليين إلى بداية الكود : Application.ScreenUpdating = False Application.Calculation = xlCalculationManual من المفروض أن الكود بجزئيه يشتغل تلقائيا بمجرد أي تغيير يحدث في الورقة... الملف المرفق : Code Merge.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، طلبك غير مفهوم، قد تم في الملف المرفق استعمال كود بزر يقوم بإدراج عمود F وإزاحة البيانات إلى اليسار... أرجو أن يكون فيه بعض المطلوب.. أخوك بن علية الملف المرفق : zmzm.rar