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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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