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

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته تحيه طيبه وبعد يحتاج الكثير منا فى بعض الاحيان عند عمل الفلتر ان يظهر ناتج الجمع بناء على شروط اترككم مع الملف المرفق تقبلو تحياتى sumifs with filter.rar

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ..................................................... ********************** نقدم اليوم درسا فى شرح كيفية استخدام conditional formatting فى البحث وتظليل الخليه التى تطابق نطاق البحث كما فى الصوره كما تشاهد فى الصوره اننا لدينا جدول بيانات به مجموعه من الاعمده وان الخليه D14 مظلله باللون الاصفر وذلك لانها كما يتضح فى الصوره تطابق الخليه C6 ولمعرفة كيفية تنفيذ ذلك تابع الشرح فى الصوره الاتيه قم بانشاء جدول بيانات كما فى الصوره الاولى ثم قم بتحديد الجدول بالكامل بداية من B8:E14 ثم اتبع الشرح الموجود فى الصوره =AND($C$6<>"",$C$6=B8) الان قم بتطبيق المثال على ملف من عندك وقم بتغير الاسم الموجود فى الخليه C6 الى اى اسم موجود داخل الجدول وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى. ........................................... الدرس القادم. كيفية استخدام conditional formatting فى البحث وتظليل السطر الخاص بالخليه التى تطابق نطاق البحث

أخي الكريم جرب الكود بهذا الشكل : Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Dim T As Long Set ws = Worksheets("Feuil1") iRow = ws.Cells(Rows.Count, 8).End(xlUp).Row + 1 ws.Cells(iRow, 8).Value = Me.TextBox1.Value ws.Cells(iRow, 9).Value = Me.TextBox2.Value ws.Cells(iRow, 10).Value = Me.TextBox3.Value ws.Cells(iRow, 11).Value = Me.TextBox4.Value ws.Cells(iRow, 12).Value = Me.TextBox5.Value Me.TextBox1 = "" Me.TextBox2 = "" Me.TextBox3 = "" Me.TextBox4 = "" Me.TextBox5 = "" T = ws.Cells(Rows.Count, 8).End(xlUp).Row TextBox1 = Val(Cells(T, 8)) + 1 Me.TextBox1.SetFocus End Sub Private Sub UserForm_activate() Dim ws As Worksheet Dim T As Long Set ws = Worksheets("Feuil1") T = ws.Cells(Rows.Count, 8).End(xlUp).Row TextBox1 = Val(Cells(T, 8)) + 1 Me.TextBox2.SetFocus End Sub تقبل تحياتي

الأخ الحبيب رجب جاويش تسلم على المعادلة الجميلة الأخ الحبيب علاء رسلان معادلة في منتهى الجمال الأخ السائل أحمد حبيبه إليك الملف التالي .. فيه حل كل من الأخ رجب جاويش و الأخ علاء رسلان ، إضافة إلى معادلة صفيف أخرى ومعادلة عادية أخرى .. يعني حلين جنب الحلين .. بس متنسناش بدعوتين Show Price Based On Two Conditions.rar

ربما كان المطلوب Book11 salim.rar

السلام عليكم تفضل أخى معادله بشروط.rar

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

بسم الله الرحمان الرحيم السلام عليكم اولا ما هو النص التنبئي باختصار هو تنبئ البرنامج او الدالة او الكود بالكلمات التي تبحث عنها من خلال كتابة اول حروف الكلمة مثل مايحدث اثناء البحث عن طريق محرك البحث قوقل هذا الموضوع ليس جديد فهناك كود في المنتدى يعتمد على مربع نص وليست بوكس لاكني منذ فترة حاولت تطبيق الامر على الكمبوبوكس الى ان وفقني الله الى ذلك وها انا الان اشارككم الموضوع ما هي الفائدة من هذا الموضوع كثيرا ما يكون لدينا قاعدة بيانات كبيرة مثلا الاصناف في الفواتير و غالبا متكون عمليات الادخال خاصتا مكررة و كثيرة فهذه الطريقة ستساعدك كثيرا في ادخال الاصناف بسلاسة وسهولة بدل عناء اعادت كتابت الصنف مرارا وتكرارا لا اطيل عليكم في المرفق تجد مثال توضيحي احدهما مطبق على الشيت وهو مايهم اصحاب ادخالات الفواتير والثاني مطبق على الفورم صورة توضيحية بالنسبة للمثال المطبق على الشيت كما في الصورة من جهة اليمين عند الضغط على اي خلية ملونة بالاخضر تظهر كمبوبكس اكتب داخلها اي حرف لتجلب لك الكلمات التي تحمل تلك الحرف كما في الصورة يمكنك التنقل بين النتائج بواسطة سهم الاعلى والاسفل من الكبيور اضغط انتلر لادخال النتيجة في الخلية وانتقال الكمبو الى اسفل الخلية المفعلة بالنسبة للمثال المطبق على الفورم كما في الصورة من جهة اليسار نفس الامر كما في المثال الاول فقط الاختلاف في ان ادالبحث يكون من الفورم ارجو ان يكون الموضوع مفيد للجميع تحياتي للجميع تنويه تم استبدال المرفق بعد 23 تحميل texte prédictive 2007 2003.rar

السؤال : ما هي حلية طالب العلم ورأس ماله الحقيقي؟

الله يسعدك اخي ياسر ويوفقك في الدنيا والاخرة وكذلك اخي سليم صراحة اخجلتوني بتواضعكم وبحسن اخلاقكم ما اقدر اوفيكم حقكم لكن لكم دعوات بظهر الغيب

أخي سليم أيوا .. بس الفترات ما بين الثلاثة ورقات عمل 10 - 15 - 20 على أوراق العمل ورقة العمل 3 - 4 - 5 وبيتكرر مرة تانية !! يعني عدد مرات التكرار مرتين .. والفترات ثابتة ..

السلام عليكم أرى أن يتم أضافة هذه التوجيهات لموضوع الأخ الكريم ياسر خليل ( مع ذكر المصدر .. لينسب الكلام لصاحبه ) بدلا من تثبيت مواضيع بتوجيهات و اقتراحات كما ارى ان التوجية السليم هو حرص طارح السؤال على انتقاء أفضل اجابة لانهاء موضوع طلبه من ناحية و توجيه الجهود لمواضيع اخرى .. بخصوص الفهرسة هذا العمل يتطلب جهد كبير و يحتاج الى وقت فصفحات منتدى الأكسيل كثيرة فوق 600 صفحة بمتوسط 20 موضوع فى الصفحة الواحدة تقريبا يعنى وجود 12000 موضوع على الاقل .. يتطلب الامر معرفة كل موضوع و محتواه و درجة افادته من عدمها و وضعه مفهرسا بموضوع عندما يحتوى على موضوع هام ( شرح لمعادلة .. حل لمسئلة .. الخ ) بخصوص طلب الاخ الكريم مختار حسين محمود ارى ان يتم رفعه للادارة من قبل المشرفين فهذا العمل يمكن التمييز بلون بين ما يخص اكسيل و ما يخص اكسس و الله الموفق و المستعان ملحوظة : وجدت ان موضوع التوجيهات يحتوى مسئلة انتقاء افضل اجابة .. بقى نقطة الاخ الكريم مختار الموضوع هنا http://www.officena.net/ib/index.php?showtopic=60147

وقع سهوااً هذا الامر تم معالجة الخطأ ترحيل salim 1.rar

=AND($C$6<>"";OR($C$6=$B8:$E8)) السلام عليكم سجلت الكود بالمشاركة و لكن لا أدرى لما يظهر بشكل غير صحيح من اليمين لليسار و الاقواس مختلطة عموما اخذته كوبى بيست فكتب بشكل صحيح فى الاكسيل أخذت منى الكثير من الوقت لمحاولة جعلها بشكل صحيح بلا جدوى .. ترى ما السبب . الله أعلم . سبقتنى يا أخ ياسر و أنا أحاول و اتضح لى انها لا تظهر بالمعاينة بشكل سليم و عند اعتماد المشاركة ظهرت بشكل صحيح .. دمتم بخير و أعزكم الله .

بارك الله فيك أستاذي الفاضل ..جزاك الله خيرًا و زادها بميزان حسناتك ..كفيت و وفيت ..زادك الله من علمه و فضله يا ياسر يا خليل يا أبا البراء

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

أخي الحبيب صلاح من كان حليفاً فليحلف بالله أو ليصمت .. قول بالله عليك ويا سيدي الحال من بعضه .. بس أنا دققت شويتين عشان أكتب لك المعادلة =AND($C$6<>"",OR($C$6=$B8:$E8)) وإنت تؤمرني

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

الأخ الحبيب سليم بارك الله فيك بعد إذنك جرب الكود التالي .. Sub LoopThroughSheets() Dim rNumber As Long, I As Long, X As Long 'عدد مرات التكرار rNumber = 2 'بداية الثواني X = 10 For I = 1 To rNumber 'حلقة تكرارية لأوراق العمل For II = 3 To 5 Application.Wait (Now + TimeValue("0:00:" & X)) X = X + 5 Sheets(II).Select Next II X = 10 Next Sheet1.Activate End Sub

السلام عليكم بداية وقبل كل شىء . اود ان اشكر استاذى الحبيب ياسر خليل على هذه الثقه الغاليه . ما انا الا طالب علم بينكم. --------------------------------------------------------------------------------------------------------------------------------------------------------------------------- الهدف من هذه المعادله هو تجميع البيانات التى تطابق اسم الحساب مع تاريخ البدايه وتاريخ النهايه للوصول الى مجموع الرصيد المدين ومحموع الرصيد الدائن من صفحة اليومية العامه لعمل تقرير عن ميزان المراجعه له فترة بداية وفترة نهايه --------------------------------------------------------------------------------------------------------------------------------------------------------------------------- شرح المعادله المعادله الاولى/ فى ميزان المراجعه فى ميزان المراجعه بالمجاميع عمود المدين =SUM(IF((ح=$I7)*(ي>=$K$2);م))-SUM(IF((ح=$I7)*(ي>$M$2);م)) المعادله الثانيه/ فى ميزان المراجعه فى ميزان المراجعه بالمجاميع عمود الدائن =SUM(IF((ح=$I7)*(ي>=$K$2);د))-SUM(IF((ح=$I7)*(ي>$M$2);د)) ح تعنى نطاق البيانات فى صفحة اليوميه (عمود رقم الحساب) ='اليومية '!$B$2:$B$1551 ي تعنى نطاق البيانات فى صفحة اليوميه (عمود رقم ي) ='اليومية '!$C$2:$C$1551 م تعنى نطاق البيانات فى صفحة اليومية (عمود مدين) ='اليومية '!$H$2:$H$1551 الخطوه الاولى للمعادله الاولى استخدام الداله IF ( اذا كان رقم الحساب فى ميزان المراجعه = رقم الحساب فى اليوميه العامه) علامة * تعنى (و) ( عمود رقم ى = التاريخ من او تاريخ البدايه ) تكون النتيجه عمود المدين ثم استخدام دالة SUM لجمع الناتج الذى تم تحقيقه من الداله IF SUM(IF((ح=$I7)*(ي>=$K$2);م)) الخطوه الثانيه : طرح ناتج المعادله السابقه من ( اذا كان رقم الحساب فى ميزان المراجعه = رقم الحساب فى اليوميه العامه) علامة * تعنى (و) ( عمود رقم ى = التاريخ الى او تاريخ النهايه ) SUM(IF((ح=$I7)*(ي>$M$2);م)) الخطوه الثالثه : الضغط على مفاتيح CTRL+SHIFT+ENTER لانها معادله صفيف ----------------------------------------------------------------------------------------------------------------------------------------------------- يتم تطبيق نفس الخطوات فى المعادله الثانيه او عمود الدائن ----------------------------------------------------------------------------------------------------------------------------------------------------- تقبلوا منى تحياتى واحترامى

الأخ الكريم صلاح الدين جرب الكود التالي وشوف هل يؤدي الغرض أم لا Sub ss() Dim LR As Long Application.ScreenUpdating = False Workbooks.Open Filename:="D:\z.xls" With Workbooks("z") .Sheets("total").Range("A2:P1000").ClearContents With Workbooks("تفاصيل").Sheets("تفاصيل") .Activate .Range("A2:P" & .Cells(Rows.Count, 2).End(xlUp).Row).Copy End With LR = .Sheets("total").Range("A1").CurrentRegion.Rows.Count + 1 .Sheets("total").Range("A" & LR).PasteSpecial xlPasteValues .Save .Close End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي

حيا الله أخوي أبوآلآء بالنسبة لي انا شخصيا ، انت عضو شرف وعلى راسي من زمان بالبركة إن شاء الله جعفر

الاخ الفاضل ارفقة لك مثال للستاذ كمال النحال ارجو ان تستفيد منه ACCOUNT101.rar

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

احيطك اخ محمد علما انه نفس فكرة رمهان بدون اي تغيير ! صدقني وضعت الحل كمصدر لعنصر التحكم وباستخدام دالتي iif و replace لتجربة الفكرة فقط والاخ ما شاء الله عليه راح مسوي نسخ ولصق وزي مانقول في الحجاز وما يدري ايش الهرجة ! تحياتي

طيب وايش السبب ياسيد رمهان؟؟ ولو جعلنا الحقل رقم وصار الترقيم هكذا:2015001 بدلا من الشرطة المائلة هل سنتجاوز المشكلة.. اخي راعي الغنم المشكلة ان السيناريو او الخوارزمية هي عد السجلات ثم اضافة 1 وهنا سيتكرر الرقم كما ذكرت في التنبيه فعدد السجلات اصبح 2 بعد الحذف وعند اضافة 1 ستكون القيمة 3 والقيمة 3 موجودة سابقا للسجل الثالث قبل الحذف وهو السجل الثاني بعد الحذف والافضل اخذ اكبر قيمة ثم اضافة 1 وهي خوارزمية الترقيم التلقائي في الاكسس وهنا ستظهر مشكلة الرقم المحذوف لا يعود في القائمة ! لذلك ينصح دائما بان يكون عمود الربط في العلاقات من نوع ترقيم تلقائي ! اما ظهور الارقام الوظيفية بشكل معين فالافضل ان تكون عملية حسابية وتظهر فقط في النماذج والتقارير وقد تكون عن طريق خاصية التنسيق والخاصة بظهور شكل المحتوى في النماذج والتقارير ! بالتوفيق

وعليكم السلام ورحمة الله الكود التالي بعد الكتابة فقط ضعه في حدث بعد تحديث الحقل Textbox Textbox = StrConv(Textbox, vbProperCase)

مرحبا بك قم بتشغيل الاستعلام QrySum وانظر التجميعات بالوحدة النمطية المرفقة أتمنى يكون المطلوب db5---up.rar

حول المرفق الى صيغة mdb تحصل على تفاعل اكبر

=IIf( IsNull([textfind]);[CompanyName];Replace([CompanyName];[textfind];"<font color=red>" & [textfind] & "</font>")) كما هو الحال مع كود الاستاذ رمهان لا جديد ولا ينطبق الا على عمود واحد فقط وعند التغير لاكثر من عمود #type #error

الاساتذه الكرام الراجل عرفنا انه بذل جهدا ومحتاج المساعدة في تكمله العمل الذي هو بالنسبه لكم ان شاء الله سهل زائد ان هذا العمل يفيد شريحه كثيره من رواد المنتدى العظيم فمن لها

لا فرق اطلاقاً لكن اذا كنت تريد استعمال else يستحسن استعمال الامر Cut بدل Copy اليك كيف يكون ذلك Sub reset() Sheets("æÑÞÉ1").Unprotect lrsh2 = Sheets("sheet2").Cells(Rows.Count, 4).End(xlUp).Row + 1 lrd = Cells(Rows.Count, 4).End(xlUp).Row '''''''''''''''''''''''''''''''''''' answer1 = MsgBox("åá ÊÑíÏ ãÓÍ ÇáÈíÇäÇÊ Çã äÞáåÇ Çáì æÑÞÉ ÇÎÑì ÇÖÛØ ßáÇ ááãÓÍ äÚã ááäÞá ", vbYesNo) If answer1 = vbYes Then Range("d2:g" & lrd).Cut Sheets("sheet2").Cells(lrsh2, 4) Application.CutCopyMode = False Else Range("d2:g" & lrd).ClearContents End If Range("b3").Select Sheets("æÑÞÉ1").Protect End Sub

اعفيني من الشرح لأني مش بفهم محاسبة على الإطلاق .. أعتقد إنه من الأفضل هنا أن يتدخل الأستاذ المحاسب الكبير المخضرم محمد الريفي .. لأن المعادلة تعتمد على فهم مضمون الملف ومضمون الملف محاسبي !! وانا أبعد عن المحاسبة وأغني لها!

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

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

أخي الغالي خالد ..ملفك خلاني أسطب أوفيس 2013 .. وبعد التجربة من أول مرة اشتغل الملف بشكل عااااااااادي وطبيعي ولا كأن فيه مشكلة بارك الله فيك وجزاك الله خيراً يبدو أنه قد حان الانتقال لأوفيس 2013 .. اوعى حد يكون نظره ضعيف ويشوفها 2003 تقبل تحياتي

الآن فهمت لماذا قلت أن دالة vlookup ربما لا تفى بالغرض، لأن Code Item مكررأكثر من مرة وكل مرة بنتيجة مختلفة، فى تلك الحالة سوف نستخدم دالة vlook2all وهى من ابداع أعضاء المنتدى وتستخدم لهذا الغرض، أنا للأسف لن أستطيع حلها الآن لأننى مشغول للغاية، لكن أعدك أول ما أنتهى من عملى سوف أبدأ فيها فورا بمشيئة الله وغالبا ما سيكون غدا على الأكثر إن شاء الله

تم تجربة الملف الأخير يعمل بنجاح

تحية طيبة و بعد الحل بالمرفق ارجو ان يحقق النتائج المرجوة ملحوظة : لا بد من ضغط الأزرار Ctrl&Shift&Enter عند اتمام المعادلة لتظهر القيمة إذا تم تغيير نطاق البيانات معادله بشروط.rar

تفضل حل آخر أخى لاثراء الموضوع المستحقون.rar

جرب هذا الشيء المستحقون.rar

تم التعديل تفضل Book#2.rar

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

اخانا الفاضل رؤوف ابا الاكسيل يسعدنا ويشرفنا جميعا ان تكون معنا وسط اولادك-اخوانك ادام الله عليك الصحه والعافيه وزادك من فضله وعلمه

اهلا وسهلا ومرحبا بك فى هذا الصرح العظيم وانا اول من ينتظر التعلم منكم فارجو ان تقبلونى تحياتى

الاستاذ الفاضل Raouf1951 ان شاء الله نستفيد من خبراتك الكبيرة وتكون ان شاء الله ابو الاكسل في المنتدى

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

تم ارفاق الملف مرة أخرى إنشاء شريط أدوات لطباعة التقارير .rar

لا يمكن العثور على الملف الرجاء رفع الملف

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