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

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

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

أخى الحبيب ( GHREEB197 ) أتمنى يكون المطلوب تقبل : تحياتى معادلة مناسبة.rar

أحى الحبيب ( الشهابى ) شكرا على مروركم وكلماتكم الجميلة وشعورك الأجمل ، وحلولكم الرائعة بارك الله فيك أخى الحبيب أما أخى ( أبو عرابى ) أعتقد أخى هذا ماطلبتة تقبل تحيات : أخيك 2 قوائم.rar

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

فعلا أخى ( GHREEB197 ) المعادلة السابقة لو أضيف لها شرط أخر سوف يثقل من المعادلة حتى لاتكرر الشرط المكرر وهذه معادلة أخرى أعتقد ستحقق المطلوب وأبسط من معادلات الصفيف حتى لاتثقل ملفك معادلة مناسبة 2.rar

السلام عليكم تفضل أخى Rank.rar

أستاذى الحبيب / عبد الله باقشير تسلم ايديك أخى الحبيب / أبو حنين تسلم ايديك ولشرف المشاركة معكم هذا كود آخر لتظليل الأسماء المتشابهه بين عمودين فكرة الكود ليست نهائية ولكنها تحتاج لبعض التعديلات حيث تكون غير دقيقة عند كثرة الأسماء وتكرارها فى العمود الواحد ( ولكنها فكرة للبداية ) Sub ragab() Sheets("sheet1").UsedRange.Font.ColorIndex = 1 xx = 7 Application.ScreenUpdating = False For i = 1 To [A1000].End(xlUp).Row For ii = 0 To UBound(Split(Cells(i, 1))) x = Split(Cells(i, 1))(ii) For T = 1 To [B1000].End(xlUp).Row R = InStr(1, Range("B" & T), x) If R >= 1 Then Cells(T, 2).Characters(Start:=R, Length:=Len(x)).Font.ColorIndex = xx For TT = 1 To [A1000].End(xlUp).Row RR = InStr(1, Range("A" & TT), x) If RR >= 1 Then Cells(TT, 1).Characters(Start:=RR, Length:=Len(x)).Font.ColorIndex = xx End If Next End If Next xx = xx + 1 Next Next Application.ScreenUpdating = True End Sub تظليل الأسماء المتشابهه فى عمودين.rar

السلام عليكم جرب الكود التالي: Option Explicit Sub kh_Color() Dim Obj As Object Dim cel As Range Dim MyColor Dim txt As String Dim LR As Long, R As Long ''''''''''''''''''''''''''''' Set Obj = CreateObject("Scripting.Dictionary") ''''''''''''''''''''''''''''' MyColor = 2287936 ''''''''''''''''''''''''''''' LR = Cells(Rows.Count, "B").End(xlUp).Row Range("B5:K" & LR).Interior.Color = xlNone For R = 5 To LR txt = Trim(Cells(R, "K")) If Len(txt) Then If Obj.Exists(txt) Then Range(Cells(R, "B"), Cells(R, "K")).Interior.Color = Obj(txt) Else Obj.Add txt, MyColor Range(Cells(R, "B"), Cells(R, "K")).Interior.Color = MyColor MyColor = MyColor + 500000 End If End If Next Set Obj = Nothing End Sub شاهد المرفق 2003 تلوين المكرر بلون محتلف.rar

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

ضاحي حفظي أحمد والشهرة (ضاحي الغريب ) محافظة سوهاج - ج م ع المؤهلات العلمية بكالوريس تجارة - جامعة عين شمس بكالوريس علوم حاسب ونظم معلومات - جامعة عين شمس دبلوم ادارة ميكنة ومكاتب - دبلومة صيانة وشبكات - دبلومة الادارة الأستراتيجية University of East London حاصل علي الادارة الأستراتيجية ونظم تقييم الأداء المتوازن BCS المركز الأمريكي لاعتماد الشهادات المهنية ACAC العمل الحالي مدير المشاريع بمجموعة القادة العالمية - السعودية

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

رائع اساتذتى الكرام جزاكم الله خيرا

الأستاذ / الموسطي السلام عليكم ورحمة الله وبركاته إليك الملف ولو أن شرح حضرتك غير كافِ وإن لم يكن هو المطلوب وضح أكثر ماذا تريد. وإن شاء الله سوف تجد الأجابة مني أو من أحد أساتذة المنتدى الكرام. الإهلاك.rar

صحيح لو زاد عن الثلاث سنوات تعطي النتيجة 4 والحل هو ان تستخرج الايام ثم تقسمها على 360 مثال : =Round(DateDiff("d";[Date1];[Date2])/360;2) Round لتقريب الكسر واخترنا 2 للتقريب الى عددين عشريين ويمكنك استخدام هذه الدالة لاستخراج الايام والشهور والسنين : Function BetwnDate(Date1 As Date, date2 As Date) Dim sYears As Integer, sMonths As Integer, sDays As Integer sMonths = DateDiff("m", Date1, date2) sDays = DateDiff("d", DateAdd("m", sMonths, Date1), date2) If sDays < 0 Then sMonths = sMonths - 1 sDays = DateDiff("d", DateAdd("m", sMonths, ), date2) End If sYears = sMonths \ 12 sMonths = sMonths Mod 12 BetwnDate = sYears & "سنة, " & sMonths & "شهر, " & sDays & "يوم" End Function تلصقها في وحدة نمطية عامة ثم تستخدمها هكذا داحل مربع النص: =BetwnDate([Date1] ;[date2])

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

أليك أخى ماطلبت تقبل : تحيات أخيك قوائم.rar

الأستاذ / abibdah السلام عليكم ورحمة الله وبركاته إليك الملف بعد التعديل لعله المطلوب. Exam Report1.rar

السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar

بعد إخوتى الأعزاء هذا حل أخر لعله يثرى الموضوع تقبلوا تحياتى البحث عن خصائص موظف.rar

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

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

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

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

الاستاذ إسلام الشيمي جزاك الله خيرا