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

لمغرفة عدد ايام الاسبوع (جمعة ،سبت،احد ....بين تاريحين) انظر الى المرفق 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

منذ ان نشأ بخاطرى عمل برنامج محاسبى بعد عمل دام 200 يوم من تاريخ 10-3-2014م وحتى تاريخ اليوم أقدم لكم هذا البرنامج المتواضع أهداء لكل الاساتذه والاخوة بالمنتدى هو الاصدار الاول من الجزء الاول من برنامج EMA بالادارة المالية ادعو الله ان اكون وفقت بهذا العمل ويكون نفع للجميع أود أن اشكرك كل القائمين على هذا المنتدى هذا الصرح العظيم وكل القائمين علية وأخص بالذكر العلامه القدير / استاذنا / عبدالله باقشير والاستاذ / محمد طاهر والاستاذ الفاضل / رجب جاويش والاستاذ/ عبدالله المجرب والاستاذ / طارق محمود والاستاذة / أم عبدالله والاستاذ / محمود الشريف والاستاذ / حمادة عمر والاستاذ / ضاحى الغريب والاستاذ/ ابراهيم ابوليله والاستاذ / سليم حاصبيا والاستاذ/بن علية حاجى والاستاذ/ محمود حموده وكل الاساتذه بهذا الصرح المبارك جعله الله فى ميزان حسانتكم أتمنى من الاخوة كتابة اى تعليق او ملاحظه او أخطا تم اكتشافه لا يتردد لحظة بمراسلتى سوف اقوم بعملية الشرح لكيفية العمل واستخدام البرنامج وانتظرو الجزء الثانى من البرنامج ( المخازن-والمشتريات-والمبيعات) فى نفس الملف واليكم البرنامج على امتداد XLSB الرقم السرى 123 اتمنى منكم دعوه صادقه من القلب لى ولوالدى EMA.zip

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

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

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

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

منتحرمش منك يا غالي .. يا صاحب الأفكار الجميلة والرائعة بمساهماتكم أخي الحبيب ياسر نرتقي سوياً

بارك الله فيك وجزاك الله خير اخي الفاضل ابا محمد الله يعطيك الصحة والعافيه حقيقه انا متابع لشرحك في موضوع Link Access with Sql Server 2012 ولقد استفد منه كثير وهذا المثال اول تطبيق لي لشرحك وباقي مراحل الى الان ماوصلت لها شكرا وفقك الله ورعاك

نفس المشكلة أخي الحبيب أحمد لا أدري ما سبب المشكلة ..؟

حياك الله للعلم: هناك فارق في السرعة بين الامرين التاليين (طبعا لن تلاحظ فرق السرعة على بضع مئات من السجلات): هذه الطريقة DCount("*","Table1","[Field_YN]=-1") اسرع من هذه الطريقة DCount("[Field_YN]","Table1","[Field_YN]=-1") جعفر

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

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

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

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

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

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

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

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

وعليكم السلام هذه استعلامات بحد ذاتها واذا اردناها في النموذج ، على زرين مختلفين: 1. A= DCount("*","Table1","[Field_YN]=-1") 2. mySQL= "UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]= -1" currentdb.execute(mySQL) جعفر

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

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

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

تفضل اخي ان شاء الله يكون حسب المطلوب tkweed.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