بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم معذرة على الإطالة ولكني لم ألاحظ مشاركتك الأخيرة، الخلل في النطاقات كانت تبدأ من السطر 5 إلى السطر 622 وقد قمت بتمديدها إلى السطر 65536... راقب التغييرات في الملف المرفق وتجدني إن شاء الله في الخدمة... أخوك بن علية 2_2.rar

السلام عليكم ورحمة الله أختي الكريمة نحن في انتظار الملف المرفق.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أعتقد أن الخلل في المعادلة المكتوبة : =TRUNC((((G16/360)-(TRUNC(G16/365,0)))*12),0) باعتبار أن ناتج الصيغة : (G16/360)-(TRUNC(G16/365,0) عندما تكون G16 = 40 أو G16 = 400 هو دائما 0.111111 وهذا العدد مضروب في 12 يعطي عددا جزؤه الصحيح هو 1 لهذا كانت النتيجة في كلتا الحالتين هي 1... وقد قمت بتغيير المعادلات باستعمال عمليات بسيطة INT و - و * في الملف معتبرا أن في الشهر 30 يوم (وكان من المفروض أن نستعمل دالة DATEDIF ما دام عندنا تاريخ البداية)... والحل الجديد في المرفق... أخوك بن علية جمع بشرط_111.rar

السلام عليكم ورحمة الله أخي الكريم إن الدالة SUMIFS خاصة بالإصدارات الجديدة للأوفيس 2007 و 2010 ولا يمكن استعمالها في أوفيس 2003 ويمكن استعمال بدلها دوال أخرى تعمل عملها مثل SUMPRODUCT أو غيرها وأعتقد أنه يمكن استحداث دالة جديدة بواسطة الأكواد تعمل عمل هذه الدالة في إكسيل 2003 (وهذا العمل أتركه للإخوة المميزين)... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، وأحسن ما نجنيه هو دعاؤكم الصالح نسأل الله أن يتقبله ولكم بالمثل بإذن الله... ملاحظة فقط بالنسبة للمعادلة التي كتبتها في الخلية L3 يمكن صياغتها بالشكل المبسط التالي: =IF(I3=0;"";INDEX(F:F;MATCH(I3;C:C;0))) بدلا من الشكل: =IF(I3=0;"";INDEX($F$3:$F$10000;MATCH(I3;$C$3:$C$10000;0))) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إليك حل للسؤال الثاني في المرفق... أخوك بن علية جمع بشرط_2.rar

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

السلام عليكم ورحمة الله أخي الكريم تم تغيير معادلة في الملف القديم ليقابل كل "اسم" الصافي الأول... أنظر إلى الملف المرفق... أخوك بن علية تصفية_7.rar

السلام عليكم ورحمة الله أخي الكريم، تجدني إن شاء الله في الخدمة متى تريد ولا أبخل بما أعرفه وما تعلمته، المهم قد تم تصحيح الخلل الذي كان موجودا في كل ورقة وهو الفراغ الموجود في المعادلات المكتوبة في العمود F بالصيغة : =IF(E9="";"";IF(E9>19;E9*$G$2;E9*$G$3)) وقد أبدلتها (كلها) بالصيغة (يتغيير الفراغات "" بـ 0): =IF(E9="";0;IF(E9>19;E9*$G$2;E9*$G$3)) وكان هناك أيضا خطأ في بداية النطاقات في هذه المعادلات... تجد كل التغييرات والتصحيحات في الملف المرفق... ولا تنسى أني دائما في الخدمة... أخوك بن علية موتولايت2_5.rar

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

السلام عليكم ورحمة الله هل هذا هو المطلوب؟؟ أخوك بن علية Classeur1.rar

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

السلام عليكم ورحمة الله أخي الكريم في الحقيقة لم أفهم المقصود من الملف الذي أرفقته ولكني قمت بالبحث على بديل لما تريده دون استعمال الدالة INDIRECT فوجدت هذا الكود في أحد المنتديات لدالة مستحدثة سميت ReadCell_ClosedFile ويمكن تغيير هذا الاسم (في الكود) بما تريده وإليك هذا الكود وفي الأسفل طريقة استعماله : Function ReadCell_ClosedFile( _ Chemin As String, _ Fichier As String, _ Feuille As String, _ Cellule As Variant) As Variant Application.Volatile Dim Source As Object, Rst As Object, ADOCommand As Object Dim Cible As String Feuille = Feuille & "$" Cible = Cellule.Address(0, 0, xlA1, 0) & ":" & _ Cellule.Address(0, 0, xlA1, 0) Set Source = CreateObject("ADODB.Connection") Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Chemin & "\" & Fichier & _ ";Extended Properties=""Excel 8.0;HDR=No;"";" Set ADOCommand = CreateObject("ADODB.Command") With ADOCommand .ActiveConnection = Source .CommandText = "SELECT * FROM [" & Feuille & Cible & "]" End With Set Rst = CreateObject("ADODB.Recordset") '1 = adOpenKeyset, 3 = adLockOptimistic Rst.Open ADOCommand, , 1, 3 Set Rst = Source.Execute("[" & Feuille & Cible & "]") ReadCell_ClosedFile = Rst(0).Value Rst.Close Source.Close Set Source = Nothing Set Rst = Nothing Set ADOCommand = Nothing End Function وطريقة الاستعمال تكون كما يلي: =ReadCell_ClosedFile(a;b;c;d) حيث: a : عنوان المجلد مثل : C:\Documents and Settings\333 b : اسم الملف (المغلق) مثل : TAX.xls أو Sal.xls أو غيره c : اسم الورقة أو الشيت المعني في الملف المغلق مثل : Sheet1 d : عنوان الخلية المطلوبة مثل : A1 أو B5 أو ... ملاحظة : الكود لم أجربه (كما وجدته وضعته لك) وإن شاء الله يكون هذا حلا لمشاغلك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لقد تركتَ أسماء النطاقات Base وغيرها مرتبطة بالملفات القديمة لهذا حدث الخلل في النتائج وبقي الارتباط بين الملفات القديمة والجديد... وقد قمتُ بتغيير هذه الروابط بالمعلومات والبيانات الجديدة من الملف نفسه وصحح الخلل... والله أعلم 2_1.rar

السلام عليكم ورحمة الله أخي الكريم إن الدالة INDIRECT لا تعمل إذا كانت تعني عناوين خلايا من ملفات غير مفتوحة وقد تفضلت وذكرت ذلك ولا بديل لذلك إلا بفتح الملفات... وفي هذه الحالة ينبغي تغييرها بدوال أخرى مثل VLOOKUP أو INDEX أو غيرهما ولكن عند فتح الملف الذي به هذه الدوال سيطالبك بالتحديث... والله أعلم أخوك بن علية

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

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

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

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

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

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

السلام عليكم ورحمة الله الرقم السري للدخول هو 123 ولكني لم أفهم المطلوب.... يجب إعطاء مثال للمطلوب... أخوكم بن علية

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

السلام عليكم ورحمة الله أخي الكريم، أقدم لك في الملف المرفق ثلاثة حلول (ثلاث صيغ) مع العلم أنه يوجد حلول أخرى (بالمعادلات والأكواد)... أخوك بن علية 123 work .rar

السلام عليكم ورحمة الله أخي الكريم، هل الملف المرفق يفي بالغرض؟؟؟ أخوك بن علية calor_1.rar