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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام ... ارتأيت أن موضوع المصفوفات بات من الأهمية بمكان بحيث لا يجب أن ننساه لما له من أهمية كبيرة في التعامل مع الأكواد بسرعة كبيرة جداً وخصوصاً في حالة التعامل مع كم هائل من البيانات .. فقررت أن أشارككم بما تقع عليه يدي من أكواد فيما يخص المصفوفات لنتعلم ونرتقي سوياً .. سأتناول كود بسيط بالتفصيل لنعرف ما هية المصفوفات وكيفية التعامل معها بشكل جيد الكود عبارة عن عمل حلقة تكرارية لعناصر المصفوفة من أول عنصر لآخر عنصر .. وإظهار العناصر في رسالة أو وضعها في نطاق أو التعامل معها كما تريد نبدأ بالكود بالكامل ثم نتناوله بالتفصيل Sub LoopInArray() Dim myArray As Variant Dim X As Integer myArray = Array("Yasser", "Khalil", "Officena", "Forum") For X = LBound(myArray) To UBound(myArray) MsgBox (myArray(X)) Next X End Sub السطر الأول هو بداية الإجراء الفرعي ويبدأ بكلمة Sub كما تعودنا يليه اسم الإجراء الفرعي ويفضل تسميته باسم يعبر عن الهدف من الكود ...قمت بتسميته LoopInArray حيث أننا سنتعامل بالحلقات التكرارية داخل عناصر المصفوفة .. وطبعاً لكل شيء بدأته لازم تقفله ..وقفلة الـ Sub بتكون بكلمة End Sub في نهاية الكود بالطبع السطر الثاني الإعلان عن متغير myArray وهو متغير للمصفوفة التي سنتعامل معها وقمت بتسميتها باسم مناسب وليس أي اسم (أفضل دائماً أن تكون أسماء المتغيرات معبرة عن المتغير والهدف منه ونوعه ..) السطر الثالث هو إعلان عن متغير من النوع Integer ووظيفة هذا المتغير أنه بمثابة عداد ..إذ أن من يعرف الحلقات التكرارية يعرف أنه لعمل حلقة تكرارية يستلزم أن يكون هناك عداد لهذه الحلقة التكرارية .. وقيمة المتغير X ستتغير مع كل حلقة .. أقصد أنه في أول لفة ستكون قيمة المتغير تساوي رقم البداية (فإذا كان رقم البداية 1 فإن المتغير يساوي 1) وفي اللفة الثانية تزداد قيمة المتغير بمقدار 1 ليصبح على سبيل المثال 2 وفي اللفة الثالثة يساوي 3 وفي اللفة الرابعة ..كمل إنت !! انتهينا من الأسطر التقليدية (تسمية الإجراء والإعلان عن المتغيرات) ... نتوقف قليلاً لللتجربة !! ماذا سنجرب يا ترى ؟ هل هناك ما يستدعي منا أن نجربه ونحن ما زلنا في البداية ولم نكتب أسطر فعلية للكود .. نعم لابد أن نتعلم شيئاً جديداً ومفيداً عند التعامل مع الأكواد ...... تطبيق : انسخ الكود السابق في موديول جديد ثم ضع الماوس داخل الإجراء الفرعي .. ومن قائمة View في محرر الأكواد اختر الأمر Local Window إنها نافذة ستجعل منك محترفاً في فهم الأكواد (صدقوني ستذهلون منها بشكل كبير جداً) ..إنها بمثابة نافذة لك لتدرك كيف يتم تنفيذ أسطر الكود سطر سطر انتبهوا لهذه النافذة بشكل كبير ... كيف سيتم التعامل مع هذه النافذة المدهشة ؟ الأمر في غاية اليسر والسهولة والبساطة .. ستستخدم من لوحة المفاتيح F8 وهو يمكنك من متابعة الكود سطر بسطر .. كفانا كلام نظري وننتقل للتطبيق .. ضع الماوس داخل الإجراء الفرعي (الكود) ثم اضغط F8 مرة واحدة فقط .. وانظر للنافذة التي كانت فارغة منذ قليل لقد أصبحت ثرية .. نعم ثرية .. بضغطة واحدة ستتمكن الآن من تحليل المتغيرات .. لقد تم وضع سطر باللون الأصفر على أول سطر بالكود كما تم وضع المتغيرات في النافذة بهذا الشكل في الناحية اليسار من النافذة توجد أسماء المتغيرات التي تم الإعلان عنها وفي العمود الأوسط قيمة المتغير ..فقيمة المتغير الأول Empty ما زالت المصفوفة فارغة لم يتم إضافة أي عنصر لها ، وقيمة المتغير الثاني لأنها من النوع Interger فتحمل القيمة صفر لأننا لم نضع قيمة لها بعد وفي العمود الثالث نوع المتغير فالمتغير الأول من النوع Variant وهذا النوع غالباً ما نستخدمه مع المصفوفة لأن المصفوفة مرنة ربما تحمل نصوص وربما أرقام وربما حتى نطاقات (موضوع يطول شرحه) إلى الخطوة الثانية والتي هي نفس الخطوة الأولى (حد يفكرني !!) محدش مركز !! ... الخطوة التانية اضغط F8 مرة تانية .. ماذا حدث ؟ لقد تجاوز السطر الأصفر أسطر الإعلان عن المتغيرات .. نعم لأنها أسطر غير قابلة للتنفيذ إنما تظهر المعلومات المرتبطة بهذه المتغيرات مع أول ضغطة على F8 بعد السطر الأول في الكود .. انتقل السطر الأصفر ليظلل السطر التالي .. ولم يحدث أي تغيير في نافذة الـ Local Window myArray = Array("Yasser", "Khalil", "Officena", "Forum") هل التنفيذ مرتبط بالسطر الأصفر ؟ نعم يتم تنفيذ السطر الملون بالأصفر بعد الخروج من السطر الأصفر وليس عند تظليل السطر الأصفر الخطوة الثالثة .. ماذا تتوقع أن يحدث بعد أن نضغط F8 للمرة الثالثة؟؟؟ فكر ثواني عشان تفهم اللعبة .. سيتم تنفيذ السطر الأصفر السطر الحالي عبارة عن تعيين قيم أو وضع عناصر للمصفوفة .. لدينا بعض الأسماء (وبما أن الأسماء نصوص فتم وضعها بين أقواس تنصيص) وهذه الأسماء سيتم وضعها داخل المتغير الذي قررنا أنه سيكون للمصفوفة انتبه انتبه ..لم أطلب منك أن تبدأ الخطوة الثالثة بعد ..!! فقط انظر لنافذة الـ Local Window على المتغير myArray وشوف القيمة هتلاقيها Empty أي أن المصفوفة فارغة (وكما بص على يسار اسم المتغير ..هل يوجد علامة زائد بجانب اسم المتغير myArray ؟؟ الإجابة لا يوجد) ابدأ تنفيذ الخطوة الثالثة ألا وهي نفس الخطوة الأولى ونفس الخطوة الثانية ..حد يفكرني !! محدش مركز .. اضغط F8 بردو (أنا مش عايز أتعبك أنا عايز تشوف وتتعلم وبعديها خلي دماغك يتكلم) ضغطت يا وائل ولا لسه على F8 ؟؟؟ تمام تمام الله ينور عليك ايه اللي حصل يا حوسو .. لما نحب نعرف ايه اللي حصل هنبص على الكود وعلى النافذة .. نبص الأول على الكود هنلاقي إنه تم الانتقال للسطر التالي وأصبح السطر التالي مظلل باللون الأصفر .. طيب الأهم إننا نبص على النافذة Local ونشوف المتغير myArray هنلاقي حاجة غريبة بتحصل .. حاجة بسيطة لكن مهمة المصفوفة اللي كانت فارغة Empty من شوية ومفيش علامة زائد جنبها .. أصبح فيه علامة زائد على يسار اسم المتغير ولما نبص في عمود القيمة هنلاقي كلمة Empty أصبحت مش موجودة .. دا لأنها بعد الانتقال من السطر اللي فات بقت المصفوفة فيها قيم .. نبص للعمود الثالث هنلاقي بردو فيه شيء اتغير ..نوع المتغير لم يتغير زي ما هو Variant بس فيه شيء إضافي .. هتلاقي ما بين قوسين بداية المصفوفة ونهاية المصفوفة بمعنى آخر المصفوفة اللي بنتعامل معاها دلوقتي فيها 4 قيم .. ولما نبص نلاقي الأرقام من 0 إلى 3 (افتراضي المصفوفة بتبدأ من الرقم 0 وليس الرقم 1 ) الأرقام دي عبارة عن فهرس للمصفوفة (زي فهرس كتاب) يعني مثلاً أول قيمة في المصفوفة اللي هي Yasser لها الرقم 0 في الفهرس .. والقيمة Khalil ليها رقم 1 وهكذا لنهاية القيم كل عنصر داخل المصفوفة ليها رقم في الفهرس .. عايز تتأكد من كلامي تعال على نفسك شوية ونتعب ونضغط علامة الزائد اللي على يسار اسم المتغير (خلي الصورة تتكلم شوية عشان أنا تعبت) زي ما إحنا شايفين الفهرس من 0 1 2 3 وكل عنصر له رقم في الفهرس وله قيمة يعني دلوقتي لو عايز أعرف تاني قيمة في المصفوفة هعمل ايه؟ ببساطة ممكن استخدم كلمة Msgbox ثم اسم المصفوفة ثم افتح قوس ثم أضع رقم القيمة المطلوبة ثم اقفل القوس MsgBox myArray(1) واحد يقولي إنت مش بتجيب تاني عنصر في المصفوفة ..طيب ليه كتبت واحد مش 2 (أقوله لأن المصفوفة بتبدأ من الصفر وليس من الواحد ..) فالواحد بمثابة 2 (عد من البداية ::: رقم صفر هو أول عنصر في المصفوفة .. رقم 1 هو ثاني عنصر في المصفوفة وهكذا) المهم عشان أنا بدأت أتوه من نفسي ننتقل للحلقة التكرارية ودي بيكون ليها عداد زي ما قلنا والعداد هنا X فبنقول For X وبعديها علامة يساوي ... بعد يساوي بداية الحلقة التكرارية يليها كلمة To ثم نهاية الحلقة التكرارية بداية الحلقة هتكون أول رقم فهرس في المصفوفة اللي هو في مثالنا يساوي صفر ، ونهاية الحلقة التكرارية هو آخر رقم في الفهرس اللي هو 3 وبدل ما نكتب من 0 إلى 3 (استخدمنا دالة بتجيب أول رقم في المصفوفة واسمها LBound ودي اختصار لكلمة Lower Bound أي الحد السفلي أي أول رقم في الفهرس ... وأيضاً بالمثل استخدمنا دالة عشان تجيب آخر رقم في المصفوفة والدالة هي UBound ودي اختصار لكلمة Upper Bound أي آخر رقم في الفهرس) طيب العداد لازمته ايه ؟؟ قلنا بيحمل القيمة الحالية ..فأول قيمة عندي هتكون صفر بالتالي قيمة X هتساوي صفر .. إحنا دلوقتي واقفين في السطر الملون باللون الأصفر مع بداية الحلقة التكرارية لو وقفنا بالماوس على كلمة X سيظهر تليح صغير في مستطيل أصفر صغير به قيمة المتغير ( في الصورة قيمة X تساوي صفر) وهو أول رقم في الحلقة التكرارية لأن رقم البداية صفر (والمتغير X يحمل قيمة أول رقم في بداية الحلقة) المهم اضغط F8 لتنتقل للسطر التالي وعايز تروح بالماوس وتقف على الكلمة دي myArray(X) هتلاقي مربع أصفر فيه القيمة Yasser وروح للـ X وقف عليها ستجد القيمة صفر أي أن المصفوفة المسماة myArray ثم نفتح قوس ونضع رقم الفهرس المطلوب ورقم الفهرس هنا هو صفر ..يحمل القيمة Yasser اضغط F8 لتظهر لك رسالة بقيمة أول عنصر في المصفوفة .. اضغط F8 مرة أخرى لتنتقل للفة الثانية في الحلقة .. ولاحظ أن الانتقال بعد ذلك سيكون ما بين السطرين MsgBox (myArray(X)) Next X القيمة X تتغير ويتغير معها القيمة التي تظهر في الرسالة .. أكمل الضغط على F8 لترى نتائج الكود بنفسك ... وعينك دائماً على نافذة Local لترى قيمة المتغير X وهي تتغير مع كل لفة وطبعاً عند وصول قيمة X لـ 3 تنتهي الحلقة التكرارية لأن نهاية الحلقة هو الرقم 3 أتمنى أن يكون الشرح واضح ومفيد للجميع مع تحياتي أخوكم ياسر خليل أبو البراء

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

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

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

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

الامر DoCmd.RunCommand acCmdRefresh يساوي me.Refresh والذي يعمله هو انه يجدد معلومات النموذج (اي انه يحفظ معلومات السجل) بمعلومات جديدة من من مصدر النموذج ، يعني يعمل me.Requery ، ومشكلة me.Refresh هي انها تعمل لك وميض بسيط في النموذج ، ولكن المشكلة الاكبر انها تأخذك من اختيار السجل الذي انت عليه الى اول سجل في النموذج ، لذلك ، يفضل استعمال الامر: docmd.runcommand accmdsaverecord وكلما تستخدم امر عدم اعطاء اي تنبيه: DoCmd.SetWarnings False فيجب عليك استخدام امر إعادة التنبيه في نهاية الكود: DoCmd.SetWarnings True جعفر

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

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

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

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

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

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

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

بارك الله بك وجزاك كل خير

الاخ على شكرا

الاخ على اولا هذا هو الحل الوحيد لمشكلتك الاولى ثانيا مشكلتك الثانية نظرا للصورة المرفقة ومشكلة الطالبات قليلى الخبرة هى حفظ الملف ايضا فى نفس الفولدر بطريقة العرض show ثالثا لكل مشكلة حل افتح ملف البوربوينت من مكان الفولدر وقم نفذ التالى حدد كل الملفات ثم كليك يمين بالماوس واختار اخر امر properties ستظهر قائمة ضع علامة صح على hidden ثم اضغط ok ستختفى كل المطلوب عنده احفظ الملف المفتوح بطريقة العرض show واقفل الملف ستشاهد ملف العرض فقط

ادخل على الرابط التالى وتابع التسلسل 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