معتصم محمد

بعد إذن الأستاذ عبدالله قمت بكتابة الكود التالي (أول كود اقوم بكتابته :) ) Private Sub CommandButton1_Click() If Sheets("تجميع شهري").Range("a450").End(xlUp).Value = Sheets("بيانات يومية").Range("b1").Value Then Exit Sub Else Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(1, 0).Value = Sheets("بيانات يومية").Range("b1").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 1).Value = Sheets("بيانات يومية").Range("e2").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 2).Value = Sheets("بيانات يومية").Range("e3").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 3).Value = Sheets("بيانات يومية").Range("e4").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 4).Value = Sheets("بيانات يومية").Range("e5").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 5).Value = Sheets("بيانات يومية").Range("e6").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 6).Value = Sheets("بيانات يومية").Range("e7").Value Sheets("تجميع شهري").Range("a450").End(xlUp).Offset(0, 7).Value = Sheets("بيانات يومية").Range("e8").Value End If Sheets("تجميع شهري").Activate End Sub

من خلال النظر في المعادلة المستخدمة ستجد أن المشكلة في الشرط المدخل بالدالة if =IF(J8=" ناجح";" ناجح";IF(J8="ناجح/قرار";"ناجح";"راسب")) والتعديل سيكون كالتالي =IF(J8="ناجح ";" ناجح";IF(J8="ناجح/قرار";"ناجح";"راسب")) التعديل في كلمة ناجح ويليها مسافة وليس العكس

اللهم امين

شرح فيديو لعملية إضافة كود لملف الإكسل

بعد إذن الاستاذ / عبدالله يمكنك إستخدام الدالة التالية =CEILING(B12;0.01) الخلية B12 تشتمل على القيمة الرقمية و 0.01 هي معامل التقريب لأعلى

الأخ العزيز الدالة NOW ستقوم بالطبع بإدخال تاريخ اليوم، لكنها كذلك ستدرج بالخلية الوقت الذي تم إدخال الدالة بالخلية ومع كل تغيير في الشيت سيتغير هذا الوقت لذلك إذا كنت ستقوم بعملية معينة على الخلية التي بها التاريخ كعملية مقارنة مثلاً فإن نتيجة مقارنة الدالة Now بالدالة Today ستكون القيمة False وذلك لأن الدالة Today ستكون نتيجتها تاريخ اليوم 26/ 06 /2011 في حين أن الدالة NOW ستكون نتيجتها 05:43 26/ 06/ 2011 لذلك وجب التنويه عن الفرق بين الدالتين

اسلوب اخر لإيجاد الفرق بين تاريخين في صورة عدد الأيام هو إيجاد ناتج طرح التاريخ الأكبر من التاريخ الأصغر 31/ 3/ 2011 - 12/ 3/ 2011 لتكون النتيجة 19 يوم

شاهد المرفق ا / جمال windows-1256__كود السن.rar

الدالة IFERROR نسخة 2007 و ما يليها في حالة أن المعادلة المستخدمة نتيجتها خطأ Error فإن هذه الدالة تقوم بإظهار قيمة بديلة لهذا الخطأ

الدالة COUNTIFS حساب عدد مرات تكرار عدة بنود معاً في نطاق محدد نسخة 2007 وما يليها

هو عبارة عن ملف يشتمل على شرح إنجليزي للعديد من الدوال هذه صورة للملف من الداخل (صورة للنسخة الثالثة) الملف المرفق يمثل النسخة الأخير -الرابعة- من الملف

للأسف فإنني غير متمكن من الأكواد، قد يقدم لك أحد الأعضاء ما تريده بالتوفيق بإذن الله

الأخ العزيز المعادلة التالية =TEXT((40699 +ROW(A1));"ddd")&" "&ROW(A1) تتكون من عدة أجزاء هي القيمة الرقمية 40699 وتمثل يوم الجمعة 3/ 6/ 2011 ولاننا نريد أن تزيد هذه القيمة عند السحب لأسفل بمقدار 1 فتم إضافة الجزء الخاصة بالدالة ROW ثم تأتي الدالة TEXT لتقوم بإظهار التاريخ في تنسيق إسم اليوم (سبت / أحد / ...) تم إستخدام علامة دمج النصوص ثم الدالة ROW لإظهر الرقم الذي يتبع إسم اليوم ( السبت 1/ الأحد 2/ ....) لذلك إن أردت أن تبدأ بالرقم 25 اي السبت 25 فنقوم بالتعديل على الدالة ROW الأخيرة لتاخد الخلية A25 =TEXT((40699 +ROW(A1));"ddd")&" "&ROW(A25)

الأخ العزيز إن عملية الإجابة على الموضوعات هي عملية ليست بالإجبارية على الأعضاء بل هي تطوع من العضولا يتم التفرقة بين عضو جديد وعضو خبير فجميع الأعضاء يقدموا ما يستطيعوا القيام بهحين يتم طرح أحد الأسئلة فإن من يستطيع المساعدة يقدم العون وإن لم يكن هناك مساعدة فذلك يكون لعدة اسباب منهاعدم وضوح السؤالعدم وجود ملف مرفق لفهم السؤال والتطبيق المباشر على مثال حي بخصوص موضوع الأستاذ / 66h فيجب علينا كأعضاء العمل بقواعد المشاركة في المنتدى فلا يعقل أن يكون هناك قاعدة تقول " لا تضع موضوع بعنوان غير واضح مثل ارجو المساعدة في هذه المشكلة" ثم اقوم بطلب مساعدة في مشكلة ويكون عنوان الموضوع "عندي مشكلة عايز لها حل" لذلك سيقوم أحد المشرفين بتعديل عنوان الموضوع ليدل على محتوى الموضوع بالنسبة للملفات التي ستقدمها لنا فشكراً مقدماً

القيمة 40697 تمثل يوم الجمعة 3/ 6/ 2011) قم بكتابة المعادلة التالية في الخلية التي تريدها ثم إسحب لأسفل =TEXT((40697 +ROW(A1));"ddd")&" "&ROW(A1) مع ملاحظة أنك إذا اردت السحب بشكل افقي فقم بتغيير الدالة ROW بالدالة Column لتعديل هذه المعادلة لكي تبدأ باليوم الذي تريده قم بتعديل القيمة 40697 لقيمة اخرى فمثلاً إذا اردت ان تبدأ بـ إثنين 1 فتكون المعادلة المستخدمة هي =TEXT((40699 +ROW(A1));"ddd")&" "&ROW(A1) بمعنى أننا نستخدم سريال تاريخ يسبق الييوم الذي نريد البدء به - 1

وجزاكم

توضيح سريع للدالة TRIM إذا كان لدينا النص التالي بدون علامات التنصيص "منتدى أوفيسنا قسم الإكسل" يوجد أكثر من مسافة بين منتدى أوفيسنا و قسم الإكسل =TRIM("منتدى أوفيسنا قسم الإكسل") ستكون النتيجة بدون علامات التنصيص "منتدى أوفيسنا قسم الإكسل" أمثلة =TRIM(" Excel Function ") نتيجة الدالة Excel Function =TRIM("Officena ") نتيجة الدالة Officena

المعادلة الأصلية المستخدمة =CONCATENATE(IF(B4<B3;B1;"");" ";IF(C4<C3;C1;"");" ";IF(D4<D3;D1;"");" ";IF(E4<E3;E1;"");" ";IF(F4<F3;F1;"");" ";IF(G4<G3;G1;"");" ";IF(H4<H3;H1;"");" ";IF(I4<I3;I1;"");" ";IF(J4<J3;J1;"");" ";IF(K4<K3;K1;"")) تقوم هذه الدالة بإظهار أسماء المواد التي رسب فيها الطالب عربي علوم رياضيات إنجليزي لكن عندما يكون الطالب ناجح في عدة مواد فرضاً العلوم والرياضيات فإن إستخدام المعادلة سيعطينا النتيجة التالية عربي إنجليزي ستلاحظ أن هناك مسافات زائدة بين المواد نتيجة أن الطالب نجح في بعض المواد لذلك إستخدام الدالة TRIM يقوم بحذف المسافات الزائدة بالنص (المسافات التي في أول النص وفي نهايته والمسافات التي بين الكلمات في حالة أنها اكثر من مسافتيين وبالتالي إضافة الدالة TRIM للمعادلة المستخدمة ستعطينا النتيجة عربي إنجليزي

الأستاذ / kemas يمكننا إضافة الدالة TRIM للمعادلة المستخدمة لإزالة المسافات الزائدة =TRIM(CONCATENATE(IF(B4<B3;B1;"");" ";IF(C4<C3;C1;"");" ";IF(D4<D3;D1;"");" ";IF(E4<E3;E1;"");" ";IF(F4<F3;F1;"");" ";IF(G4<G3;G1;"");" ";IF(H4<H3;H1;"");" ";IF(I4<I3;I1;"");" ";IF(J4<J3;J1;"");" ";IF(K4<K3;K1;"")))

شكراً للأستاذ / عبدالله على هذا الكتاب

شكراً للأستاذ / عادل على إثراء الموضوع بصراحة أغبطكم على تمكنكم من الإستفادة من الـ VBA في تنفيذ العمليات المختلفة

الأستاذ / سليم إذا كنت لا تمانع هل يمكن أن تقول لي ما الهدف من الشيت؟ وما هي عمليات الإدخال التي تقوم بها؟ وما الناتج الذي ستحصل عليه؟ لأنه يمكن أن يتم إعاداة تصميم الشيت بشكل معين يساهم في اداء مهامك بشكل اسرع واسهل وكذلك يمكنك من اداء عمليات تحليل كذلك

الأستاذ / طارق شكراً على التوضيح

شاهد المرفق لاحظ أن ما اردته يعتبر سهل التنفيذ في نسخة 2007 وما يليها لان التنسيق الشرطي اصبح يقبل بوجود خمسة شروط للخلية الواحدة لكن في حالة أنك تريد أن تنفذ ما تريده على نسخة 2003 فعليك بإستخدام الأكواد أو ان تعتمد على إستخدام 3 شروط فقط CF.zip

بعد إذن الأساتذة الكرام يمكننا إستخدام الأداة Track Changes في الموضع Review » Changes » Track Changes » Highlight Changes بعد الضغط على الأداة سيظهر لنا مربع الحوار Highlight Changes نقوم بتفعيل الـ Check Box الخاص بعملية متابعة التغييرات (بتفعيل هذا الأمر فإننا بذلك نُفعل ايضاً مشاركة الملف Share ) نحدد متى يتم تحديد التغييرات التي تمت على الخلايا من هم الأشخاص الذين ترغب في متابعة تعديلهم على الملف ( لان الملف اصبح في وضع المشاركة ) تحديد النطاق الذي ترغب في متابعة التعديلات عليه حدد ما إذا اردت أن يتم إظهار التعديلات التي تمت على الخلايا في نفس الشيت ( بتفعيل هذا الإختيار فإنه سيتم إظهار التعديل في هيئة التعليق Comment وسيكون على الخلية في الركن العلوي مثلث أزرق غامق ليوضح أن هناك تعديل على هذه الخلية ) الأن يمكنك أن تقوم بالتعديل على البيانات التي بالملف لكن لن يتم إظهار التعديلات التي تمت على الملف إلا بعد عمل Save للملف وبذلك فإن الإكسل سيخبرك بالتعديلات التالية القيمة الأصلية للخلية قبل التعديل القيمة الجديد للخلية بعد التعديل الشخص الذي قام بالتعديل وقت التعديل