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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام ... ارتأيت أن موضوع المصفوفات بات من الأهمية بمكان بحيث لا يجب أن ننساه لما له من أهمية كبيرة في التعامل مع الأكواد بسرعة كبيرة جداً وخصوصاً في حالة التعامل مع كم هائل من البيانات .. فقررت أن أشارككم بما تقع عليه يدي من أكواد فيما يخص المصفوفات لنتعلم ونرتقي سوياً .. سأتناول كود بسيط بالتفصيل لنعرف ما هية المصفوفات وكيفية التعامل معها بشكل جيد الكود عبارة عن عمل حلقة تكرارية لعناصر المصفوفة من أول عنصر لآخر عنصر .. وإظهار العناصر في رسالة أو وضعها في نطاق أو التعامل معها كما تريد نبدأ بالكود بالكامل ثم نتناوله بالتفصيل 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

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

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

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

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

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

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

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

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

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

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

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

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

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

الاخ على شكرا

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

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

إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. 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 وقد أذهلتني المعلومات والطرق والحيل الموجودة في هذا الملف أرجو أن لا نفتقد مشاركاتكم بعد تنزيل هذه الأمثلة شاهدوا المرفقات