بن علية حاجي

السلام عليكم هذه إجابة على طلبك حسب ما فهمت... بن علية حاجي معادله اكسيل مهمه جدا.rar

السلام عليكم ورحمة الله أعرف أن الموضوع تم بفضل الله ثم بفضل أخي الكريم حمادة عمر، لكني فضلت أن أشارك بهذا الرد حيث قمت بالتعديل على الكود بتبسيطه باستعمال الحلقات FOR.....NEXT بعد التعديل في الترتيب في مواضع كل التكسات في الفورم (من TextBox4 إلى TextBox29) ثم إضافة كود الترحيل إلى الخلايا في الصف 2 من العمود 1 إلى العمود 26... أرجو أن تكون هذه التعديلات مفيدة... بن علية حاجي فصل حروف الاسم لتكستات بوكس حرف حرف.rar

السلام عليكم ورحمة الله تم حذف التسميتين Liste_1 و Liste_2 وتعديل الأكواد لإنشاء نطاقات ناحية الطباعة لكل الشيتات برمجيا مع تغييرات أخرى لتجنب الخطأ الذي ظهر في الرسالة... إن شاء الله تفي هذه التعديلات الغرض المطلوب.... بن علية حاجي اعمال السنة 2018 -والأنشطة.rar

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق حسب المراحل التالية: 1- تم إضافة المعادلة COUNTA($B:$B)-1= في الخلية V1 في كل الشيتات لحساب العدد الإجمالي للطلبة... 2- إنشاء التسميتين Liste_1 (خاصة بالشيتين الأول والثالث) و Liste_2 (خاصة بالشيتين الثاني والرابع -أنشطة-) لاستعمالهما في تحديد ناحية الطباعة (ديناميكية) لكل هذه الشيتات... معادلات هذه التسميات طويلة قليلا (تم استعمال الدوال INDIRECT ، CELL ، OFFSET في هذه المعادلات)... 3- تم إنشاء 4 أكواد للطباعة: الكودين Print_1 و Print_2 لطباعة الصف المختار في كل شيت، و الكودين PrintFromTo_1 و PrintFromTo_2 لطباعة كل الصفوف في كل شيت (الكودين Print_1 و PrintFromTo_1 استُعملا مع الشيتين الأول والثالث والكودين Print_2 و PrintFromTo_2 استُعملا مع الشيتين الثاني والرابع -أنشطة-)... أرجو أن تفي هده التعديلات الغرض المطلوب... بن علية حاجي اعمال السنة 2018 -والأنشطة.rar

السلام عليكم ورحمة الله وجدت لك معادلة من النت (موقع أجنبي) تقوم بما تريده وقد تم وضعها في الملف المرفق مع ملاحظة تحديد الإحدائيات (خط العرض : العمود B ---- خط الطول : العمود C)... أرجو أن تفي المعادلة الغرض المطلوب... بن علية حاجي الاحداثيات.rar

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

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

السلام عليكم تفضل المطلوب في الملف المرفق... بن علية حاجي new protofolio.rar

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية المدة الإعتبارية.rar

السلام عليكم ألق نظرة على الملف إن كانت التعديلات على المعادلة يوافق المطلوب والشروط... بن علية new protofolio.rar

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

تم التعديل على المعادلة حسب المطلوب وحسب ما فهمت مع تساؤل... أرجو أن تفي الغرض المطلوب... مرفق الملف new protofolio.rar

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

السلام عليكم ورحمة الله أخي الكريم، أحاول أن أشرح بعض الأمور في الملف: - بالنسبة للقائمة المنسدلة في الخلية m1 فقد تم تبديل مكانها إلى الخلية R2 وقد تم تغيير مرجعها إلى النطاق IH4:IP4 من شيت "الغياب" والتغيير تم في التسمية "الشهور"... - بالنسبة لـ "وجدت أن العنوان لكلمة اخطار غياب تلميذ تغير ليضع اليوم بعد الشهر" : هذه لم أفهمها غير أنه إذا ظهرت في هذا العنوان العبارة (مثلا لشهر سبتمبر 2017 م): "إخطار غياب تلميذ عن شهر سبتمبر aaaa م" فقم بتغيير الجزئية aaaa في المعادلات بالجزئية yyyy... - بالنسبة للعمود IS فقد تم حذفه في المرفق باعتبار أن هذا العمود المساعد أضيف لأجل شيت "المتجاوزون" الذي تم الاستغناء عنه وبالتالي لا ضرورة لهذا العمود... - وبالنسبة للعمود IR المساعد، فقد وُضع لرصد (بالترقيم التسلسلي) للطلاب الذين تجاوز عدد غياباتهم 3 أيام في عمود الغياب (من IH إلى IP من شيت "الغياب") والذي تحدده الدالة OFFSET (في معادلات العمود IR) حسب الشهر الذي تم اختياره في الخلية R2 من شيت "اخطار غياب" (القائمة المنسدلة). أرجو أني وفقت في توضيح الأمور... بن علية حاجي إخطار2.rar

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

السلام عليكم ورحمة الله أخي الكريم إيهاب، ضع مثالا على ما تريده مع النتيجة المرتقبة في ملف... بن علية حاجي

السلام عليكم تم إضافة كود للطباعة لكل الفصول باستعمال كود التحويل وإعادة أسماء الأكواد باللاتينية (الإنجليزية)... تجد اهتزازات للصفحة عند الطباعة نظرا لعملية "التحويل" بالكود Transfer (ماكرو1 سابقا) التي تتم بين ثلاث شيتات وأيضا للتنسيقات الكثيرة في الملف (لم أستطع حل المشكل)... بن علية اولى عشر فصول 2018.rar

السلام عليكم جرب تبديل الجزئية في الكود : Dim i%, k% بالجزئية : Dim i As Long, k أرجو أن يفي هذا الغرض المطلوب... بن علية حاجي

السلام عليكم ورحمة الله الخلل في عدم تنفيذ الكود بصورة صحيحة يكمن في الجزئية من الكود: Application.Max(Feuil1.Range("G:G")) ولأن اسم شيت "شيت الرابع" في VBA هو "ورقة3" وليس "Feuil1" فيجب تصحيح هذه الجزئية بالجزئية : Application.Max(ورقة3.Range("G:G")) وقد تم التصحيح في الملف المرفق مع التعديل في إعدادات الصفحة PageSetup... بن علية حاجي 2017شيت مدرستى - الصف الرابع.rar

Sub insert_rows() 'هذه الجزئية تقوم بالإعلان بالمتغيرات المستعملة في الكود Dim i%, k% 'هذا الأمر خاص بتوقيف تحيين العمليات Application.ScreenUpdating = False ' هذه الجزئية من الكود تقوم بحذف كل الصفوف التي تكون فيها_ 'خلايا العمود الأول فارغة بداية من آخر خلية في العمود إلى غاية الصف الأول '------------------------------------ i = Cells(Rows.Count, 1).End(3).Row Do Until i = 1 If Range("a" & i) = "" Then Rows(i).Delete End If i = i - 1 Loop '------------------------------------ ' هذه الجزئية من الكود تقوم بإدراج صف بين صفي كل خلية من العمود الأول والخلية_ 'التي قبلها إذا كانت قيمهما مختلفة بداية من آخر خلية في العمود إلى غاية الصف الثاني '------------------------------------ k = Cells(Rows.Count, 1).End(3).Row Do Until k = 2 If Range("a" & k) <> Range("a" & k - 1) Then Rows(k).Insert End If k = k - 1 Loop '------------------------------------ 'هذا الأمر خاص بمباشرة تحيين العمليات Application.ScreenUpdating = True End Sub والصبر جميل

السلام عليكم ورحمة الله أخي الكريم، راجع الرابط التالي: حل مشكلة الارتباط التشعبي بن علية حاجي

السلام عليكم ورحمة الله بالنسبة لشرح الكود الخاص بالطباعة (الكود بسيط والشرح وضعته داخل الكود): Sub Print_All() 'هذا الأمر يقوم بتبديل قيم المتغير المستعمل في الكود من القيمة 1 إلى أكبر قيمة في العمود السابع في الورقة1 المسماة "شيت الخامس" حيث أن هذه القيمة تمثل العدد الإجمالي للشهادات... والتبديل يكون بالخطوة 3 باعتبار أن الصفحة الواحدة تحوي 3 شهادات ومعناه أن قيم المتغير تكون بالتسلسل : 1، 4، 7، 10، 13 وهكذا For I = 1 To Application.Max(Feuil1.Range("G:G")) Step 3 'هذا الأمر يقوم بوضع قيمة المتغير في الخلية 'F19 وهي الخلية المرتبطة بالقائمة المنسدلة Cells(19, "F") = I أمر الطباعة للصفحة من 3 شهادات ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'أمر تبديل قيمة المتغير إلى القيمة الموالية بالخطوة 3 Next 'أمر إعادة عرض الشهادات الثلاثة الأولى Cells(19, "F") = 1 End Sub أرجو أني وفقت في الشرح... أخوك بن علية

السلام عليكم ورحمة الله أشكر أخي الكريم صـدّيـق شكرا جزيلا على الفيديو، كنت أنوي تحضير ملف فيديو مماثل وقد أراحني أراحه الله في الدنيا والآخرة وجازاه الله عني خيرا... وأضيف معادلة أخرى لوضعها عند إنشاء النطاق المسمى Classes حتى تكون القائمة مطاطية (القائمة تتمدد حسب العناصر -الفصول- المضافة) فبدلا من إنشاء التسمية بالمعادلة =الأسماء!$I$3:$I$15 نعرفها بالمعادلة : =OFFSET(الأسماء!$I$3;;;COUNTA(الأسماء!$I:$I)) ملاحظة: إذا كانت القائمة المنسدلة الخاصة بالكمبوبوكس هي لتواريخ نضيف الكود التالي لكود الكمبوبوكس حتى نرغم الكمبوبوكس لإظهار عناصره (بعد اختيار العنصر) بتنسيق التاريخ (المختار في كوده): Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Value, "yyyy/mm/dd") End Sub حيث ComboBox1 هو اسم الكمبوبوكس الذي تم إنشاؤه... أرجو أن تستفيد بهذه المعلومات... وأكرر شكري لأخي صـدّيـق... بن علية

السلام عليكم أخي وجدت لك معادلة في النت تقوم بحساب المسافة بين نقطتين بمعية خط العرض وخط الطول... أرجو أن تفي الغرض المطلوب... وقد وضعت في الملف المرفق القيم التي أعطيتها كمثال فالرجاء التأكد من أني لم أخطئ بين خطي العرض وخطي الطول للنقطتين... ملاحظة: قيم خط العرض وخط الطول يجب أن تكون عددا عشريا وليس بـ (الدرجات-الدقائق-الثواني) وإلا نستعمل قاعدة التحويل (الدرجات+الدقائق/60+الثواني/3600) بن علية المسافة بين نقطتين.rar

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية حاجي المصنف1.rar