نجوم المشاركات

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

هل هذا ماتقصدة أخى الكريم معادلةرصد.rar

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

تصميم موقع باكسبرشن ويب http://www.youtube.com/watch?v=Ytj9WgTjnUA

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

رتب أسمائك أبجديا بمنتهى البساطة وبعيدا عن تعقيد الكود رتب أسمائك أبجديا بالمعادلات.rar

السلام عليكم أخي أبو رجاء بعد إذن الأخ أبو حنين هذه طريقة بواسطة المعادلات صحيحة 100/100حسب فهمي لك ataa.rar

السلام عليكم الاخ الكريم / omar shideed بارك الله فيك وبع اذن اخي الحبيب / حمادة باشا ... جزاه الله خيرا وبعد حله لاكثر من رااائع واثراءا للموضوع اقدم لك كود آخر لحذف الصفوف الفارغة وعذرا اي الحبيب / حمادة فلقد استخدمت ملفك كمثال مع وجود الكود الخاص باخي / حمادة Sub DeleteRowOnCell() On Error Resume Next Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete ActiveSheet.UsedRange End Sub تقبلوا خالص تحياتي Book1-Delete Empty Row11.rar

السلام عليكم الاخ الكريم / al7awy بارك الله فيك مرور طيب وكريم

الأخ الكريم/ omar shideed السلام عليكم ورحمة الله وبركاته جرب الكود المرفق علك تجد فيه مرادك تقبل تحياتي Book1-Delete Empty Row.rar

السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك بعد اذن استاذي القدير / احمد زمان ... جزاه الله خيرا جرب الكود التالي لتنفيذ المطلوب ( ان شاء الله ) ** ولكن يجب ملاحظة ان يكون تنسيق التاريخ في كل اعمدة التواريخ في كل الشيتات بتنسيق واحد للجميع Sub sama() Dim LastR, LastR1, LastR2, LastR3 As Long Dim StDate, xx As Date Application.ScreenUpdating = False '**************************************************** LastR = Sheet1.Cells(Rows.Count, 2).End(xlUp).Select xx = ActiveCell.Value [c1].Value = xx SText = Sheet1.Range("c1") '==== شيت توصيلات LastR1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row Sheet2.Range("b3:q" & LastR1).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط LastR2 = Sheet4.Cells(Rows.Count, 2).End(xlUp).Row Sheet4.Range("b3:q" & LastR2).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط مياه LastR3 = Sheet10.Cells(Rows.Count, 2).End(xlUp).Row Sheet10.Range("b3:q" & LastR3).AutoFilter Field:=2, Criteria1:=SText '**************************************************** Application.ScreenUpdating = True End Sub تقبلوا خالص تحياتي اوفسنا.rar

شكرا..شكرا اخي الكريم على هذه المعلومة المفيدة جزاك الله خيراا تقبل تحياتي

السلام عليكم و رحمة الله وبركاته كلام صحيح 100×100 ولكن ممكن نعمل كود VB يعمل التصفية للأوراق الى تبغاها

للاسف يا استاذ / محمد الفلتر والجداول على حد علمى لا يقبل العمل الجماعى لابد من كل شيت على حدى ولا ادرى إذا كان هناك كود لذالك ام لا ربنا يوفقك الى كل خير

السلام عليكم جزاكم الله خيرا هذه معادلة اخرى لاسم العميل ( ليست معادلة صفيف ) =INDIRECT("C"&LOOKUP(2;1/(SUBTOTAL(3;OFFSET(C6;ROW(C6:C150)-6;;1)));ROW(C6:C150))) ممكن تستخدمها هكذا علشان تعطيك كلمة اخرى في حالة عدم وجود فلترة =IF(SUBTOTAL(3;C6:C150)=COUNTA(C6:C150);"ALL";INDIRECT("C"&LOOKUP(2;1/(SUBTOTAL(3;OFFSET(C6;ROW(C6:C150)-6;;1)));ROW(C6:C150)))) تقبلوا تحياتي وشكري

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

ماشاء الله عليك أستاذ طارق دائما رائع وأعمالك قمة فى الجمال بارك الله فيك

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

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

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

هذه إحدى الطرق أخى التى قمت بعرضها أما الطريقة التى أستخدمت فى مرفقى بأستخدام معادلة مع التنسيق الشرطى طالما أردت تلوين ماتريد السؤال ماهى هذه المعادلة التى أستخدمت دعنا نذهب مع شرح طريقتك للوصول لأختيار التنسيق الشرطى 1- تظليل العمود المراد تحديد الأرقام به 2- إختيار قاعدة جديدة 3-فى مرفقك إخترت ( تنسيق الخلايا التى تحتوى فقط على ) أما أنا نظرا لأننى سأستخدم معادلة سوف أختار (صيغة لتحديد الخلايا ) الأن ماهى هذه الصيغة : الصيغة التى تفصل بين الرقم والنص ( isnumber ) للأرقام ، و( istext ) للنصوص وترجع النتيجة فى كليهما إلى ( true ) فى حالة تحقق الشرط ( false ) فى حالة عدم تحققة والتساؤل بالنسبة لهذا المرفق هل أريد تظليل الرقم أم النص ؟ النتيجة الرقم لذلك سأستخدم ( isnumber ) وستكون المعادلة التى سيتم كتابتها: =ISNUMBER(A1) ملحوظة هامة: فى الخطوة الأولى من الحل قمنا بتحديد كامل العمود المراد تطبيق التنسيق علية ، معنى ذلك إننى سوف أطبق هذه المعدلة بتنسيقها الذى أختارة على كامل العمود لذلك كتبت الخلية ( A1 ) مرجع نسبى لكلا من العمود والصف حتى تأخذ المعادلة رقم العمود والصف التى تنسخ إلية وستتسائل هنا ولكنه عمود (1 ) والعديد من الصفوف ؟ إذن العمود ثابت فى كل المعادلة لذلك يمكن جعل الصف نسبى والعمود مطلق ( لايتغير ) مع النسخ لذلك سيتم وضع علامة الدولار ( $ ) قبل رقم العمود وترك الصف أى سيكون كالأتى: ( $A1 ) وفى هذه الحالة تسمى العمود مرجع مطلق أما الصف مرجع نسبى تقبل تحياتى

شكرا أخى (جلال ) على مرورك وكلماتك ، جزاك الله خيرا

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

بعد إذن أخى الحبيب الغالى ( عباس ) وبالأضافة لتوجية الزميل للحل الأفضل لعمل من أعمال أستاذى ( رجب جاويش ) هذا حل أخر وبطريقة جديدة وبالطبع بالمعادلات وذلك بعد تسمية العمود( e ) للمدى المعرف ( list ) قم بتطبيق هذه المعادلة فى العمود ( g ) =INDEX(list;MATCH(0;COUNTIF($G$1:G6;list);0)) المعادلة معادلة ( صفيف ) لابد من الضغط على ( ctrl+shift+enter ) double2.rar

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

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

هل فكرت أخى بحساب عمرك كم سنة ؟ كم يوم ؟ ممكن لكن كم ساعة ؟ كم ثانية ؟ إحسبها معى هناك بعض المعادلات ستجدها لاتعمل وذلك لأنها تعمل على 2007 المرفق الثانى معرب البيانات أحسب عمرك باليوم والساعة والثانية.rar أحسب عمرك باليوم والساعة والثانية.rar

أنظر أخى لعله المطلوب احصاء1.rar

أخى العزيز هل الكود الموجود فى العمود ( c ) هو الرقم الموجود فى نهاية ( sites name ) بمعنى ( BS-GAFADON_3483UPMN-SAFANIA_3271UP) هو هذا الرقم (3271UP) ؟ وهل مكانة ثابت فى كل ( sites name ) هذه الأسئلة كلها بسبب أن المعادلة الموجودة فى العمود ( d ) لابد وأن تتخذ من هذا شرط للجمع على العموم هذه المعادلة ستحقق ماتريد =SUMIF(A:A;"*"&C2&"*";B:B)

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

كلنا هنا أخوه أخى والحمد لله أن وفقنى ربى لخدمتك تقبل تحيات أخيك