بن علية حاجي

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

السلام عليكم تم إضافة كود للطباعة لكل الفصول باستعمال كود التحويل وإعادة أسماء الأكواد باللاتينية (الإنجليزية)... تجد اهتزازات للصفحة عند الطباعة نظرا لعملية "التحويل" بالكود 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

السلام عليكم ورحمة الله أقدم لك حلين للمسألة : الحل الأول (18 غائبا : 3 صفوف لكل فصل من 12 عمود لكل صف مع خليتين لكل غائب أي 6 غياب في كل صف أي: 6×3=18) في الملف "غياب التلاميذ1.xls" والحل الثاني (36 غائبا : 6 صفوف لكل فصل من 12 عمود لكل صف مع خليتين لكل غائب أي 6 غياب في كل صف أي: 6×6=36) في الملف "غياب التلاميذ2.xls"... واختر الذي يناسبك... بن علية حاجي غياب التلاميذ.rar

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمن، تم تصحيح الخلل كما يلي: 1- الخلل الأول يتعلق بناحية الطباعة لك من ورقتي "شرط أول" و "شرط ثاني" عند ربطهما بمعادلة أو بتسمية (وإن كانت مطاطية) وعند أي تغيير فإن النطاقات تصبح ثابتة ومنه الخلل لذا قمت بتحديد ناحية الطباعة برمجيا أي بإضافة أمر في الكود لكل من الشيتين باستعمال التسميتين Criterea1 و Criterea2... 2- الخلل الثاني، هذا نسيان مني لتنبيهك أنه عند تضيف جداول أخرى (لا يهم عددها) فينبغي أن تراعي تسلسل البيانات في العمود A في هذه الجداول (التسلسل التصاعدي مهم جدا)... إذ أن تسلسل البيانات التي أدرجتَها في جداولك غير محترم حيث أن الجدول 5 (مثلا) ينتهي عند 100 والجدول الذي يليه يبدأ بـ 21 وهكذا... وقد تم التصحيح في الملف المرفق مع تفريغ بيانات جداول الورقتين "شرط أول" و "شرط ثاني" لمراقبة عمل الكود... أرجو هذه المرة أن تسلم الجرة ويعمل الملف بصورة صحيحة... أخوك بن علية إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق.xlsb_4.rar

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

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

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمن، بعض التساؤلات هل تريد أن يكون التخريج كما وضعته في ملفك المرفق (تلوين الصفوف الفارغة في الجدول بالرمادي وتلوين صف التوقيعات بالأصفر أم هي للإيضاح فقط؟)، وفي هذا قمت بالتعديل على الملف بما يناسب هذه الحالة، حيث تم إضافة نطاقين مطاطيين بالتسمية Creteria1 و Creteria2 (وهما نطاقا الطباعة في ورقتي "شرط اول" و "شرط ثانى") لاستعمالهما في التنسيقات الشرطية من الصف 8 إلى الصف 1048576 (ثلاثة تنسيقات شرطية في كل شيت)... أرجو أن تفي هذه التعديلات الغرض المطلوب... تساؤل آخر: ماذا تريد أن تضع في الصفوف الأربعة لتذييل الصفحات؟ هل تريد أن تضع كلمة "التوقيع" فقط حسب ملفك المرفق؟ أخوك بن علية إدراج فواصل الصفحات في عدد ثابت من الصفوف لعدة اوراق.xlsb_2.rar

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

السلام عليكم أريد أن أعرف ماذا تقصد بالإحداثيين ؟ هل تعني بها خط العرض وخط الطول أم غير ذلك؟؟؟ بن علية

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

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

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

السلام عليكم ورحمة الله تم إنشاء كود طباعة الكل وربطه بالزر الأزرق (طباعة) مع إنشاء نطاق مطاطي بالتسمية Classes لقائمة الأفواج (القائمة المنسدلة)... بن علية حاجي قوائم 2018.rar

السلام عليكم تم تقديم حلين في الملف المرفق (كود تحجيم - كومبوبوكس)... أرجو أن تفي الغرض المطلوب... بن علية قوائم.rar

السلام عليكم الخلل في نطاق المعادلات في الجزء الخاص بالدالة SMALL فهو محدد من الصف 1 إلى الصف 1000 (فقط) وبياناتك في الملف تتعدى الصف 1000 ولتصحيح الخلل أبدل العدد 1000 بالعدد 10000 (مثلا) في الجزئية التالية من المعادلة: SMALL(IF('السجل الكلي'!$S$1:$S$1000=$R$1;ROW($1:$1000)) فتصبح : SMALL(IF('السجل الكلي'!$S$1:$S$10000=$R$1;ROW($1:$10000)) بن علية

السلام عليكم تم التعديل على معادلات لإظهار كل العلامات حسب المطلوب... مع إضافة عمود لعد العلامات بمعادلات... بن علية تفريغ الاجازات بالكشف.rar

السلام عليكم هذه المعادلات هي معادلات صفيف (وهي الوحيدة في الملف) أي عند نسخها ولصقها في الخلية S1 يجب تأكيدها بواسطة CTRL+SHIFT+ENTER بدلا من الضغط على ENTER فقط وستظهر علامتي {} تلقائيا ثم سحب المعادلة إلى الأسفل (لأربعة صفوف أو خمسة)... بن علية حاجي