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

وعليكم السلام اخي sayed sergo قوانين المنتدى لا تسمح بهكذا موضوع 🙂 يُقفل الموضوع. جعفر

السلام عليكم ورحمة الله وبركاته اليوم تحديث جديد لهذا الموضوع الخاص بمستعرض الصور فقط والان المستعرض اصبح لكل الملفات الموجودة فى المجلد الذى تريده التحديث يشمل 1 - لا يقتصر العرض على الصور فقط بل على كل الملفات 2- امكانية استعراض الصور بشكل مكبر داخل البرنامج ( المستعرض ) 3- امكانية نسخ الملفات الى اى مكان داخل الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام ) 4 - امكانية نقل الملفات الى اى مكان فى الويندوز ( دون الاماكن التى تحتاج الى صلاحيات مثل مجلدات النظام ) 5 - جلب خصائل كل ملف من تاريخ انشاء وتعديل حجم الملف 6 - امكانية اعادة التسمية لاى ملف فى المجلد عن طريق البرنامج 7 - اضافة بروجرس بار فقط اثناء تحميل الملفات من المجلد لاستعراضها 8 - امكانية حذف الملف المختار عن طريق البرنامج 9 - امكانية البحث بالاسم والنوع داخل المجلد والان مع الصور والشرح -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- والان فيديو مبسط لطريقة عمله اتمنى ان يعجبكم اصدقائى وتستفيدون منه ان شاء الله فقط انا فى انتظار ارائكم وملاحظتكم وتحديثاتكم مين عارف يمكن نستخدمه بدل explore.exe 🤣🤣 Gallary.rar

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

سؤل ذكي من شخص اذكي

خل آحر 55_55.xlsx

السلام عليكم اخي عبد اللطيف 🙂 شكرا لك على مجهودك 🙂 ملاحظة حول هذا الموضوع ، فالمطلوب اختيار اللغة العربية ، بغض النظر عن الدولة ، لأن اللغة العربية هي المطلوبة لعمل Unicode في الرقم 2 من صورتك الثانية 🙂 جعفر

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

السلام عليكم 🙂 رجاء مراعاة كتابة عنوان صحيح للموضوع ، في المرة القادمة 🙂 قواعد المشاركة فى الموقع 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

جرب هذا الماكرو Option Explicit Sub Calc_Moyen() Dim col%, rw%, m%, k% Dim Total_sum# Dim sBlank#, tBlank% Dim sYellow#, tYellow% rw = Range("B4", Range("b3").End(4)).Rows.Count + 3 col = Range("A4", Range("B4").End(2)).Columns.Count For m = 4 To rw For k = 2 To col - 4 Total_sum = Total_sum + Cells(m, k) If Cells(m, k).Interior.ColorIndex <> 6 Then sBlank = sBlank + Cells(m, k) tBlank = tBlank + 1 Else sYellow = sYellow + Cells(m, k) tYellow = tYellow + 1 End If Next With Cells(m, col) .Offset(, -3) = Total_sum .Offset(, -2) = Total_sum / (tYellow + tBlank) .Offset(, -1) = sBlank .Value = IIf(tYellow <> 0, sBlank / tBlank, 0) End With sBlank = 0: tBlank = 0 sYellow = 0: tYellow = 0 Next Cells(4, col).Select End Sub الملف مرفق sum_Aver.xlsm

جزاكم الله كل خير

شكرا لكم اخوتي الافاضل على مجهودكم الرائع هذا هو المطلوب

انت معلم واحنا منك نتعلم

عندما توضع الأكواد يدي مبدع سوف ترى العجب العجاب ما شاء الله عليك أستاذ مجدي أنا أيضا أشتغل على 2010 و هو يعمل هذه الأشياء بشكل ممتاز

السلام عليكم ورحمة الله حل أول بالدالة SUMPRODUCT في الملف المرفق... بن علية حاجي عدد الذكور والاناث حسب الفئة.rar

بالاضافة لما تقضل به الأخ محمد ..... هذه طريقة أخرى =IIf(IsNull([a]);"0";[a])

وعليكم السلام ورحمة الله وبركاته اجعل قيمة الحقل كالتالي =Nz([a];0) بالنسبة لزر الامر ضع هذا الكود في حدث عند النقر Me.a = Null a.accdb تحياتي

الحمد لله بارك الله فيك استاذى ومعلمى الفاضل هذا هوا المطلوب بالفعل سوف ارجعه واحاول التعلم والرد عليك جعله الله فى ميزان حسناتكم

إلى حد علمي أن الفورم يصلح لأي قاعدة بيانات وليس محدد بعدد من الأعمدة فبالتالي أستاذنا الفاضل والعالم الجليل الأستاذ / عبدالله جعل التكست بوكس تُضاف تلقائيًا بعدد الأعمدة المراد العمل عليها في قاعدة البيانات ومن ابتكاراته أيضًا أن يأخذ اسم الليبل من صف العناوين وإذا كان عدد الأعمدة كثيرة تلاحظ وجود سهم لأسفل لمشاهدة باقي الليبل والتكست بوكس فبالتالي لا يمكن التحكم في حجم التكست بوكس والليلبل

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

طريقة ثانية : البحث في النموذج الفرعي نفرض أن لدينا مكتبة في جدول باسم Book تحوي اسم الكتاب والمؤلف والناشر وتاريخ النشر ونرغب في عمل مربع بحث مشترك بحيث عند الكتابة فيه يبحث في أي خانة مباشرة سواء كان اسم الكتاب أو المؤلف أو الناشر ... فالعمل على النحو التالي : 1) ننشئ جدولا باسم Book ونضمنه الحقول المطلوبة من اسم الكتاب والمؤلف والناشر ... إلخ. 2)ننشئ نموذجا مرتبطًا بالجدول (نماذج مستمرة) ونسميه FoBook. 3) ننشئ نموذجا آخر من جديد ثم طريقة عرض التصميم . 4) في رأس النموذج نضع مربعي نص الأول نسميه Text1 والآخر text2 5) في مربع النص text1 من الخصائص حدث عند التغيير نضع الكود التالي Dim x x = Text1.Text text2 = x Me.FoBook.Requery حيث text1 اسم مربع النص الأول و text2 اسم مربع النص الثاني وFobook هو اسم النموذج الذي تم عمله كما في الفقرة 2. 6) من خصائص مربع النص text2 تنسيق مرئي (لا). 7) في خانة التفصيل من هذا النموذج ندرج نموذج فرعي ونختار استخدام نموذج موجود ثم نختار نموذج FoBook. 8) نغلق النموذج ونقوم بحفظه باسم FoormBook 9) نعود للنموذج FoBook (الذي تم عمله في الفقرة 2) ومن خصائص النموذج بيانات مصدر السجل ثم نضغط على النقاط الثلاث ثم يطلب هل تريد عمل استعلام ثم موافق يفتح لك استعلام أدرج فيه حقول الجدول كافة. 10) وفي هذا الاستعلام ضع الكود التالي تحت كل حقل تريد البحث فيه في خانة معيار مع ملاحظة تدرجة في كل مرة في أو كما في المثال ثم اغلق واحفظ عملك Like "*" & [Forms]![Foormbook]![Text2] & "*" 11) ارجع إلى النموذج FoormBook واكتب في مربع النص الظاهر أمامك وتجد آليه البحث قد عملت.. أ والله الموفق طريقة البحث في النموذج الفرعي.rar