بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم تم تغيير معادلة في الملف القديم ليقابل كل "اسم" الصافي الأول... أنظر إلى الملف المرفق... أخوك بن علية تصفية_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

السلام عليكم ورحمة الله أخي الكريم إن التغيير الذي قمت به في الكود هو تغيير بسيط بإضافة بعض الأسطر لتغيير وضعية Criterea ووضعية ناتج عملية Sumif ولتوضيح هذه التغييرات نقوم بمقارنة الكودين : الكود خاصتك: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wrk As Worksheet Dim aa As Range, bb As Range, cc As Range, dd As Range Set wrk = Sheet1 Set aa = wrk.Range("myRange") Set bb = wrk.Range("myCriteria") Set cc = wrk.Range("mysumif") Set dd = wrk.Range("SumIfRange") cc = Application.SumIf(aa, bb, dd) End Sub الكود الذي تم فيه التغيير: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wrk As Worksheet Dim aa As Range, bb As Range, cc As Range, dd As Range For i = 13 To 100 If Cells(9, i) = "" Then Exit Sub Set wrk = Sheet1 Set aa = wrk.Range("myRange") Set bb = wrk.Cells(9, i) Set cc = wrk.Cells(10, i) Set dd = wrk.Range("SumIfRange") cc = Application.SumIf(aa, bb, dd) Next i End Sub في الكود الأول وضعت Critera و ناتج Sumif في الخليتين (الثابتتين) E2 و K2 على الترتيب وفي الكود الثاني وضعتهما في خلايا السطرين 9 و 10 بالعبارتين (Cells(9, i و (Cells(10, i حيث i يمثل رقم العمود وجعلته في الكود متغيرا من 13 إلى 100 والرقم 13 (مثلا) هو العمود M ... والكود يفي بمطلوبك الأخير "اظافة مواد اخرى قد تصل الى 30 مادة" باعتبار أن i (أرقام الأعمدة) تتغير من 13 إلى 100 ما يجعل الكود يقبل أكثر من 80 شرطا (مادة) لأن 100-13 = 87 عمودا (وكل عمود يمثل شرطا أو مادة) وأتمنى أني وفقت في شرح الكود... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إن الدالتين INDEX و MATCH هما دالتان للبحث، ولشرحهما وكيفية عملهما يمكن الاستعانة بـ HELP المرفقة بالإكسيل الخاصة بالدوال، والنسخة التي معي بالفرنسية لذا يصعب عليّ ترجمة الشرح إلى العربية أو الإنجليزية (إلا إذا كنت تريدني أن أشرحها بالفرنسية)... فمعذرة أخي الكريم.. اخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم لم ألتزم باستعمال الدالة VLOOKUP واستعملت الدالة INDEX مع MATCH على شكل دالة صفيف (Ctrl+Shift+Enter) ويمكن استعمال دوال أخرى في ذلك... ستجد حلولا أخرى في ردود وتدخلات إخوتي الكرام... ألق نظرة على الملف المرفق.... أخوك بن علية AHT_1.zip

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

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

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