جمال عبد السميع

بارك الله فيك ، أخى " MEGONIL " عمل جميل ، ومجهود رائع كل سنة وحضرتك ، وأسرة أوفيسنا بخير ولكن لى ملحوظة: أنت عضو قديم ، والمنتدى ينادى منذ فترة طويلة بتغيير أسم الظهور " إلى العربية " فأنا أدعو حضرتك بمناسبةهذا العمل الجميل ، وعضويتك القديمة ، وهذا الشهر الجميل أن تغير أسم ظهورك إلى العربية تقبل تحياتى

بعد إذن أستاذى " رجب جاويش " وأخى " أبراهيم " وكل سنة وجضراتكم طيبون تفضل أخى أتمنى أن يكون المطلوب وإذا كنت تستخدم أوفيس 2007 فما أعلى ستكون معادلتك لتلافى الخطأ هكذا المعادلة تتيح البحث بعمودين بطريقة مفردة ، أو بالعمودين مجتمعين وذلك لعدم تحديد السائل عن الشروط بدقة =IFERROR(INDEX(tbl;SMALL(IF(($C$1=name)+(grade=$C$2);ROW(tbl)-MIN(ROW(tbl))+1;"");ROW(A1));COLUMN(A1));"") ترحيل بيانات.rar

وهذه طريقة مقاربة لطريقة أستاذى " عبد الله بقشير " هذه للسنة =SUMPRODUCT(--(YEAR($B$4:$B$31)=C5)) وهذه للشهر =SUMPRODUCT(--(TEXT(B4:B31;"mmmm")=D5)) تقبلوا تحياتى Classeur2.rar

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

أستخدم هذه المعادلة أخى ستحقق ماتريد وذلك بفرض أن بداية البيانات هى الخلية "A1" =SUBSTITUTE(A1;MID(A1;FIND(" ";A1)-1;1);"") أوهذه المعادلة أيضا =SUBSTITUTE(A1;LEFT(A1;FIND(" ";A1)-1);"") أوهذه أيضا =RIGHT(A1;LEN(A1)-FIND(" ";A1)) ثم إسحبها لأسفل وهذا كود أيضا لو رغبت فى الأكواد Sub RemoveNumberSpace() ' gamal_abdelsammeh, 07/05/2014 Dim c As Range, h As String Application.ScreenUpdating = False For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)) h = c c = Right(h, Len(h) - WorksheetFunction.Search(" ", h)) Next c Application.ScreenUpdating = True End Sub ثم إسحبها لأسفل تقبل تحياتى

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

ماشاء الله عليكى أختى الغالية " أم عبد الله " بارك الله فيكى وجعل كل أعمالك فى ميزان حسناتك أخى " أبو رسول" هناك خطوات أساسية هنا لابد من عملها لكى تقوم بجمع عدد من الملفات 1- تقوم بفتح الملفات جميعها مرة واحدة 2- تذهب إلى الملف الأساسى وتختار الخلية التى تريد إظهار الجمع بها 3- تكتب بها "=" ثم تختار الخلية التى تريد جمعها بالماوس ثم تكتب بعدها علامة ";" إذا كنت تستخدمها أو ", " 4- ثم تقوم بعمل كليك على الملف الثانى ثم تختار الخلية التى تريد جمعها عن طريق الماوس أيضا وهكذا بالنسبة لباقى الملفات تقبل تحياتى وستجد المعادلة أصبحت بهذا الشكل =SUM(A1;[حزيران.xls]Sheet1!$A$1;[تموز.xls]Sheet1!$A$1)

أخى الحبيب القول الفصل فى مشكلتك ليست معادلة تحتاجها لحل مشكلتك ولكن طريقة نسخ رقم فجرب أخى تكتب الرقم يدوى وأجمع علية الواحد أو أضربة فى واحد لن تجد مشكلة أما بخصوص المعادلة أخى المعادلة مظبوطة 100 % ولابد من جمع الصفر عليها أو ضربها فى واحد وذلك لتحويل التنسيق النصى إلى تنسيق رقمى حتى يتفادى المشكلة التى تطلبها الأن وهى تحويل النص إلى رقم بحيث لوجمعت علية رقم أو ضربتة فى رقم يتعامل كرقم ولايظهر الخطأ التى تعانى منه " إذن القول الفصل أكتب رقم الموظف يدوى وأجعل تنسيقة " general " ستجد مشكلتك إتحلت وأستخدم معادلتى أو معادلة الأستاذة " أم عبد الله " ستحقق ماأردت فى حذف الفراغ وإذا أردت إختبار أن الرقم الذى تكتبة فى الخلية رقم وليس نص أستخدم هذه المعادلة: =ISNUMBER(A1) إذا أعطت المعادلة " TRUE " كانت ماتحتوية الخلية رقم وعملك مظبوط أما إذا أعطت " FALSE " إذن ماكتبتة " نص " وأعد تنسيقة كرقم هذه هى خلاصة مشكلتك تقبل تحياتى

بعد هذا الحل الجميل لأختى الغالية " أم عبد الله " هذا حل أخر بمعادلة شائعة وتعمل على كل إضدارات الأوفيس تقبل تحيات أخيك رزمة ورابطة_1.rar

أليك أخى الحبيب ماطلبت ، وبالطبع ستكمل بقية الجداول بنفس الكيفية لباقى الشيتات وطبعا للتخلص من "#NUM!" ستستخدم "IFERROR " مع المعادلة =IFERROR(INDEX(TBL1; SMALL(IF(("ادارى "=JOP1); ROW(TBL1)-MIN(ROW(TBL1))+1; ""); ROW(A1));COLUMN(A1));"") تقبل : تحياتى ترحيل ليشتات متعددة.rar

المعادلة أخى تعمل على أى إصدار لأى أوفيس ولكن كما قلت المشكلة ليست فى المعادلات ولكن فى طريقة نسخك للبيانات وإذا أردت نسخ البيانات بطريقة صحيحة ، وخاصا إنك بتقول ستكرر هذه العملية مرة أخرى مع بيانت أخرى 1- إذهب إلى الأسطوانة وقم بتظليل مدى العمود الذى يحتوى على أرقام الموظفين ثم قم بعمل كليك يمين ثم " copy " 2- كليك يمين بالماوس فى الشيت الذى تريد نقل البيانات إلية ستظهر قائمة 3- إختر منها " paste special " ستظهر قائمة أخرى قم بالتعليم على " values " 4- ثم قم بالضغط على " ok " وبتطبيق هذه الخطوات ستتم العملية بمنتهى اليسر ولن تحتاج لأى معادلات " وبمعنى أخر أبسط المعادلات ستحقق الذى تريدة " تقبل تحياتى

نعم أخى تعمل وتعمل أيضا بأى عدد من أوراق العمل تقبل تحياتى

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

أخى الحبيب " عبد المنعم " من أين تم جلب هذا الرقم لأنى لاحظت أنك مستخدم دالة " MID " لإشتقاق هذا الرقم فيه مشكلة فى هذا الرقم لأنك يمكن إستخدام هذه المعادلة لإزالة الفراغ وتحويل النص إلى قيمة =TRIM(CLEAN(B4))+0 وإذا لم تحقق المطلوب أتمنى إرسال كيف قمت بإشتقاق " رقم الموظف " تقبل تحياتى

أستخدم هذه المعدلة أخى ستحقق المطلوب =SUM(Sheet1:Sheet2!E11) تقبل تحياتى

بعد طريقة أستاذنا الرائع ومهندس منتدانا " طارق محمود " هذه طريقة أخرى جهزة بطريقة " التنسيق " =TEXT(VALUE(B1)-VALUE(A1);"ss.000")& "00 SEC" تقبل تحياتى

وشكرا لك أخى الحبيب ( باجاتا ) أليس لغتنا العربية جميلة وتؤدى لمزيد من الود والتقارب لذا أدعوك أخى الحبيب أن تغير أسم ظهورك إلى العربية ليسهل التقارب بيننا لأن لغتنا هى لغة أعظم كتب الرحمن " وهو القرأن " تقبل تحيات أخيك

أستخدم هذه المعادلة أخى وأسحبها لأسفل وذلك بفرض أن الرقم الأول فى الخلية ( A1 ) =IF(0+RIGHT(A1;FIND(".";A1)-1)>1;ROUNDUP(A1;2);ROUND(A1;2)) تقبل تحياتى

بارك الله فيك أخى الحبيب ( عمر ) لاشكر على واجب نحن جميعا أخوة وكل سنة وحضرتك طيب تقبل تحيات أخيك

أخى الحبيب " سليم " أولا - بارك الله فيك وفى أعمالك معادلة جميلة ولكنها طويلة بعض الشئ ثانيا - هذه الفكرة لاتصلح للأسماء العربية لأن أسمائنا لانختصرها ، فهذه الفكرة تصلح للأسماء الأجنبية فقط ، لأنى قمت بعملها لزميل ولكن كان مسافرا للخارج ثالثا - وهذا هو الأهم هذه المعادلة لاتصلح إلا للأسماء الثلاثية فقط ، أى لاتجلب إختصار الأسم الرابع لذلك أسمح لى بتقديم هذه المعادلة : أولا - مختصرة ثانيا - تأتى بإختصار حتى الأسم الرابع =LEFT(B2)&" "&MID(B2;FIND(" ";B2&" ")+1;1)&" "&MID(B2;FIND(" ";B2&" ";FIND(" ";B2&" ")+1)+1;1)&" "&LEFT(TRIM(MID(SUBSTITUTE(TRIM(B2);" ";REPT(" ";99));298;99)))) تقبل تحياتى

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

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

بعد إذن مهندس منتدانا ( طارق محمود ) حل أخر بالمعادلات تقبلوا تحياتى =IF(B2<>"";TRIM(SUBSTITUTE(SUBSTITUTE(B2;" ";" بن ");" بن ";"";LEN(B2)-LEN(SUBSTITUTE(B2;" ";""))));"") وبالطبع لو أردتها فى كامل الأسم ستكون هكذا =IF(B2<>"";SUBSTITUTE(B2;" ";" بن ");"") إحلال أسم موضع الفراغ.rar

تفضل أخى المطلوب تقبل تحياتى فصل الحروف عن الأرقام كلا فى عمود منفصل.rar

بعد إذن أستاذى العبقرى " طارق محمود " ولإثراء الموضوع أولا- كل سنة وحضرتك طيب بمناسبة شهر رمضان الكريم ثانيا - هذا حل عن طريق الكود وإن كنت لاأحبة ولكن لحين إيجاد طريقة مثلى للحل بالمعادلات تقبلوا تحياتى إستخلاص معلومة.rar إستخلاص معلومة بالمعادلات.rar