بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم أكرم، تم التعديل على الكود في موضوعك الثاني "إدراج معادلة 2" بالرابط : http://www.officena.net/ib/index.php?showtopic=46989&p=282195 والكود كان كما يلي: Sub Calcul_Somme() Lrow = Range("A1").SpecialCells(xlCellTypeLastCell).Row Range(Cells(2, 3), Cells(Lrow, 3)).ClearContents For I = 2 To Lrow If Cells(I, 1) = "" And Cells(I, 2) = "" Then Cells(I, 3) = "" Else: Cells(I, 3) = Cells(I, 1) + Cells(I, 2) Next I End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أكرم جمال، جرب الكود في الملف المرفق... أخوك بن علية Calcul_Somme2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا كود بسيط يقوم بما طلبته (لكن بداية من السطر الثاني) مع توقفه في حالة أن تكون خلايا السطر من العمودين A و B (الأول والثاني) فارغتين... أرجو أن يكون المطلوب وإن لم يكن ننتظر ما يقدمه إخوتنا الكرام وما يجود به قلمهم... الكود: Sub Calcul_Somme() Lrow = Range("C65000").End(xlUp).Row + 1 If Cells(Lrow, 1) = "" And Cells(Lrow, 2) = "" Then Exit Sub Cells(Lrow, 3) = Cells(Lrow, 1) + Cells(Lrow, 2) End Sub وتنفيذ ذلك في الملف المرفق التالي: Calcul_Somme.rar أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة أخرى مع تبديل تنسيق رمز المدارس إلى Standard مخصص "000".... أخوك بن علية كنترول_2.rar

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

السلام عليكم ورحمة الله أخي الكريم، جرب في K10 المعادلة التالية: =IF(ISERROR(MATCH($E10;$AD$1:$AD$8;0));"";INDEX($AB$1:$AB$6;MATCH($J10;$AC$1:$AC$6;0))) وهي مطبقة في الملف المرفق التالي: مرتبات محكمة 2013++.rar أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم عادل، لأجل ذلك، وأسنسمح أخي الحبيب أحمد، أبدل الكود السابق بالكود التالي: Sub Dahmour() arr = Range("e3:" & Cells.SpecialCells(xlCellTypeLastCell).Address) For Each i In arr If Not IsEmpty(i) And IsNumeric(i) Then Cells(r + 3, 2) = i: r = r + 1 If Not IsEmpty(i) And IsNumeric(i) = False Then Cells(t + 3, 3) = i: t = t + 1 Next End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أحمد، كود ولا أروع جازاك الله كل الخير وحفظك الله من كل سوء... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم ريان، انظر في خصائص VBA ربما تكون هناك ملف DLL لم يتم تحميله أو غير موجود بفتح OUTILS في VBA ثم Références (ربما تجدها بالخاصية Inconnue)... والله أعلم... وإذا شئت أرسل الملف الذي فيه الخطأ حتى يتم تصحيح الخلل أو تحديد المساعدة المناسبة.... أخوك بن علية

السلام عليكم ورحمة الله * إخوتي الكرام، لتصحيح الخلل في التوزيع للحالات التي ذكرتها في الرد رقم 7 يمكن استبدال السطر (في كود Rnd_N_REP) : If rr Mod cc = 0 Then cl = Int(j / rr) + 3 Else cl = j Mod cc + 3 بالسطر : If rr Mod cc = 0 Or rr Mod 4 = 2 Then cl = Int(j / rr) + 3 Else cl = j Mod cc + 3 وقد تم ذلك في الملف المرفق التالي: جدول حراسة_1-5حراس_مصحح.rar * أخي الكريم بوعلام، بالنسبة لتوزيع الحراس على فترتين (صباحية ومسائية) يمكن تنفيذ كود التوزيع مرتين (مرة لكل فترة)، وقد حضرت ملفا بكود يعمل على توزيع الحراس آليا من قائمتين (قائمة للحراس الرئيسيين وقائمة لباقي الحراس) وتجد ذلك في الملف المرفق التالي: جدول حراسة5_1.rar وإذا كنت تريد أن تثبت قائمة الحراس الرئيسيين فيجب تعطيل (حذف) من الأكواد الأجزاء التي يتم فيها توزيع قائمة الحراس الرئيسيين وتعويض هذا التوزيع بالطريقة اليدوية (في العمود C بمعادلة تعطي آليا رقما تسلسليا من 1 إلى رقم عدد القاعات وفي العمود P يتم يدويا وضع أرقام من 1 إلى رقم عدد القاعات أمام كل حارس حسب اختياركم)... وتجد كل ذلك في الملف المرفق التالي: جدول حراسة 5_2.rar أرجو أن يفي كل هذا العمل بالغرض المطلوب.... أخوكم بن علية

السلام عليكم ورحمة الله إخواني الكرام، هذا نموذج آخر لتوزيع الحراس على القاعات مع تمديد عدد الحراس من 1 إلى 5 حارس في القاعة الواحدة ... وقد تم تصحيح كل الحالات الممكنة في التوزيع (ما عدا بعض الحالات لما يكون عدد الحراس في القاعة يساوي 4 وباقي قسمة عدد القاعات على عدد الحراس يساوي 2 أي لما يكون عدد القاعات يساوي 2 أو 6 أو 10 أو 14 أو 18 أو 22 أو 26 أو 30)... أرجو أني وفقت بفضل الله تعالى في تحسين عمل الملف والأكواد... أخوكم بن علية جدول حراسة_1-5حراس.rar

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

السلام عليكم ورحمة الله أختي الكريمة أم عبد الله، لا أعتقد أن ذلك ممكنا باستعمال المعادلات فقط... يستحسن استعمال الأكواد وعلى سبيل المثال الكود التالي الذي يلون خلايا النطاق C5:N34 في ملفك (حسب الرقم في الخلية وأرقام الألوان): Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False For Each cel In Range("C5:N34") If cel.Value = "" Or cel.Value = 0 Then cel.Interior.ColorIndex = 1 cel.Interior.ColorIndex = cel.Value + 2 Next Application.ScreenUpdating = True End Sub وقد قمت بتطبيقه في الملف المرفق التالي : s1.rar أخوك بن علية

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

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

السلام عليكم ورحمة الله أختي الكريمة أم عبد الله، لتصحيح هذ الخلل يمكنك تغيير +4 بـ +3 في السطرين التاليين من الكود : MyArray(r, 1) = .Cells(r + 4, 2) MyArray(r, 2) = .Cells(r + 4, 12 والله أعلم

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

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

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

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

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