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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

السادة الخبراء هذه فكرة قد طرحت من قبل فى هذا المنتدى العظيم الذى تعلمت منه كثيراً و وجدت هذا الحل لتخصيص شريط ادوات خاص بك فى اوفس 2007 ارجو ان ينال اعجبكم وهذا من فضل الخبراء العظماء فى المنتدى شكراً Test RRibon.rar

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

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

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

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

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

بارك الله فيك أستاذى الفاضل سليم أخى اكرامى وهذا حل آخر للترحيل والفلترة بالأكواد تحياتى ترحيل2.rar

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

الأخ الحبيب محبوب تعبت والله ..بقالي ساعتين عشان أعمل الكود الملعبك ده بس الحمد لله بفضل الله تم المطلوب .. افتح ملف "الأقساط الشهرية 2015" ستجد الكود بداخله .. في ورقة الفهرس يوجد زر امر انقر عليه لتنفيذ الكود .. Sub YasserKhalil() Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء 1.xlsx") For Each SH In ThisWorkbook.Sheets If SH.Name <> "الفهرس" Then SH.Range("C6:F99,H6:I99").ClearContents For Each WS In WBK.Sheets If WS.Name <> "الفهرس الرئيسى" Then With WS If IsEmpty(.Range("A6")) Then GoTo 1 For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If Month(Cell.Value) = MonthNumber(SH.Name) Then SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value End If Next Cell 1 End With End If Next WS End If Next SH WBK.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function MonthNumber(MonthName As Variant) As Variant Select Case MonthName Case "": MonthNumber = "" Case "يناير": MonthNumber = 1 Case "فبراير": MonthNumber = 2 Case "مارس": MonthNumber = 3 Case "ابريل": MonthNumber = 4 Case "مايو": MonthNumber = 5 Case "يونيو": MonthNumber = 6 Case "يوليو": MonthNumber = 7 Case "اغسطس": MonthNumber = 8 Case "سبتمبر": MonthNumber = 9 Case "اكتوبر": MonthNumber = 10 Case "نوفمبر": MonthNumber = 11 Case "ديسمبر": MonthNumber = 12 End Select End Function تقبل تحياتي ولا تنسى أن تحدد المشاركة إذا أعجتك الإجابة كأفضل إجابة (ساعتين مني قصاد ثانيتين منك .. أظن كدا عدل والحمد لله) Three Loops In Two Excel Files By YasserKhalil.rar

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

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

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

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

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

شرف مباركتكم أعظم أستاذي ومعلمي يوسف خالص تحياتي لشخصك الكريم

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

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

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

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

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

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

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

بعد أذن استاذى الحبيب ياسر خليل من باب اثراء الموضوع والتنوع جرب المرفق ربما يلبى طلبك تم التطبيق فقط على Customer Name كما طلبت فى المشاركة 4 تقبل تحياتى Customers_Form.zip

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

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

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

تحياتنا لشخصكم الكريم و تمنياتنا لك بوافر الصحة

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

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

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

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

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

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

اهلا وسهلا باخينا وابينا وعمدتنا انت اخ كبير ولك قدرك و احترامك واهلا وسهلا بين ابنائك في بيت اوفسينا

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

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

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

شكرا أخى الكريم وجارى التحميل

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