بن علية حاجي

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم هذه فكرة أخرى في حل هذه المسألة، تم إضافة عمودين في الورقة 1 وعمود في الورقة 2 بمعادلات بحث وترقيم (الأعمدة ملونة بالأصفر)، وهذا الترقيم تم استعماله في الأوراق 3 ، 4 ، 5 لترحيل البيانات المطلوبة بوساطة الدالتين INDEX و MATCH والكل تجده في الملف المرفق (وقد وضعت ملفين أحدهما لنسخة إكسيل 2003 والآخر لنسخة إكسيل 2007 أو 2010 ليستفيد الإخوة منهما)... أخوك بن علية Book1.rar

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

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

السلام عليكم ورحمة الله أخي الكريم وهذا حل آخر باستعمال VBA كما فعل أخي الحبيب Kemas جزاه الله عنا ألف خير وخير... أخوك بن علية Example_3.rar

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

السلام عليكم ورحمة الله أخي الكريم أشرح بعضا من المعادلة التي وضعتها، المعادلة الأصلية هي : =INDEX('a1'!B:B;MATCH(A1;'a1'!A:A;0)) الدالة INDEX تحتاج من المفروض إلى 3 وسائط (وهي التي استعملتها في الملف المرفق سابقا)، وفي صيغة أخرى إلى 4 وسائط... ووسائط الدالة INDEX المستعملة هي : (النطاق أو المصفوفة) ثم (رقم الصف) ثم (رقم العمود)، وقد مثالنا وضعت وسيطين اثنين فقط (النطاق ورقم الصف) لأن النطاق (المصفوفة) تتكون من عمود واحد 'a1'!B:B، والدالة MATCH تبحث عن قيمة الخلية (الدقيقة وليست المقربة) A1 في العمود a1'!A:A (أي العمود الأول من الورقة a1) وترجع هذه الدالة رقم الصف التي تجد فيه القيمة في هذا العمود ثم الدالة INDEX ترجع قيمة الخلية في العمود B من الورقة a1 حسب رقم الصف الذي أرجعته الدالة MATCH... أما الجزء =IF(ISERROR(MATCH(A1;'a1'!A:A;0));0; فهي دالة شرطية ترجع العدد 0 في حالة خطأ الدالة MATCH (أي في حالة عدم وجود قيمة الخلية A1 التي تبحث عنها الدالة MATCH في العمود a1'!A:A) أتمنى أني قد وُفّقت في شرح المعادلة التي وضعتها في الملف المرفق... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال أي دالة من دوال البحف مثل VLOOKUP أو INDEX أو غيرهما للوصول إلى المطلوب... وقد استعملت المعادلة التالي في الخلية B1 ثم تم نسخها على طول الجدول إلى الأسفل: =IF(ISERROR(MATCH(A1;'a1'!A:A;0));0;INDEX('a1'!B:B;MATCH(A1;'a1'!A:A;0))) أنظر الملف المرفق (قمت بتطبيق تنسيق شرطي على قيم العمود B في الورقة الثانية إذا كانت غير معدومة تكتب باللون الأحمر)... أخوك بن علية Book1.rar

السلام عليكم ورحمة الله أخي الكريم، ضف إلى المعادلة التي التي وضعها أخي الحبيب كيماس العبارة *1 (الضرب بـ 1) في بدايتها أو في نهايتها أي تكون المعادلة من الشكل: =1*MID(MID(A2;MIN(SEARCH({0,1,2,3,4,5,6,7,8,9};A2&"0123456789"));255);1;6) ولا تنسى أن المعادلة معادلة صفيف... أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للقائمة المنسدلة يمكنك استعمال خاصية "التحقق من الصحة" Validation لإنشائها، أما اسم المهنة التي تريده أن يظهر فوق الاسم المختار من القائمة المنسدلة فيمكنك استعمال أي دالة من دوال البحث مثل VLOOKUP أو INDEX أو غيرهما... وفي الملف المرفق تجد أحد الحلول لمسألتك... أخوك بن علية قائمة منسدلة بمعادلة1.rar

السلام عليكم ورحمة الله أخي الكريم، جرب المعادلة التالية: =SUMPRODUCT((LEFT($A$2:$A$7,1)="ث")*(B2:B7)) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أبو مهند يمكنك استعمال المعادلة التالية في الخلية D5 وسحبها إلى الأسفل: بالفرنسية : =SI(C5>=10;"ينتقل إلى القسم الأعلى";SI(B5>=DATE(1995;9;1);"يعيد السنة";"يوجه")) بإلانجليزية: =IF(C5>=10;"ينتقل إلى القسم الأعلى";IF(B5>=DATE(1995;9;1);"يعيد السنة";"يوجه")) مع مراعاة "الفاصلة المنقوطة" و "الفاصلة" والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، كنت أود أن تضع مثالا لقائمة أسماء في ملف مرفق تضع فيه كل الحالات الممكنة في هذه الأسماء والنتيجة المطلوبة (الكتابة الصحيحة لهذه الأسماء) حتى يتسنى لنا وضع الحل المناسب للمطلوب... وقد جربت بوضع معادلة طويلة بعض الشيء تقوم باستبدال كلمة " بن" في الاسم شرط أن لا تكون مرتبطة مع الاسم الأخير وأن لا تكون موجودة أكثر من مرتين في الاسم الواحد والمعادلة هي (بفرض أن الاسم المراد تغييره موجود في الخلية A2) : =IF(LEFT(A2;3)="بن ";RIGHT(A2;LEN(A2)-3);IF(ISERROR(SEARCH(A2;" ";SEARCH(A2;" بن ";SEARCH(A2;" بن ")+4)+4));SUBSTITUTE(A2;" بن ";" ";1);A2)) في انتظار وضع مثال على المطلوب أو يتمكن أحد الإخوة بوضع حل نهائي وبسيط لهذه المسألة ويصلح لكل الحالات الممكنة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إذا كانت كلمة بن مكتوبة كما جاء في نص موضوعك أي من الشكل " بن " وأعني "فراغ ثم بن ثم فراغ" فما عليك إلا استبدال هذا أي " بن " بـ " " أي "فراغ بن فراغ" بـ "فراغ" وسيتم المطلوب وهنا لا تبدل كلمة "بن" في الاسم "بندر" لأن بعد حرف النون لا يوجد فراغ... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، إذا كنت تريد أن بظهر مضمون الخلية V2 في الخلية التي وضعت فيها المعادلة في حالة ما إذا كانت قيمة الخلية O2 هي 0 فيجب أن تكون المعادلة من الشكل =SI(O2=0;V2;"") والله اعلم