بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، لم أفهم ما تعنيه بـ "ولم يفتح من البداية".، لأني قمت بتحميله وفتحه دون أي مشكل... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كنت قد فهمت المطلوب، انظر إلى الملف المرفق الذي تم فيه نعديل على الكود حسب المطلوب الذي فهمته... أخوك بن علية الملف المرفق على الرابط التالي: http://www.mediafire.com/?bhapttt5a4ysx54

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

السلام عليكم ورحمة الله أخي الكريم حسام، جرب الكود التالي في حدث الورقة 1: Private Sub Worksheet_SelectionChange(ByVal Target As Range) LRow1 = Sheets("æÑÞÉ1").Range("A65000").End(xlUp).Row LRow2 = Sheets("æÑÞÉ2").Range("A65000").End(xlUp).Row + 1 If Not Intersect(Target, Range("A2:A" & LRow1)) Is Nothing Then With Sheets("æÑÞÉ1") .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 2)).Copy Sheets("æÑÞÉ2").Range("A" & LRow2) End With End If End Sub العبارة "æÑÞÉ" في الكود معناه "ورقة" وقد تم تطبيقه على ملفك في المرفق: hosam.rar أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم إبراهيم، المشكل كله يكمن في السطر من الكود الذي ذكرت أنه "عندما يصل الكود إليه يعطي الخطأ" وهو Workbooks(Fname).Close True لذا أقترح عليك استبداله بالجزء التالي : For Each Wbk In Excel.Workbooks If Wbk.Name <> ThisWorkbook.Name Then Wbk.Close End If Next دون أن تنسى الإعلان في بداية الكود بالمتغير Wbk باستعمال العبارة Wbk As Excel.Workbook وقد وضعت الكود كاملا في الملف المرفق التالي: test.rar أخوك بن علية

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

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

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

السلام عليكم ورحمة الله أخي الكريم أحمد عبد الفتاح، أولا أذكّرك أن في المنتدى لا يوجد أي حرج في طرح الأسئلة مهما كان عددها وستجد فيه دائما من يرد على الأسئلة بما يسمح به الوقت والمعرفة وثانيا لقد تم المطلوب في الملف المرفق بإنشاء زرين أحدهما للترتيب التصاعدي والآخر للترتيب التنازلي بكودين مستقلين مع بعض التعديلات على الأكواد... تلاحظ أيضا في العمود 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