بن علية حاجي

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم ما فهمت عليك المطلوب... ضع ملفا بالمرفقات تشرح فيه شروط الحصول على مادة ومادتين وغيرها وتعطي مثالا على المطلوب... يمكن استعمال المعادلة التالية في الخلية G1 بافتراض أن المواد المحصل عليها موجودة في النطاق A1:F1 مع تسطير مضمون الخلية G1: =REPT(" ";3)&REPT(" |";COUNTA(A1:F1))&REPT(" ";3) أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم، يُستحسن أن تكون كل الملفات في دليل واحد Directory، تقوم بفتح الملف Z.XLSX ثم فتح خاصية DATA ثم اختيار خاصية "تغيير ارتباط الوصول" change link access ونقوم بتغيير ملف الارتباط من XX.XLSX إلى XX.XLSM (تجد كل ذلك في الملف التنفيذي بالمرفق غير أنه محضر على أوفيس 2007 بالفرنسية)... أرجو أني وُفقت في الشرح... أخوك بن علية 123.rar

السلام عليكم ورحمة ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم لست أدري ما هو المطلوب... علاقة الترحيل موجودة بين المصدر Employee Data و الهدف Attendanc calendar" في بيانات ومعلومات الموظف وأيضا السطر الذي عنوانه Beginning Balance... هل توجد بيانات أخرى تريد ترحيلها؟؟ أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال.... أخي الكريم، هذا حل من حلول أخرى استعملت فيه الدوال RIGHT ، LEN ، FIND بفرض أن السلسلة النصية موجودة في الخلية A2 =RIGHT(A2;LEN(A2)-FIND(" ";A2;FIND(" ";A2;1)+1)) أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، أولا أريد أن أعرف ما نوع الإحداثيات التي ذكرتها؟ إذا كانت إحداثيات ديكارتية أي من الشكل الذي ذكره إخوتي الكرام (x,y) فيجب معرفة نوع نوع المعلم الذي تعمل فيه... إذا كان المعلم متعامدا ومتجانسا فقد أجابك أخواي الكريمين طارق ودغيدي حفظهما الله... وإذا كانت غير ذلك فالمسألة تختلف حسب نوع الإحداثيات ونوع المعلم... والله أعلم

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، كان من المفروض أن لا يكون في عنوان موضوعك عبارة "أحتاج مساعدة" وأحسن لو اكتفيت بالعنوان "النسخ من ورقة إلى ورقة أخرى" أو أي عبارة أخرى تكون لها علاقة بالموضوع مباشرة وهذا أولا لشروط المشاركات في المنتدى وثانيا لتسهيل عملية البحث في المستقبل... بالنسبة لموضوعك قمت بإضافة طريقتين باستعمال المعادلات بالدوال VLOOKUP و INDEX مع MATCH وتجد ذلك في الملف المرفق... والمسألة لها حلول أخرى... أخوك بن علية Book1.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، هذه نسخة أخرى من الملف (تعمل على أوفيس 2007 أو أكثر لأجل التنسيقات الشرطية المتعددة) حاولت فيها تحقيق مطالبك الثلاثة الأخيرة وإن شاء الله أكون قد وُفّقت في ذلك... ويبقى المطلوب الأول "مشكلة ربط أو ترحيل البيانات بين Employee Data و Attendanc calendar"... أيهما المصدر (من) وأيهما الهدف (إلى)؟؟؟ أخوك بن علية Emmpl-Attendance_Calendar_V1.22.rar

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال.... أخي الكريم، إضافة إلى ما قدمه حبيبي هشام حاولت أن أصحح المعادلات في الخلية E6 حسب ما فهمت في الملف المرفق أرجو أن تكون صحيحة... يبقى لك معادلة احتساب التأخير L حضورا P وهذه يمكنك إضافتها ضمن معادلة حساب عدد P في الأعمدة المخفية ويبقى أيضا مشكله في ربط او ترحيل البيانات بين شيت Employee Data والشيت Attendanc calendar وهذه لم أفهمها (مبدئيا يوجد ربط بمعادلات بينهما ولست أدري إن كان هو المقصود)... أخوكم بن علية Emmpl-Attendance_Calendar_V1.22.rar

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

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

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

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم أقدم لك حلا آخر لاحتساب نصف المدة بمعادلات أبسط (للفائدة)... أخوكم بن علية احتساب نصف المده.rar

السلام عليكم ورحمة الله تقبل الله صيام وقيام الجميع بمزيد من الأجر والثواب... أخي الكريم أود منك أولا أن تصحح الأخطاء في تسميات نطاقات الشهور التي سميتها Janu ، Febr ، Mare ، Apri ، Mayo ، Juny ، Juli ، Augu ، Sept ، Octo ، Nove ، Dece ، والتسمية Mont فكلها فيها أخطاء... وأعتقد أنه بمجرد تصحيحها تعمل المعادلات الموجودة في الخلية E6 في كل ورقة من أوراق الشهور، بشكل صحيح... وبعد التصحيح يتبين لنا كيفية عمل المطاليب الأخرى... والله أعلم

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم هذا حل آخر بالمعادلات (للفائدة) لعلمي أن الإخوة الكرام لم يبخلوا في إعطاء الحل الصائب... أخوكم بن علية تقسيم عدد.rar

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم، إن الخطأ يظهر لأن الأرقام المكتوبة ليست بتنسيق الأرقام، ويمكنك تغيير الصيغة (المعادلة) في الخلية E4 بالمعادلة =D4*1-C4*1 بدلا من المعادلة =D4-C4 ثم سحبها إلى الأسفل... والله أعلم

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

السلام عليكم ورحمة الله رمضان كريم وتقبل الله منا ومنكم الصيام والقيام... أخي الكريم، حسب ما فهمت من المطلوب أقدم لك العمل التالي في الملف المرفق وفيه أضفت عمودين ملونين بالأصفر يحويان معادلات للترقيم الآلي (خارجين من مجال الطباعة) وفي الخليتين (من إلى) نضع الأرقام المراد طباعتها (سواء أرقام أمر الصرف أو أرقام الصرف) ثم نضغط على زر أمر الطباعة المناسب وسيتم المطلوب بإذن الله... أخوك بن علية Book1.rar

السلام عليكم ورحمة الله أخي الكريم فضل، اعتقدت أن الكود يعمل جيدا ولكني لما قمت بتجربته بقي يعطي الخطأالذي ذكرته بالأعلى، لذا قمت بتغيير طفيف عليه وذلك بتبديل السطر : If [a3] <> 0 Then x = [a3] + 19 بالسطر: If [a3] <> 0 And [a3] <= [F1] Then x = [a3] + 19 وإن شاء الله يفلح هذا التغيير وتجد حلا لمسألتك... وإليك الملف المرفق التالي مع التغييرات الجديدة، ما عليك إلا تجربته والتحقق من عمل الكود بصفة صحيحة وسليمة... أخوك بن علية التسلسل2.rar

السلام عليكم ورحمة الله أخي الكريم فضل إن الكود الذي وضعه أخي الكريم الحسامي يعمل جيدا جزاه الله عنا ألف خير والمشكل معك أنك كررت الكود في ملفك مرة في كود الورقة 2 على الشكل: Private Sub Worksheet_Activate() [a3:a22] = Empty If [f1].Value <> 0 Then If [a3] <> 0 Then x = [a3] + 19 If Application.WorksheetFunction.CountIf([a3:a22], [f1]) = 1 Then x = 0 [a3:a22] = Empty For i = 1 To 20 Cells(i + 2, 1) = x + i If x + i >= [f1] Then Exit Sub Next i Else [a3:a22] = Empty End If End Sub والمرة الثانية في Module الذي وضعت له زر الأمر في الورقة وهو على الشكل: Sub Button9_Click() If [f1].Value <> 0 Then If [a3] <> 0 Then x = [a3] + 19 If Application.WorksheetFunction.CountIf([a3:a22], [f1]) = 1 Then x = 0 [a3:a22] = Empty For i = 1 To 20 Cells(i + 2, 1) = x + i If x + i >= [f1] Then Exit Sub Next i Else [a3:a22] = Empty End If End Sub وحل المشكلة تم بحذف أحد الكودين وقد قمت بحذف كود الورقة 2 في الملف المرفق وإن شاء الله يكون حل لمسألتك... أخوك بن علية التسلسل.rar

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر بالمعادلات إضافة إلى حلول إخوتي الكرام جزاهم الله عنا ألف خير... أرجو أن يكون المطلوب... وجمعة مباركة للجميع أخوك بن علية الترحيل بثلاثة شروط_3.rar

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

السلام عليكم ورحمة الله إخواني الكرام، يمكن أيضا استعمال المعادلة التالية (وهي معادلة صفيف أي يجب تأكيدها بواسطة CTRL+SHIFT+ENTER) : =SUM(IF(OR(A2:A15<>"";A2:A15<>0);A2:A15))/SUMPRODUCT((A2:A15<>0)*(A2:A15<>"")) والله أعلم أخوكم بن علية