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

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

السلام عليكم ورحمة الله استخدم هذا الكود Sub DelCaps() Dim Wrd As String, Arr As Variant Dim i As Long, j As Long Wrd = Range("C2").Value Arr = Array("ر", "ا", "ل", "ط", "ح", _ "ن", "ق", "م", "س", "ك", "ه", "ي", "ع") For i = 1 To Len(Wrd) x = Mid(Wrd, i, 1) For j = LBound(Arr) To UBound(Arr) y = Arr(j) If x = y Then m = m & " " & x Range("C2") = m End If Next Next End Sub

@محمد احمد لطفى عملتهالك دلوقتى عشان مش ضامن وقتى بكرة 🙂 مرفق ملفك الاكسيس مع بعض التعديلات : تم الاستغناء عن التنسيق المعين للتاريخ mm/dd/yyyy واستبدال الطريقة بحيث تعتمد الاداة على تنسيق التاريخ للجهاز نفسه وبالتالى اذا اردت تغيير التاريخ اكتبه بنفس الصيغة الخاصة بالجهاز المستخدم وكذلك الوقت وتم الابقاء على دالة استبدال "ص" و "م" الى "AM" و "PM" تجنباً للاخطاء ولكن اعتقد اذا تخلصنا منها ايضا لن تسبب مشاكل طالما انك تستخدم صيغة الوقت والتاريخ الخاصة بالجهاز . ومرفق الاداة المستخدمة ولن تطلب صلاحيات المدير للجهاز وتمت التجربة وتعمل بنجاح بحمد الله . جرب ووافنى بالنتيجة . Amr Ashraf Date-Time Changer.zip

تقصد فرز للسجلات ذات تواريخ السنة الحالية تفضل ........................ New Microsoft Access Database (2).rar

السلام عليكم اخوانى وأحبابى كل سنه وحضراتكم طيبين بمناسبة السنه الجديدة نسأل الله عزوجل أن تكون سنة خير وسعاد ة علينا وعليكم وعلى مصر والعالم العربى والاسلامى و كل سنه وحضراتكم طيبين بمناسبة المولد النبوى الشريف الدنيا كلها مناسبات حلوه وأنا معاى هديتين هديتى بمناسبة السنه الجديدة طريقة مبتكرة للتراجع عن تنفيذ الماكرو . لنفرض أن حضرتك بتشتغل على الاكسل و ايدك خبطت فى زر حذف بيانات بالورقة مثلا بتتصرف ازاى فى هذه الحالة ؟ قدامك 3 طرق : الأولى ما تعرفش تتصرف وتقعد تبكى على البيانات الثانية تقفل الاكسل بدون ما تحفظ وتعيد فتح الملف من جديد الثالثة تستخدم الكود التالى ( فكرته نابعة من الطريقة الثانية بس بنريحك من قفل الملف وإعادة فتحه ) وهذا هو شرح الأكواد المستخدمة : الكود التالى لحذف بيانات Sub DELEDTE() ' تحديد مدى معين Range("a1 :c10").Select ' حذف البيانات Selection.ClearContents ' الوقوف على الخلية a1 Range("a1 ").Select End Sub الكود التالى لتشغيل الكود الذى يليه بعد مدة زمنية ومنع حفظ التغييرات الأخيرة فى الملف Sub CloseMe() ' هنا نحدد المدة الزمنية التى يعمل بعدها الكود "OpenMe" Application.OnTime Now + TimeValue("00:00:10"), "OpenMe" ' هنا نحدد منع حفظ التغييرات ومنع غلق الملف نهائيا Savechanges = False ThisWorkbook.Close False End Sub الكود التالى للتأكيد على عودة البيانات Sub OpenMe() ' رسالة تأكيد عودة البيانات MsgBox " البيانات رجعت ! خلى بالك يا أفندينا مش كل مرة تسلم الجرة " End Sub احنا بكده نكون اتعلمنا جاجتين : الأولى التراجع عن ماكرو الثانية : ودى مهمة خالص وكتير مننا مش واخد باله منها وهى ( كيفية تشغيل ماكرو عن طريق ماكرو آخر ) أتمنى أن يكون الموضوع أعجبكم ودعواتكم للمرحوم أبى ( دعوه بظهر الغيب تكون فى ميزان حسناتك ) هذه هى هديتى الأولى بمناسبة السنة الجديدة انتظروا هديتى الثانية الليلة بمناسبة المولد النبوى الشريف ( كود X قاعة المحكمة ) وهذا المرفق تطبيق على الموضوع والسلام عليكم انتظرونى قبل منتصف الليلة undo macro by mokhtar.rar

السلام عليكم أخوتي الكرام أخي الكريم في الخلية D7 بإمكانك وضع هذه المعادلة: =SUMIFS(الجدول6251[دائن Credit];الجدول6251[التاريخ Date];"<"&$B$4)-SUMIFS(الجدول6251[مدين Debit];الجدول6251[التاريخ Date];"<"&$B$4) أرجو أن تكون هي الحل لسؤلك والسلام عليكم.

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

تفضل :::::::: New Microsoft Access Database (2).rar

جزاكم الله خير الجزاء و وفقكم . شكرا .

أخي الكريم لعلك لاحظت الاستغناء عن زر Filter .

نعم استاذ المشرفي الكود يعمل بشكل جيد

هل تمت تجربة التعديل الأخير بارك الله بكم إخوتي جميعاً.

يمكنك الاختيار من القائمة المنسدلة ثم الضغط في أية خلية أخرى للحصول على النتيجة كما تم الترقيم الآلي للعناصر التي تمت تصفيتها باستخدام =IF(H10="";"";SUBTOTAL(3;$H$10:H10)) واسحب نزولاً بالتوفيق فلتر.xlsm

جرب المرفق التسلسل في العمود 1 فلتر.xlsm

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

جرب المرفق فلتر.xlsm

يفترض أن تخبرنا بالرسالة أعتقد أن المشكلة أنك تستخدم 64 بت. أنا عدلت على المثال ليعمل على 32 و 64 بت. علما المثال ليس لي. وسؤال لك لو سمحت هل تستخدم هجري النظام أم تقويم أم القرى؟ Cal_20211231.rar

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

مشكور استاذي المشرفي تم الحل كل الاحترام والتقدير

اهلا اخي الكريم لم انتبه للطلب قمت بعمل حقلين واحد لادخال التاريخ الميلادي والاخر لكتابة التاريخ الهجري تحويل التاريخ هجري ميلادي.rar

أهلا @طاهر الوليدي هذه هي الطريقة المطلوب اظهار قرب حقل ميلادي تقويم ميلاد وقرب حقل الهجري تقويم هجري .mdb

رابط الملف بدون ضغط https://www.4shared.com/s/fiDJvXuToiq

السبب تغيير اسماء الحقول في الاستعلام جرب الان https://mrkzgulfup.com/download789169.html

السلام عليكم أخي الكريم لحساب مدة الخدمة في حال وجود إجازة أو لا نستخدم المعادلة التالية: =IF(F8="";F9-F7;F9-F8) لحساب المدة تساوي أو أقل من 5 سنوات: =IF(F10>1825;1825;F10) تقسم ناتجه على 21 لحساب المدة أكبر من 5 سنوات: نحسب إجمالي المدة مطروحاً منه ال 5 سنوات ثم نضرب المدة أقل أو تساوي 5 سنوات ب 21 والأكبر ب28 والله أعلم لكن الملف بحاجة توضيح أكبر للخطوات المراد الوصول إليها والسلام عليكم. Book1.xlsx

الأعضاء هيقولوا علينا سبنا الإكسيل ، وبنكتب أشعار .. ومش بعيد يدعوا علينا ندخل النار .. عشان ساينين طلباتهم ونازلين يا هزار .. تقبل ودي وأشعاري أخي الحبيب مختار ..

لا خير يرجى منهم و الدليل التعامل في المنتديات العربية لاخوتهم العرب بالمحابات و التمييز اخلاقيات بالية تنم عن التصحر العقلي لهؤلاء مادامت تساؤلاتي لا تلقى اهتماما في ه\ا المنتدى افضل الرحيل للمنتديات الغربية حيث الوعي و النضج و التفتح و ارادة تقديم المعلومة ارجوا الغاء عضويتي