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

لمغرفة عدد ايام الاسبوع (جمعة ،سبت،احد ....بين تاريحين) انظر الى المرفق sum_of_weekdays.rar

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

لغير متابعي موضوع ( VLOOKUP ) من البداية حتى الاحتراف حيث تعرضنا فية للدالة INDIRECT شرح الدالة INDIRECT INDIRECT.rar ........................................................... اتمنى ان يمثل الملف إضافة بسيطة

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم طريقة لعمل قائمة بأسماء الملفات في مسار محدد وتبدأ القائمة من الخلية A2 في العمود الأول طريقة العمل : روح للتبويب Formula ثم إدارة الأسماء Name Manager ثم أنشيء نطاق معرف باسم FileList ثم في صندوق الـ Refers to اكتب المعادلة التالية =FILES(Sheet1!$A$1) في الخلية A1 اكتب المسار الذي ترغب في عرض قائمة أسماء الملفات الموجودة فيه .. أو يمكن عمل معادلة بالشكل التالي ليشير إلى المجلد المسمى Test في نفس مسار المصنف الحالي ، ويتم عرض كل أنواع الملفات باستخدام *.* ثم اكتب المعادلة التالية في الخلية A2 وقم بسحبها لأسفل لأي عدد من الصفوف تريده =IFERROR(INDEX(FileList,ROW()-1),"") وأخيراً أرجو أن يكون الموضوع ذو فائدة ... تقبلوا وافر تقديري واحترامي حمل الملف من هنا

تفضل اخي هل هذا المطلوب Book1.rar

مجهود رائع مشكورين ياغاليين حبيبي ابو البراء كنت عارف ردك يامعلم وكنت ناوي ابحث عنها لولا ضيق الوقت المهم اديك جبتها واكملت ملفك بشكل افضل جزيت خيرا انت وكل من ساهم في الحل تقبل تحياتي

=IF(IFERROR(INDEX(FileList;ROW()-1);"")="";"";HYPERLINK(LEFT($A$1;FIND("*";$A$1)-1)&IFERROR(INDEX(FileList;ROW()-1);""); IFERROR(INDEX(FileList;ROW()-1);""))) السلا م عليكم استاذ ياسر مارايك بهذا الدمج بين المعادلتين حسنات أم سيئات؟ دمتم ذخراً

وعليكم السلام أخي العزيز محي الدين وجزيت خيراً بمثل ما دعوت لي وزيادة مشكور على مرورك العطر بالموضوع وبارك الله فيك على دعواتك الطيبة تقبل تحياتي وهدية مني لأخونا الحبيب ياسر العربي إليكم الملف المرفق فيه معادلة تقوم بعمل ارتباط تشعبي للملفات حتى تكتمل الفكرة توضع المعادلة التالية في الخلية B2 (الموضوع طلع بسيط لكني لم أكن على علم بهذه الدالة الرائعة) ... =IF(A2="","",HYPERLINK(LEFT($A$1,FIND("*",$A$1)-1)&A2, A2)) تقبلوا تحياتي حمل الملف من هنا

جرب هذا الملف ترحيل البيانات على شرطين Salim.rar

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

اخواني واخواتي الأعزاء السلام عليكم ورحمة الله ممكن ان يكون قد تعودنا علي شكل ProgressBar Control لكن يمكن اجراء بعض التحسينات لاضافة مظهر لها كالتالي واترككم للتجربة مع تحياتي ProgressBarControl.rar

اساتذتى الافاضل فى هذا الصرح العلمى كثيرا ما نواجه عناء وتعب الاختيار من القائمه للكمبوبوكس خاصه لو كان القائمة تحتوى على 2000 صف مثلا فيكون الاختيار من القائمة امر شاق ومرهق واستمراراً فى البحث عن ابتكار شئ جديد يفيدنا جميعا أقدم لكم اليوم كود فى حدث تغيير الكمبوبوكس لحل هذه المشكله وتوفر علينا عناء البحث بمجرد كتابة حرف ( عربى او انجلش) او رقم او علامه مثل ( & * / # وغيرها ) ستجد الكمبوبوكس تم فلترة القائمه طبقا لما تريد البحث عنه أقدمه لكم صدقه جاريه على روح المغفور له بأذن الله استاذى / عماد الدين الحسامى لا تنسوا الفقيد من صالح دعائكم اسال الله تعالى ان يتغمده بواسع رحمته تقبلوا تحياتى اخوكم وتلميذكم / حسام كمبوبوكس طبقا للبحث - الصقر.zip

السلام عليكم و رحمة الله وبركاته لدي مجموعة من الtables بنفس الحقول الحقول مكونة من خمسة حقول حقل الاسبوع واربعة حقول باسماء الموظفين اود ان اربط جميع الtables بحقل الاسبوع اي عند اخراج التقرير يختار العميل الاسبوع من combobox ثم تظهر جميع البيانات الخاصة بهذا الاسبوع

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

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الفاضل "محمد علي الطيّب" عمل رائع و مميّز كنتُ قد وعدته .. وكان و الله بالبال ..و من الواجب الوفاء بالوعد .. و وفّرت عليَّ ذلك جزاك الله خيرًا و زادها بموازين حسناتك فائق إحتراماتي

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

جزاك الله خيرا يا ابو البراء جميله يامحى بالتوفيق ارتحت ياعربى جالك ابو البراء اهو يامعلم ههههههههههههه بالتوفيق

السلام عليكم فعلاً فكرة ممتازة ومفيدة جزاك الله كل خير وجعلها في ميزان حسناتك آمين اللهم آمين

تفضل Private Sub أمر13_Click() Me.b1 = DSum("[wared]", "malyah", "[sdate] between #" & Me.sdate & "# and #" & Me.fdate & "#") Me.b2 = DSum("[tamoel]", "malyah", "[sdate1] between #" & Me.sdate & "# and #" & Me.fdate & "#") Me.b3 = DSum("[masrof]", "malyah", "[sdate2] between #" & Me.sdate & "# and #" & Me.fdate & "#") End Sub جعفر

ماشاء الله فكرة المعادلة عبقرية واليك استاذى معادله اخرى زيادة فى الخير {=SUM(--(IFERROR(WEEKDAY(IF((ROW(1:50000)>=$B$3)*(ROW(1:50000)<=$B$4);ROW(1:50000);"");16);"")=ROW($A1)))} sum_of_weekdays.rar

السلام عليكم الاخ والاستاذ / احمد الفلاحجى جزاك الله خيراً على هذا المرور الطيب بعباراته الرائعه اليك باسورد محرر الاكواد : 802008 تقبل خالص تقديرى لشخصكم المحترم

هل هناك مشروع أتابع العمل في تكوينه خطوة بخطوة به دوال وأكواد ومجاميع

جزاك الله كل خير يا ابو البراء فكره حلوه وهتنفع والعربى زودهالك ارتباط تشعبى طب يالا ياعربى شد حيلك ههههههههههههه حبايبى والله جزاكم الله كل خير

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

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

أخي الكريم لؤي جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Row > 7 And Target.Column >= 1 And Target.Column < 11 And Target.Column <> 6 Then Cells(Target.Row, 6).Interior.ColorIndex = 3 End If If Target.Row > 7 And Target.Column = 6 Then Target.Interior.ColorIndex = xlNone End If End Sub تقبل تحياتي

تسلملي يا غالي .. بارك الله فيك و لك .. و زادك من علمه و فضله إحتراماتي و إعجاباتي

بارك الله فيك أخي الحبيب ياسر العربي .. محتاجين شرح مبسط للتعامل مع البرنامج وإزاي نصدر اللي اتحفظ فيها ونسترجعه تاني .. حاولت أشتغل عليه شوية وجربت أضع Category جديد باسم VBA ووضعت كود .. وقلت أجرب أصدر ..ففشلت في الاستيراد (جربت مرة أصدره كمكتبة ومرة كمجلد ...) وفشل في كلتا الحالتين ..ممك لأن البرنامج تجريبي !!

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

السلام عليكم ملفك يعمل قمت فقط بالغاء واعادة كتابة الفقرة التاليه من الكود rs.Update وبدون اي تغيير بالتوفيق

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

السّلام عليكم و رحمة الله و بركاته أخي الكريم عمرو محمّد .. إنشغل بأمور أخرى و انسَ هذا الموضوع إن تكرّم أحد الأساتذة الأفاضل من تقديم يد المساعدة .. فذاك ما نتمناه و نكون له انا و أنت من الشاكرين و إن لم يكم ذلك كذلك .. أعدك أنّي بإذن الله سأرتب لك كل الأمور .. لكن ربما غدا أو بعد غد الله وحده يعلم ما لديَّ من ضيق للوقت فائق إحتراماتي

السّلام عليكم و رحمة الله و بركاته أخي الكريم .. يا يمين يا شمال .. إبتعد لو سمحت عن عبارة " وإن لم يكن ......." وحدّد ماذا تريد بالضبط ..هدفًا محدّدًا تريده .. ليتمكّن الأساتذة الأكارم من تقديم المساعدة من يمكنه ذلك فائق إحتراماتي

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

السلام عليكم ورحمة الله إحدى الإجابات للفزورة... انظر الملف المرفق... بن علية تسلسل خاص.rar

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

خلي كلامنا في الاستعلام: المشكلة تحدث عندما نريد ان نعمل عملية معينة على حقل Null ، فجرب التالي: nz([fName],"") اما بالنسبة للتاريخ ، فيجب ان نتأكد من وجود التاريخين ، فاذا لم يوجدا ، فنقول للاستعلام ، استعمل التاريخ الاصل (اي الذي نبحث فيه): iif(len([Date_From] & "")=0 or len([Date_To] & "")=0,[myDate], Between Date_From and Date_To) جعفر

السلام عليكم ورحمة الله وبركاته اقدم لكم هذا البرنامج البسيط لعل وعسى ان ينال رضاكم ... هذا البرنامج لادارة شؤون الموظفين بالمدارس يوجد به تسجيل بيانت الموظفين والدورات والاجازات والعديد من التقارير. وهو عمل بسيط ارجوا ان ينال اعجابكم وارجوا منك اطلاعى على المشكلات والخطاء والافكار الممكن اضافتها الى البرنامج https://drive.google.com/open?id=0BxKxrloSKc-TNllfYmtmVXFEZ0k

الاخ على شكرا

ادخل على الرابط التالى وتابع التسلسل http://magdiyonis.blogspot.com.eg/2016/02/blog-post_25.html

الاخ العزيز اولا نتمنى تعديل الاسم الى اللغة العربية حسب قواعد المنتدى ثانيا حفظ الملف بطريفة الحزمة من ملف - خفظ وارسال - نسخ العرض على قرص مضغوط - قرص مضغوط احفظ بملف غلى سطح المكتب متلا ارسال الملف فولدر كامل الى اصدفاءك

هههههههه والله ياجدع ظنيت فيك الظن دا بردوووووا بس قلت نحسن الظن المهم عجبك شكل المكتبة نفصلك زيها لو كدا انا اللي هجيبلك المكتبة دي وكله بحسابه وانا اللي همسك صندوق التبرعات وهسميه ( تحيا مصر)

تفضل اخي ان شاء الله يكون حسب المطلوب tkweed.rar

For i = 3 To 33 Sheets("جمع تراكمى").Cells(i, 2) = Sheets("الحسابات").Cells(i, 2) + Sheets("جمع تراكمى").Cells(i, 2) Sheets("الحسابات").Cells(i, 2) = "" Next الرقم 2 في الكود يمثل العمود المراد الجمع له يمكنك تغييره تقبل تحياتي حسابات.rar

إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. Sub YasserKhalil() Dim Accts As Variant, Data As Variant, Results() As Double Dim D1 As Date, D2 As Date Dim I As Long, J As Long With Sheets("Data") Data = .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value End With With Sheets("Balance") Accts = .Range("B8", .Cells(Rows.Count, "B").End(xlUp)).Value ReDim Results(1 To UBound(Accts, 1), 1 To 2) D1 = .Range("B3").Value D2 = .Range("B4").Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(Accts, 1) .Item(Accts(I, 1)) = I Next I For I = 1 To UBound(Data, 1) If .Exists(Data(I, 2)) Then If Data(I, 1) >= D1 And Data(I, 1) <= D2 Then J = .Item(Data(I, 2)) If Data(I, 8) <> "" Then Results(J, 1) = Results(J, 1) + Data(I, 8) If Data(I, 9) <> "" Then Results(J, 2) = Results(J, 2) + Data(I, 9) End If End If Next I End With .Range("E8:F8").Resize(UBound(Results, 1)).Value = Results End With End Sub ميزان المراجعة بالكود.rar

لدالة البحث VLOOKUP إمكانيات مذهلة لا يعلمها الكثير بالتاكيد تم استعراض الكثير من هذه الامكانيات على منتدى اوفيسنا إن لم يكن كلها ولكن كانت فى الاغلب رداً على اسئلة زملاء فلم ينتبة اليها الكثير لهذا سنستعرض معاً إمكانيات هذه الدالة على شكل - امثلة مع الشرح فكرة 1 / فكرة 2 / فكرة 3 / وبما اننا استخدمنا الدالة MATCH فلنتذكرها معاً فى المرفق ستجدوا التطبيقات وستتوالى باقى امكانيات هذه الدالة تباعاً ان شاء الله VLOOKUP _ 1.rar

السلام عليكم في أحد المواقع وجدت مشاركة منقولة عن موقع Microsoft وقد أذهلتني المعلومات والطرق والحيل الموجودة في هذا الملف أرجو أن لا نفتقد مشاركاتكم بعد تنزيل هذه الأمثلة شاهدوا المرفقات

اخي فؤاد يبدو انك لم تشاهد اخر تعديل قمت بوضعه في اخر مشاركة لي في هذا الموضوع ولكن عموماً افتح المثال وقم بفتح استعلام جديد في وضع التصميم SQL ثم قم بلصق جملة SQL التالية SELECT tblNames.FullName, StName([FullName]) & " " & FatherName([FullName]) & " " & StGrndName([FullName]) & " " & NdGrndName([FullName]) AS FatherFullName1, LastName([FullName]) AS TheLastName FROM tblNames; وشاهد النتيجة تحياتي,,,

بعد اذن الاخ nart lebzo تفضل اخي مثالك بعد التعديل تحياتي,,, base.rar