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

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

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

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

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

السلام عليكم اخوانى واساتذتى الاعزاء لرفع نتائج الامتحانات على النت مجانا تفضلوا بزيارة رابط مدرستى على استضافة مجانية وقوموا بتجربة الموضوع المرفق ومرفق نتيجة الصفين الرابع والخامس نصف العام 2014/2013 للدخول على النتيجة قم بالدخول لمنتدى اعمال الامتحانات ثم استعرض موضوع نتيجة امتحانات الصف الرابع والخامس ارقام الجلوس تبدأ من 138 حتى 218 لمن يريد التاكد من عمل النتيجة ونشرها بالفعل الرابط http://abusuliman.mw3b.com/

كى أنال شرف المشاركة مع عظماء الاكسل هذه معادلة أخرى =SUMPRODUCT(((B5:B1000<B4)+(B5:B1000="غ"))*(B5:B1000<>""))+SUMPRODUCT((B5:B1000>B4)*(B5:B1000<>"غ")*(C5:C1000<C4))

السلام عليكم جرب هذه تحياتي كشف حساب البنك+.rar

السلام عليكم اسعد الله صباحكم جرب هذه تحياتي جذر+.rar

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

السلام عليكم ورحمة الله وبركاته جزاك الله خيرا اخي الاستاذ/ عبدالله باقشير للفائدة ادخال شرط في المعادلة في حال تكرار الشرط لنفس الطالب =SUMPRODUCT(--(($B$5:$B$8<$B$4)+($C$5:$C$8<$C$4)+($B$5:$B$8="غ")>0)) في امان الله

السلام عليكم جرب المعادلة التالية: =SUMPRODUCT(($C$5:$C$8<$C$4)+($B$5:$B$8<$B$4)+($B$5:$B$8="غ")) تحياتي

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

السلام عليكم اسع الله صباحكم بداية استاذي الخالدي اني احبك في الله بصراحة استاذي الخالدي مشاركاتك و معادلاتك تذهلني تماما منذ اول مشاركة شاهدتها لسيادتكم و منذ ذلك الوقت و انا اتعقب مشاركاتك و لازلت ادرسها حتي الان . حيالك الله و بارك لك في علمك و نفع بك وزادك من فضله . ضيق الوقت و مشاغل الحياة للاسف هي السبب في قلة التواجد . استاذ نور جرب هذا التعديل لجمع كمية المشتروات قبل خصم المبيعات و بالنسبة sumproduct فلا اعلم صراحة ان كان ممكن تطبيقها هنا ام لا تحياتي جرد+-.rar

أخي العزيز/ سيد تنجر تم جلب الفاتورة حسب رقم الفاتورة في ورقة البيانات وعمل حل آخر بواسطة الأكواد لجلب الفاتورة حسب ( اسم العميل ) كما تم عمل قائمة منسدلة بأسماء العملاء وأيضا عمل إجمالي لكل عميل وسأرفق لك الملفين الأول بالمعادلات فقط وحسب رقم الفاتورة الثاني بالأكزاد كود دالة معرفة لتفقيط الأرقام وكود دالة معرفة لجلب جميع نتائج العميل وكود مسجل لعمل قائمة فريدة بالعملاء فاتورة.rar فاتورة2.rar

السلام عليكم ورحمة الله وبركاته استاذ جمال مرحباً بك هو ده اللي محيرني والسؤال اللى كنت سوف اطرحه؟! فعند النظر الى البيانات لا اجدها مرتبطة تماماً مع نوع البحث ولكن لقلة خبرتي قلت لعل الاساتذة لهم خبرة في حل المعضلات!

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الاستاذ / احمد عبد الناصر حل جميل وموفق لم اعد اشاهد لك مشاركات في الفترة الاخيرة ارجو ان يكون السبب تواجدي المحدود بالمنتدى نسال الله لك دوام الصحة والعافية ان يكون المانع خير هنا تعديل بسيط في الحل ليتوافق مع ملاحظة الاخ/ نور وحيد ارجو ان يكون المطلوب في امان الله جرد+++.rar

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

السلام عليكم ورحمة الله وبركاته هنا كود اخر ربما يكون مفيد في المعادلات الكود التالي يقوم بتلوين المعادلات في العمود H والمرتبطة بالخلية D5 والكود يلون المعادلات المرتبطة بشكل مباشر بلون و لون اخر مختلف للمعادلات المرتبطة بشكل غير مباشر(غير مباشر مثلا المعادلة مرتبطة بخلية اخرى والخلية الاخرى مرتبطة بالخلية D5) Sub ALKHALEDI_ارتباط_المعادلات() Application.ScreenUpdating = False Dim Rn As Range, C As Range Set Rn = Range([H6], Cells(Rows.Count, "H").End(xlUp)) Rn.Interior.ColorIndex = 0 On Error Resume Next Intersect(Rn, Range("D5").DirectDependents).Interior.ColorIndex = 3 For Each C In Intersect(Rn, Range("D5").Dependents) If Intersect(C, Intersect(Rn, Range("D5").DirectDependents)) Is Nothing Then C.Interior.ColorIndex = 4 Next Set Rn = Nothing Application.ScreenUpdating = True End Sub ايضا وللفائدة الكود التالي يلون خلايا التحقق من الصحة في العمود H ويلون كل مجموعة تحقق متشابه بلون مختلف عن مجموعات التحقق الاخرى ويمكن استخدام الكود مع خلايا التنسيق الشرطي بعد تغير الخاصة في الكود من التحقق من الصحة الى خاصية التنسيق الشرطي Sub ALKHALEDI_اختلافات_التحقق_من_الصحة() Dim Rn As Range, RnA As Range, RnS As Range, Rnx As Range, C As Range Dim Cr As Byte Set Rn = [H:H] Rn.Interior.ColorIndex = 0 On Error Resume Next Set RnA = Intersect(Rn, Cells.SpecialCells(xlCellTypeAllValidation)) Set RnS = Intersect(RnA, RnA.SpecialCells(xlCellTypeSameValidation)) RnS.Interior.ColorIndex = 3 For Each C In RnA If Intersect(C, RnS) Is Nothing Then Cr = Cr + 1 Set Rnx = Intersect(RnA, C.SpecialCells(xlCellTypeSameValidation)) Rnx.Interior.ColorIndex = Cr + 3 Set RnS = Union(RnS, Rnx) End If Next Set Rn = Nothing: Set RnA = Nothing: Set RnS = Nothing: Set Rnx = Nothing End Sub في امان الله

تفضل أخى نزع تمدد الاسم.rar

السلام عليكم اسعد الله صباحكم هذه محاولة مبدئية للفكرة تحياتي جرد+.rar

السلام عليكم ورحمة الله وبركاته هنا محاولة للحل ارجو ان تنجح الكود المرفق يقوم بتلوين خلايا المعادلات المختلفة وكل مجموعة بلون Sub ALKHALEDI_اختلاف_المعادلات() Dim Rn As Range, Cr As Byte Set Rn = Intersect(Range([H6], Cells.SpecialCells(xlCellTypeLastCell)), [H:H]) Set Rn = Rn.SpecialCells(xlCellTypeFormulas, 23) Rn.Interior.ColorIndex = 0 On Error GoTo Error: For Cr = 3 To 56 Set Rn = Rn.ColumnDifferences(Rn(1, 1)) Rn.Interior.ColorIndex = Cr Next Error: Set Rn = Nothing End Sub ارجو ان يكون المطلوب في امان الله اختلاف المعادلات.rar

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

قم بعمل ضغط واصلاح للملف ثم اضغط الملف او ارفع الجزء المراد التعديل عليه فقط

بعد إذن أخوتى ولاثراء الموضوع حل أخر المعادلة المناسبة2.rar

أتمنى يكون المطلوب تقبل تحياتى : وأدعى لمصر وجيشها TEST2.rar

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

لازال أخى تكتب المعادلة خطأ أكتب ( IFERROR ) وليس ( IFERORR ) =IFERROR(INDEX($A$2:$A$23;MATCH(SMALL(IF((COUNTIF($F$1:F1;$A$2:$A$23)+COUNTIF($D$2:$D$26;$A$2:$A$23))=0;COUNTIF($A$2:$A$23;"<"&$A$2:$A$23));1);COUNTIF($A$2:$A$23;"<"&$A$2:$A$23);0));"") ولاتنسى الضغط على ( CTRL+SHIFT+ENTER ) معا لتكوين تلك الأقواس ( { } ) فى بداية ونهاية المعادلة لابد من تكوين تلك الأقواس بالضغط على المفاتيح السابقة معا ، ولاتكتبها يدويا والمعادلة تصلح لأوفيس ( 2007 ) ومابعدها تقبل تحياتى

أليك ؟أخى ماطلبت دالة دمج.rar

بعد إذن أساتذتى الأفاضل وبعد هذه الحلول الجميلة وبعد تنوية لأخى الغالى (هانى عدلى ) عن مرفق لى يقوم بفصل جميع ماترغب فصلة عن طريق تحديد الرقم ولكن هذا الحل يعتمد فى المقام الأول على وجود فراغ بين ماتريد فصلة ورغم الظروف التى تعيشها مصر وإن كنت متأكد أن الله حارس لها ليوم الدين ، وطالما بها شعب ، وجيش بهذه العظمة لن يخذلها الله أبدا و إن كنت أخذت على عاتقى عدم الأشتراك حتى تخرج مصر الحبيبة من هذه العثرة البسيطة إلا إننى رغبت فى مشاركة عملاق وعبقرى بحجم أستاذى ومعلمى ( يحيى حسين ) وأستاذى ( سعيد بيرم ) بهذه المعادلة وهى معادلة صفيف =1*MID(A1;MATCH(TRUE;ISNUMBER(1*MID(A1;ROW($1:$100);1));0);COUNT(1*MID(A1;ROW($1:$100);1))) وأتمنى الدعوة لقلب العروبة النابض أن يزيح عنها هذا الكابوس وإن كنت كما قلت قبل ذلك طالما بها ( جيش )، ( وشعب ) بهذه العبقرية لن يخذلها الله أبده وكل سنة والجميع بخير ومصر الحبيبة بألف خير وسلام

أخى العزيز الغالى عبدالله المجرب بالفعل ما تفضلت به سيادتكم هو المطلوب وكنت قد توصلت للمطلوب بمعادلة أخرى هى =WEEKDAY(B2;1) مع تنسيق الخلية A2 من تنسيق خلايا - تخصيص - dddd ولكن ولا شك حلكم أسهل وأفضل الف شكر

طبعا الحل قريب من فكرة الأخ العزيز عبدالله جرب المرفق Sub trheeeeel() Set fs = Sheets("الرئيسية") Application.ScreenUpdating = False For r = 1 To 9 sh = fs.Cells(r, 21) shc = Worksheets.Count For shn = 1 To shc If Sheets(shn).Name = sh Then Set ts = Sheets(sh) fs.Range("C7:D81").Copy ts.Range("C7").PasteSpecial Paste:=xlPasteValues fs.Range("L7:L81").Copy ts.Range("G7").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False GoTo 9 End If Next shn 9 Next r End Sub الشرح الكود يكرر نفسة 9 مرات - يعني ممكن تضيف اسماء اوراق الى 9 اسماء في القائمة السوداء من الصفحة الرئيسية ياخذ اسم الورقة من الخلية يمر على كل اوراق الملف ويشوف اسم الورقة اذا وجدة يطابق الإسم الي اخذة يوقف عنده ينسخ الأعمدة المطلوبة يلصق المطلوب في مكانه يغلق امر النسخ و اللصق يروح للخليه الي بعدها ويأخذ الإسم التاني ويبدأ من جديد آمل ان يكون واضح وآمل ان يكون هذا المطلوب مع التحية و التقدير للجميع ياسر و سعد وعبدالله ترحيلToYaser.rar