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

الأمر ليس بالصعب طالما انك تريد هذا تفضل الملف بدون كلمة فقط تفقيط الدرجات.xls

وعليكم السلام عليك اخى الكريم رفع الملف فعموما هذا كود اخر لإثراء الموضوع بعد اذن الأستاذ ابو عيد . تفقيط الدرجات.xls

يثبت عدم عجز الاكسس كما يتخيل البعض اعجبنى جدا جدا جدا احببت مشاركتكم اياه https://github.com/krishKM/Modern-UI-Components-for-VBA

المعادلات تعمل بشكل دقيق ولكن عليك وضع علامة الصح كما بالصورة

وعليكم السلام تفضل 2.xlsm

الحمد لله توصلت للحل وها هو منشور للفائدة

وعليكم السلام -تفضل حساب التاريخ تلقائى.xlsx

لضمان هذه الإشكالية من الوقوع؛ أن نقوم بإعادة الجداول إلى الوضع المعتاد قبل ضغط البيانات وإصلاحها..

تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

وعليكم السلام كان عليك رفع ملف من البداية لعمل اللازم عليه تفضل كود تثبيت التاريخ تلقائيا.xlsm

وعليكم السلام هذا من صميم عملي كمعلم اكتب في الخلايا الصفراء ولاحظ النتيجة تفضل الدرجات والترتيب.xlsx

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

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

انا قصدت عدم ارفاق المثال هنا حتى اجبر الباحث على تصفح الموقع لاهمية الشرح والتفصيل غير ان المرفق لن يعمل بدون المكتبات المبرمجة بجوار القاعدة الاصلية

الف مبروك استاذ كاسر على الترقية لدرجة خبير

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

طبعا فى المقام الاول والاخير انا لا اعارض رأى اساتذتى العظماء ولكن انا انقل تجربتى الشخصية فقط

مبروك استاذنا عن حق وعن جداره اعانة الله علينا

فعلا أستاذ جعفر.. مبارك عليك أستاذ كاسر شارة الخبراء.. أتمنى أن يكون لى معك مشاركات فى المستقبل

مبروك أستاذنا @kaser906 مع خالص الأمنيات لك بالتوفيق والنجاح

الف مبروك استاذ@kaser906 والى الامام دائما بان الله

وعليكم السلام 🙂 انقر على الكائن بالفأرة اليمين ، ثم اختار تحويل الى جعفر

الف مبروك استاذ @kaser906

بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx

جزاكم الله خيراً إخوتي الكرام على مروركم العطر .. تقبلوا تحياتي العطرة والسلام عليكم.

تفضل SEER.xlsx

من فضلك ضع النتائج المطلوبة على الملف

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

احسنت استاذ بن علية كود ممتاز وبعد اذن حضرتك وزيادة فى اثراء الموضوع -هذا كود اخر للحل Option Explicit Sub Inqwayry7() Dim Q1, Q2, q3, FR, TR Dim S_sh As Worksheet: Set S_sh = Sheets("ÇáíæãíÉ") Dim T_sh As Worksheet: Set T_sh = Sheets("ßÔÝ ÇáÍÓÇÈ") Range("A7:j1000").ClearContents Q1 = Range("b2") Q2 = Range("b3") q3 = Range("D2") TR = 7 If Range("b2").Value > Range("b3").Value Then MsgBox "åäÇß ÎØà Ýí ÊÑÊíÈ ÇáÊÇÑíÎ", vbExclamation, "ÎØÃ" Exit Sub End If With S_sh For FR = 7 To 3333 If .Cells(FR, 1) >= Q1 And .Cells(FR, 1) <= Q2 And .Cells(FR, 2) = q3 Then Cells(TR, 1) = .Cells(FR, 1) Cells(TR, 2) = .Cells(FR, 2) Cells(TR, 3) = .Cells(FR, 3) Cells(TR, 4) = .Cells(FR, 4) Cells(TR, 5) = .Cells(FR, 5) Cells(TR, 6) = .Cells(FR, 6) Cells(TR, 7) = .Cells(FR, 7) Cells(TR, 8) = .Cells(FR, 8) Cells(TR, 9) = .Cells(FR, 9) Cells(TR, 10) = .Cells(FR, 10) TR = TR + 1 End If Next FR End With End Sub ولكن بالتأكيد كود حضرتك الأفضل فهو كود صغير وبسيط وادى الغرض بكل كفاءة كشف حساب بين تاريخين.xlsm

PM السلام عليكم ورحمه الله وبركاته كتير من الاحيان بنبعت رسائل وبنكون بنستنى الرد على احر من الجمررر وما بنعرف الي وصلتوا الرساله نايم والا صاحي ؟؟ شافها والا ما شافها ؟؟ بدو يرد علينا والا لا ؟؟ هالطريقه علشان اول ما يفتح مسلتم الرساله رسالتك توصلك رساله انو تم تسليم الرساله وفتحها من الجهه المرسله اليه طبعا مستلم الرساله بس يفتحها بيطلع لو خيار .... عادي يوصلك خبر هوه فتح الرساله والا لا في حال وافق بيوصلك الاشعااار .... طبعا الشرح على Microsoft Outlook 2007 نبدى الصوور والشرح في حال كان بدنا الامر يتم على جميـــــع الرسائل الي رح نبعتها بنروح على أدوات بتفتح لنا قائمه منسدله بنختار منها خيارات وبتفتح لنا الصوره التاليه الي بنختار منها خيارات البريد بعدها بنختار خيارات التعقب وبنحدد خيار ايصال بالقراءه طبعا متل مو ملاحظين في خيار تاني اسمو ايصال بالتسليم << هاد الخيار ببعتلك رساله تقولك انو الرساله استقبلها "وصلت" على ايميل المرسل اليه فقط لا غير طبعا هون بنكون خلصنا الشرح علشان يتطبق الامر على كل الايميل الي رح تبعتوها من الايميل في حال كنتوا بدكم تطبقوا الخيار على رساله وحده فقط بنضغط على جديد لارسال رساله وبنختار خيارات متل مو موضح بالصوره وبعدين بطلع لنا الخيار وبنحددوا متل مو موضح بالصوره

تفضل الملف مرة أخرى Office Soft.Employ & Salary-Source.rar

وعليكم السلام-تفضل تنسيق شرطى.xlsx

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

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

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

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

بارك الله فيكم جميعا كلها حلول ممتازة جزاكم الله كل خير وكل عام وانتم بخير

بارك الله فيك اخى الكريم والحمد لله الذى بنعمته تتم الصالحات

الف الف مبروك وتستاهل كل خير اللهم ربي يحفظك ويمن عليك بالصحة والعافية يارب

مبارك أبا جودي تستحق كل الاحترام والتقدير فطيبة قلبك ظاهرة في مشاركاتك بالتوفيق

ابا جودى @ نبارك لكم الترقية ومنها للأعلى إن شاء الله

السلام عليكم الف مبروك -----ابا جودي بالتوفيق

وعليكم السلام تفضل Att Apr 2019.xlsx

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

ماشاء الله تبارك الله .... تستاهل ابا جودي ... نفع الله بك وبعلمك .... يا شمعة المنتدى ....

الف مبروووووووك استاذنا الجميل والى الامام دائما ان شاء الله

بارك الله فيك

السلام عليكم ... اود اشكر الجميع في البدء ... بالنسبة لمشكلتي التي ذكرتها في موضوعي هذا اود اعلامكم باني وجدت الحل ... وساكتب الحل لغرض الفائدة للجميع ، الحل هو كتابة الكود التالي عند الضغط على زر تعديل في نموذج (Main3) : Private Sub edi_Click() Dim Ahd As Variant Ahd = "[ID]=" & [ID] DoCmd.OpenForm "Pe", , , Ahd Forms!Pe!Pls.Form.Filter = "[IDD] = " & Me.IDD Forms!Pe!Pls.Form.FilterOn = True End Sub الملف مرفق بعد التعديل للفائدة تحياتي للجميع ... السيارات.accdb