بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم محمد، لمعرفة كيفية العمل يكفي معرفة وسائط الدالة OFFSET التي استعملت لتحديد نطاق القائمة المنسدلة الديناميكية (المتغيرة حسب اسم المورد)... * نبدأ أولا بالدالة OFFSET ووسائطها (يمكن الاستعانة بالمساعدة المرفقة بالدالة): The syntax for the OFFSET function is: = OFFSET (Reference, Rows, Cols, Height, Width) Reference - (required) the starting point for the function. From this cell reference the function calculates the desired offset or end point located so many rows and columns away. The Reference argument can refer to a single cell or to range of adjacent cells Rows - (required) the number of rows above or below the Reference argument used in calculating the offset. This value can be positive, negative, or set to zero Cols - (required) the number of columns to the left or right of the Reference argument used in calculating the offset. This value can be positive, negative, or set to zero Height - (optional) sets the height, in number of rows, of the returned offset. This value must be positive Width - (optional) sets the width, in number of columns, of the returned offset. Th is value must be positive إذا الدالة OFFSET لها خمسة وسائط منها الثلاثة الأولى (المرجع - الصفوف - الأعمدة) ضرورية والاثنين الأخيرتين (الارتقاع - العرض) اختيارية... * ثانيا : شرح المعادلة المستعملة في الملف... =OFFSET(aa!$A$1;MATCH(bb!$B2;aa!$C:$C;0)-1;;COUNTIF(aa!$C:$C;bb!$B2)) =DECALER(aa!$A$1;EQUIV(bb!$B2;aa!$C:$C;0)-1;;NB.SI(aa!$C:$C;bb!$B2)) ونطاق القائمة المنسدلة يبدأ في العمود A من الورقة aa بنقل الخلية aa!$A$1 إلى الخلية من العمود نفسه بالصف المعين بالجزء من المعادلة : MATCH(bb!$B2;aa!$C:$C;0)-1 وهو أول رقم صف تحدده الدالة MATCH بالبحث عند اسم العميل من الخلية B2 بالورقة bb في العمود C من الورقة aa ويكون ارتفاع النطاق هو عدد تكرارات اسم العميل من الخلية من الخلية B2 بالورقة bb في العمود C من الورقة aa ويحدده (الارتفاع) الجزءن المعادلة : (COUNTIF(aa!$C:$C;bb!$B2 ملاحظة هامة : يتم إنشاء تسمية القائمة المنسدلة باستعمال المعادلة السابقة (أي في الصف 2 من العمود C من الورقة bb) ضروري يكون المؤشر في الخلية C2 (الخلية المختارة ActiveCell) أثناء إنشاء هذه القائمة ثم يتم سحبها إلى الأسفل في العمود C في إكسيل 2003 (تمديد المعادلة في العمود C باستعمال خاصية "مطبق على" في النسخ المتقدمة)، يجب أيضا مراعاة الرمز $ في المعادلة. ومعذرة على طول الشرح... أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم زكرياء، يمكن حل المسألة بكود ولكن كم من الأسماء ستضع في الكود؟ العملية ليست بهذه السهولة!!! قمت بالمقابل وكما اقترحت سابقا بإنشاء شيت سميته "أسماء وجنس" تضع فيه أسماء (الأسماء فقط دون اللقب) مع ذكر الجنس مقابل كل اسم، ثم في الورقة المعنية بالبيانات قمت بفصل اللقب عن الاسم في عمودين إضافيين وفي عمود الجنس وضعت معادلة تجلب جنس اسم التلميذ من ورقة "أسماء وجنس" باستعمال الدالتين INDEX و EQUIV (الدالة MATCH)... أرجو أن يكون هذا العمل تقريبا للفكرة المقترحة أعلاه.... أخوك بن علية المرفق : جدول تصفية المنح جمال_2014.rar

السلام عليكم ورحمة الله أخي الكريم زكرياء، تم التعديل على المعادلة حسب المطلوب... أخوك بن علية المرفق : تفقيط5 .rar

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

السلام عليكم ورحمة الله أخي الكريم رائد، يمكن أن يكون الكود الخاص بزر CommandButton1 (بالفورم) كالتالي : Private Sub CommandButton1_Click() Dim I As Integer For I = 1 To 120 TextBox1.Value = Cells(I, 1).Value Me.PrintForm Next I End Sub وقد وضعته بملفك في المرفقات... أرجو أن يكون هذا المطلوب... أخوك بن علية المرفق : حلقة دوران.rar

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

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

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

السلام عليكم ورحمة الله أخي الكريم سليم، جميل جدا ما تقدمه من عمل ليستفيد منه الجميع، وللفائدة أكثر قمت بتعديل بسيط على المعادلة بتبديل الجزء (COUNTA(E:E في المعادلة بالخلية الثابتة D1 التي تحوي معادلة صفيف تقوم بتحديد آخر صف غير فارغ من نطاق لـ 1000 صف و100 عمود بداية من الخلية E1، وقمت أيضا بوضع حل آخر للمسألة باستعمال الدالة OFFSET بدلا من الدالة INDIRECT... أرجو أن يروقك هذا التعديل... وجمعة مباركة لكل المسلمين... أخوكم بن علية المرفق : جمع الصفوف في عامود واحد.rar

السلام عليكم ورحمة الله أخي الكريم أبو غريب، هذا يمكن القيام به بفتح الملف عن طريق إكسيل 2010 ثم القيام باستعمال خاصية "حفظ باسم" "Save As" وتختار "صيغة .xls) مع تبديل بعض الدوال المعرفة في إكسيل 2010 التي لا يقبلها إكسيل 2003 مثل دالة : IFERROR ، يجب تغييرها بما يناسبها في إكسيل 2003... والله أعلم أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، أرى أن المعادلات كلها تعمل بجدارة تامة، وما أراه في عدم التطابقات في الجدول الثاني (من الصف رقم 22 إلى الصف رقم 38) يعود إلى عدم المطابقة بين قيم العمودين SORT (في النطاقين B22:B38 و J22:J38) ففي النطاق B22:B38 بعض القيم مضاف إليها تاريخ بينما القيم في النطاق J22:J38 ليس فيها هذه التواريخ، وهذا الذي أظهر عدم التطابق في نتيجة المعادلات... والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، أقدم لك الحل التالي في المرفق وأرجو أن يفي بالغرض المطلوب (إن كنت قد فهمته)... تم الاستعانة بخلايا كثيرة مع نطاقات مسماة وقوائم منسدلة وإضافة شرط آخر للبحث (اسم الموظف)... أخوك بن علية المرفق : مساعدة.rar

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، أوليس "طرح الخلايا" معناها "تجاهل هذه الخلايا" ؟؟؟ المعنى هو نفسه فطرح الخلايا هو تجاهل الخلايا والعملية تكون كما يلي : (مجموع كل خلايا العمود - كل الخلايا التي تريد تجاهلها من هذا العمود)... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الكود التالي (يجب مراعاة ومراقبة أسماء الشيتات والنطاقات التي تطبق عليها هذه العميات) : Private Sub Workbook_Open() Application.DisplayAlerts = False If Date > DateValue("15/1/2015") Then If InputBox("لطفًا... أدخل كلمة السرّ") <> "as2191612" Then MsgBox "***عذرًا... ليس لديك الحق في استخدام البرنامج ***" ThisWorkbook.Close Else MsgBox " تفضل بالدخول كلمة المرور صحيحة" On Error Resume Next For J = 1 To 13 Set X = Choose(J, Sheet2, Sheet3, Sheet4, Sheet5, Sheet6, _ Sheet7, Sheet8, Sheet9, Sheet10, Sheet11, Sheet12, Sheet13, Sheet17) X.Unprotect ("2191612") X.Range("A1:U4400").ClearContents X.Protect Password:="2191612" Next J For K = 1 To 4 Set Y = Choose(K, Sheet1.Range("A1:OK200"), Sheet14.Range("A1:D200"), _ Sheet17.Range("A1:AD200"), Sheet19.Range("A1:AN400")) Set Z = Choose(K, Sheet1, Sheet14, Sheet17, Sheet19) Z.Unprotect ("2191612") With Y .ClearContents End With Z.Protect Password:="2191612" Next K With Sheet18 .Unprotect ("2191612") .Range("A1:AJ400").Value = .Range("A1:AJ400").Value .Protect Password:="2191612" End With Me.Save End If End If End Sub أخوك بن علية