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

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته تحيه طيبه وبعد يحتاج الكثير منا فى بعض الاحيان عند عمل الفلتر ان يظهر ناتج الجمع بناء على شروط اترككم مع الملف المرفق تقبلو تحياتى 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

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena....showtopic=59463 الموضوع السابق ذكره تم التطرق الى البحث داخر القائمة المنسدلة ذات عمود واحد الجديد اليوم هو البحث داخل القائمة المنسدلة بواسطة النص التنبئي لاكن مع وجود اكثر من عمود في القائمة تم عمل مثالين توضيحين الاول مطبق على الشيت اما الثاني مطبق على الفورم وكلاهما لهم نفس الوضيفة انما تم عمل المثالين ليتكون الفكرة وضحة واشمل في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* تحياتي للجميع تم تغير المرفق بعد 12 تحميل النص التنبئي.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

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

أخي سليم أيوا .. بس الفترات ما بين الثلاثة ورقات عمل 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)) السلام عليكم سجلت الكود بالمشاركة و لكن لا أدرى لما يظهر بشكل غير صحيح من اليمين لليسار و الاقواس مختلطة عموما اخذته كوبى بيست فكتب بشكل صحيح فى الاكسيل أخذت منى الكثير من الوقت لمحاولة جعلها بشكل صحيح بلا جدوى .. ترى ما السبب . الله أعلم . سبقتنى يا أخ ياسر و أنا أحاول و اتضح لى انها لا تظهر بالمعاينة بشكل سليم و عند اعتماد المشاركة ظهرت بشكل صحيح .. دمتم بخير و أعزكم الله .

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

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

الأمر بسيط، يمكنك عمل مقاسات الهوامش كالتالي: من الأيمن 2.5 سم ومن الأيسر 2.5 سم، بذلك لن يختلف التنسيق برسالتكم، وسيحتفظ بالتنسيق، وبتساوي الهوامش بالجهتين اليمنى واليسرى ستتفادين المشكلة التي أشرتِ إليها. دمتم بخير

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

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

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

عسى ان يكون المطلوب تم ادراج صفحة اضافية للاختيار ترحيل salim.rar

الأخ الحبيب سليم بارك الله فيك بعد إذنك جرب الكود التالي .. 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 لانها معادله صفيف ----------------------------------------------------------------------------------------------------------------------------------------------------- يتم تطبيق نفس الخطوات فى المعادله الثانيه او عمود الدائن ----------------------------------------------------------------------------------------------------------------------------------------------------- تقبلوا منى تحياتى واحترامى

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

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

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

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

السلام عليكم هناك خطاء في العلاقات فانت باني العلاقه عكس تماما (جاعل IDM في جدول Name_fail يرتبط بعلاقة رائس باطراف في جدول emp_fail ) هذا يؤدي الى ان حساب الاب لا يخرج جميع الابناء بل يخرج ابن واحد فلو عكست العلاقه سوف يؤدى الى ذكر جميع الابناء للاب الوحد الخطاء الثاني المفتاح الاساسي في الجدول Name_fail يجب ان لايكون هنا لان القيمه فيه يجب ان تتكرر لانه فيه حساب الابناء فالمفتاح الاساسي يجب ان يكون في حساب الاب بالتوفيق

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

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

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

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

لا فرق اطلاقاً لكن اذا كنت تريد استعمال 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

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

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

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

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

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

ارجو ان يكون هذا هو طلبك اخى و اعتذر لقلة خبرتى Book1.rar

ا / خالد الملف الاخير يعمل بشكل جيد و لكن هناك ملاحظة هل يجب الخروج من الفورم و الدخول مرة اخرى بعد عمل clear لاختيار range اخر

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

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

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

استاذى الفاضل / رؤوف ( ابا الاكسيل) بعد كلمات اساتذتى التى سبقت مشاركتى يعجز اللسان عن الزياده بما قالو وكل ما اود قوله هو اننا مشتااااااااااااااااااااااااااقون لنرتوى من بحر علمكم الفياض فتقبلنى من تلاميذك مرحبا بك فى جامعه اوفيسنا وتقبل تحياتى

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

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

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

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

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

السلام عليكم إخواني الكرام في المنتدى الغالي هل فكرت يوماً في أن تضيف أمر إلى القائمة المختصرة داخل الإكسيل؟ أي قائمة الكليك يمين؟ ربما لسبب أو آخر تحتاج أن تضيف عنصر في القائمة المختصرة .. إليكم الملف المرفق .. بعد فتح الملف قم بعمل كليك يمين في أي خلية ستجد الأمر Hide Column A In All Sheets هذا الأمر يقوم بلإخفاء الأعمدة A في كل الشيتات الموجودة بالمصنف وعند الخروج من الملف وفتح ملف آخر ستجد أن العنصر تم حذفه .. Custom Item In Shortcut Menu.rar

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