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

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

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

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

منتدايا العظيم سلام الله عليكم ورحمته وبركاته تحية واجبة لهذا المنتدي العظيم فمنذ تعاملت معه وعرفته من خلال بحثي علي النت استفدت منه استفادة عظيمة جدا حتي انني قررت انا اعمل موضوعا فقط لاعبر عن مدي شكري الكبير. لاني فعليا لا اجد الكلمات التي اصف بها جميلكم ليس تملقا او رياء لتقضية طلبي منكم لكنه واقسم بالله حقكم عليا فهناك اعضاء استفدت من شروحاتهم واعمالهم وفيديوهات الشرح التي صنعوها لنا مما جعلني انجز عملي بما يليق فهذا اولا فقررت ان ارفق شكري مع طلب اما ثانيا فلي طلبات ليس بالصعبة ولكنها لكثيرة فارجوا من سعت صدركم احتمالها واحتمالي 1)) الطلب الاول: في الصفحة DATA G1 في العمودCL ترتيب الطالب علي مستوي المدرسة هذا الكود يرتب حتي الطالب مية(100) ترتيبا مفقطا سليما ثم بعد هذا يرتب الطالب ترتيبا سليما ايضا ولاكن رقميا وسوف تلاحظون ذلك وانا اريد حتي 300 طالب تعداد طلاب مدرستي ======================================= 2)) الطلب الثاني : في نفس العمود مشكلة وهي مشكلة الطالب المكرر كالاتي (الطلاب المتشابه مجموعها مع مجموع طالب اخر مثلا يدعوه الــ ...... مكرر ولا توجد مشكلة في ذلك اما الطالب الذي ياتي بعدهم يعطيه الترتيب التالي مباشرة في حين انه لا بد ان ياخد المكانة الصحيحة وهي رتبته اشرح اكثر (الطالب الثاني والثالث والرابع مجموعهما 200 مثلا فدعا الثاني الثاني ثم دعا الثالث الثاني مكرر والرابع الثاني مكرر ثم حينما اتي الي الطالب الخامس دعاه الثالث والصحيح او ما اريده ان يدعوه الخامس ) فهل وصل طلبي وادركتم مقصدي ========================================= 3)) الطلب الثالث: في العمود CM تفقيط مجموع الطالب بالحروف لا اريده ان يكتب 5/10 اريده ان يكتب نصف حيث انني مقربا جميع الدرجات العشرية ولا يوجد مجال لوجود كسر في المجموع للمادة او المجموع الكلي سوي 5/10 (من تعليمات المدرسة ) ======================== زهقتوا مني ولا اكمل اكمل واجري علي الله...........! ======================== 4)) ارجو النظر الي العمود CO في الصفحة DATA G1 ارجو النظر الي الدالة هل المدي بتقيم النتيجة من 300 صحيح ام خطأ ============================================= يا سلام لو طلبي الاخير يتحقق يبقي حكاية لاني قررت اعتمد شيأً حينما شرعت في عمل هذا الكنترول شيت اني لا المس سوي صفحة البيانات اما باقي الافعال فهي تصفي اوتوماتيكيا بدون تدخل مني من احصاءات وكشوف النتيجة والاوائل والشهادات فاذا تحقق هذا الطلب الاخير ابقي مبسوط قوي الا وهو 5)) الطلب الخامس : اريد وضع الطلاب الناجحين في كشف والطلاب الراسبين في كشف اخر للعلم (انا حاولت من خلال ماكرو لعمل ذلك وتم معي ولكني لم اعجب بما فعلت (ماكرو Macro222) ) فاريد شئ يبهرني مثل صفحة الاوائل Awael في الشيت المرفق اطلت عليكم الحديث اقصد الطلبات ولكني كلي ثقة في اجابتكم لي من سعة صدركم وادعوا الله لكل من ساهم في اخراج عملي ان يقعده الله فيه وفي اولاده وفي بيته ويكرمه الله دنيا واخرة واللي عنده شيء جديد ممكن اضيفه الي هذا الملف لا امانع بالافاكار الجديدة الشيقة والسلام عليكم ورحمة الله وبركاته المرفقات: wallled.rar

كل عام وجميع أعضاء منتدانا الكرام بألف خير تقبلوا تحيـــــــــــــــــــــــــــــــــــــــــــــــــــــاتى بعد فك الضغط عن المرفق ويفتح معك ( إضغط كليك يمين بالماوس ) أرجو لك الأستمتاع مع المرفق عام سعيد.rar

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

اخى _ احمد زمان بارك الله فيك _ منكم نستفيد

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

السلام عليكم بعد اذن اخي الحبيب ابو حنين هذا الكود اعددته مع المسح والفرز للجداول يجب تنفيذ الكود من الورقة (الاسماء حسب القصول) Sub kh_trheel() Dim cel As Range Dim Lr As Long, Lrr As Long, R As Long, i As Long, iCont As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Lrr = Cells(Rows.Count, "C").End(xlUp).Row With Sheets("المنقولين من المدرسة") Lr = .Cells(Rows.Count, "B").End(xlUp).Row iCont = WorksheetFunction.Max(.Range("A5").Resize(Lr)) For R = 5 To Lrr If Cells(R, "U").Value = "نقل" Then i = i + 1 .Cells(Lr + i, "A").Value = iCont + i .Cells(Lr + i, "B").Resize(1, 8).Value = Cells(R, "B").Resize(1, 8).Value If cel Is Nothing Then Set cel = Cells(R, "A").Resize(1, 23) Else Set cel = Union(cel, Cells(R, "A").Resize(1, 23)) End If Next End With If i Then On Error Resume Next cel.SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 For R = 5 To Lrr Step 53 With Cells(R, "A").Resize(50, 23) .Sort .Columns(3), xlAscending End With Next End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Set cel = Nothing End Sub تحياتي

السلام عليكم ورحمة الله أخي الكريم عبد الله، لم أقم بإخفاء التعليقات من العمود A وإنما قمت بتغيير مكان إدراجها بالعمود U (تم الترميز لمكانها في الأكواد بالحرف U أو بالرقم 21)... وفي الملف المرفق تجد تعديلا آخر على الأكواد حيث تم الاستغناء عن التعليقات في العمود U وتعويضها في العمود نفسه بالأرقام التسلسلية المناسبة لكل قسم يتم استدعاؤه مع تلوين هذه الأرقام بالأبيض (لإخفائها)... أرجو أن يروقك هذا التعديل... المرفق المعدل : GESTION DES NOTE MOYEN_6.rar أخوك بن علية

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

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

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

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

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

أنت لست ( ملك المعادلات ) بل أنت إمبراطور الأكسيل فى الوطن العربى كله بجد رائــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــع

ما المشكلة في الدالة VLookup طالما أنها تؤدي الغرض؟

أخى العزيز ( عصام ) أنا شايف الدوال المعرفة للأساتذة ( عبد الله بقشير ) والأستاذ ( طارق محمود مؤدية الغرض ) أم تريده بالدوال العادية إذا أردتها كذلك أنا تحت أمر حضرتك أليك أخى دالة فصل الرقم عن النص ولنفرض وضعها فى العمود ( D3 ) وسحبها إلى أسفل =SUMPRODUCT(MID(0&A3;LARGE(INDEX(ISNUMBER(--MID(A3;ROW($1:$25);1))* ROW($1:$25);0);ROW($1:$25))+1;1)*10^ROW($1:$25)/10) ثم وضع هذه المعادلة فى العمود ( E3 ) لفصل النص عن الرقم وسحبها لأسفل أيضا =TRIM(SUBSTITUTE(A3;D3;"")) تقبل تحياتى

السلام عليكم الاستاذ القدير / جمال عبد السميع لايوجد اي كلمات ... فحقك الطبيعي هذا التاج لانك بحق ملك كل المعادلات

أنظر أخى للمرفق تم تعديل المعادلة نظرا لكثرة العدد ، ومعادلات الصفيف مع كثرة العدد تسبب ثقل للملف أنظر أخى أعتقد هذا أسرع وأجمل المبالغ المحصله.rar

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

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

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

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

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

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

أليك أخى ماطلبت المرفق الأول ( العناصر المحصورة بين تاريخين ) أما المرفق الثانى ( بالعناصر المحصورة بين التاريخين بالأضافة إلى أسم العميل ، أى بثلاث شروط ) salles3.rar salles4.rar

شكرا أخى الحبيب (أبو حسنين) وجزاك الله عنا خيرا

أستاذى الرائع الجميل ( رجب جاويش ) وحشنى مشاركة حضرتك ونورت المنتدى كله ، وهذا حل أخر بطريقة أخرى بالأضافة لحل أستاذى الرائع lookup-max-price.rar

أخى الحبيب ( ريان أحمد ) كلماتك ومرورك أسعدتنى شكرا لك أخى الحبيب وجزاك الله عنى خير الجزاء

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

السلام عليكم جرب هذا الكود في مودويل Option Explicit Const C_A As String = "ALL_SH" Sub C_AL() On Error Resume Next With Application .ScreenUpdating = False .EnableEvents = False Dim SH As Worksheet Worksheets.add(After:=Worksheets(Worksheets.Count)).Name = C_A With ActiveSheet .Range("A1").Value = "أسماء الصفحات" .Range("B1").Value = "لينك الصفحات" .Columns("A:B").EntireColumn.AutoFit For Each SH In ThisWorkbook.Worksheets If SH.Name = C_A Then GoTo 1 With .Columns(1).Rows(65536).End(xlUp) .Offset(1, 0) = SH.Name .Offset(1, 1).FormulaR1C1 = "=HYPERLINK(""#'"" & RC[-1] & ""'!A1"", ""اذهب للورقة"")" End With SH.Range("A1").Formula = "=HYPERLINK(""#ALL_SH!A1"",""ALL_SH"")" 1 Next SH End With .ScreenUpdating = True .EnableEvents = True End With End Sub

هذا ملف لأخينا خبور وهو عبارة عن دالة لاستخلاص النصوص أو الأرقام من خلية مختلطة دالة استخراج النص او الارقام.zip

السلام عليكم حسب ماأعلم لايوجد دالة ولكن ممكن عمل مثل هذه الدالة بالأكواد مثلا Function horoof(a As String, b As Boolean) As String z = "" y = "" For i = 1 To Len(a) x = Mid(a, i, 1) If IsNumeric(x) = False Then z = z & x: GoTo 10 y = y & x 10 Next i If b = False Then horoof = y Else horoof = z End Function أو أنظر المرفق صعب التحميل صيغة الدالة للحصول علي الحروف horoof(X,1) للحصول علي الأرقام horoof(X,0) المرفق علي الرابط التالي http://www.4shared.c...GAa/horoof.html

البرنامج يعمل على sql server ينظم حركة الوارد و المنصرف الخاصه بكروت الشحن و الاكسسوارات ولكنى ارغب فى مشاركتكم على منتدايا التجريبى fettoo.tk fettoo_2000@yahoo.com منتدى القادة التجريبى

أخي الكريم مليون شكر على مرورك الطيب وبارك الله فيك.