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

بالتعاون مع موقع إدارة.كوم www.edara.com عرض خاص و حصري لأعضاء منتدى أوفيسنا العرض ساري فقط حتى 5 نوفمبر 2022 وهذه هي الوصلات المباشرة للاستفادة الحصرية من العرض : عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر

السلام عليكم تحياتي لجميع الأعضاء هل في إمكانية عمل صيانة للويندوز من خلال الأكسس بمعنى فتح المجلدات ( temp% ,temp , recent , Prefetch%) في الخلفية وحذف محتوياتها بأوامر داخل نموذج ؟ شكراً لتعاونكم

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

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

بالتوفيق أخي محمد .. 🙂

شكرا جدا جدا جدا اخي العزيز @Moosak لقد تم حل المشكله بالفعل بتطبيق التاريخ كما ذكرت لي وتم التجربه على اكثر من جهاز ونجحت عمليه التحديث. ولكن في بعض الاجهزه نسخه الاوفيس تحتاج الي تفعيل فلا يعمل معها التحديث عند الضغط على Yes يتم قفل الاوفيس نهائيا ولا تتم عمليه التحديث ولكن في الاجهزه الاخرى نسخه الاوفيس مفعله فيعمل البرنامج بشكل جيد. وفعلا عاجز عن الشكر.

بارك الله فيك

اشكرك اخى ملاحظتك كان سديدة ..تم العمل ..بارك الله فيك وعليك

Hamza_Gem.xlsm

وعليكم السلام -على الرغم من كثرة طلباتك !!! - تفضل لك ما طلبت جدول 1المباريات.xlsx

وعليكم السلام ورحمه الله وبركاته اتبع الشرح فالرابط التالى وستنحل المشكله باذن الله بالتوفيق

وعليك السلام أخي @ابوبسمله 🙂 فعلا نقطة مهمة 👌🏼 والتفاته رائعة من عين خبير 😉 .. إذا أخي mohamedstar19 عليك أن تتأكد من الإعدادات الإقليمية لجهازك قبل البدء بالتطبيق .. 🙂

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

بارك الله فيك استاذ أحمد عمل ممتاز وهدية بالطبع رائعة ومقبولة .جزاك الله خير الثواب وجعل الله هذا العمل فى ميزان حسناتك

اخي سعد لقد تمت تجربة الملف اكثر من مرة ليس به اي مشكلة 🤔

اخي الفاضل المرجوا تصحيح بعض الاخطاء في اسماء الخلايا المرحلة والتي قد تمت الاشارة اليها في الملف مع التحقق من الارقام هل هي مطابقة ام لا تفاديا لاعادة العمل على الملف مرة اخرى السيارات(1).xlsm

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

أخي الكريم سعد سعد يحيا سعد استغرق الموضوع مني أكثر من ساعتين والله .. لأن الموضوع جديد بالنسبة لي .. ألا وهو ترتيب البيانات حسب التاريخ الهجري وجدت أن التواريخ الهجرية لا يتم ترتيبها كما في التواريخ الميلادية ، فخطرت لي فكرة التحويل من الهجري إلى الميلادي ، فبحثت في مكتبتي فوجدت دالة تحول التاريخ الهجري إلى تاريخ ميلادي ثم بدأت في كتابة الكود ، وفوجئت أن الترتيب لا يعمل بالشكل الصحيح ، فاكتشفت أن التواريخ المحولة عبارة عن نصوص وليست تواريخ ، فقمت بتجزئة النص إلى أجزاء : يوم وشهر وسنة ، ثم لم شمل هذه الأجزاء واستخدام دالة CDate لتحويل النص إلى تاريخ .. ونجحت العملية بفضل الله .. :power: وكعادة الأطباء أن ينسوا المشرط في بطن الطبيب .. نسيت أن أنفذ الكود .. قم بتنفيذه على بركة الله الكود بهذا الشكل Sub SortByHijriDates() Dim LR As Long, I As Long, strDate As String LR = Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("H1").Value = "Helper" For I = 1 To LR If IsDate(Cells(I, "E")) Then strDate = Mid(ConvertDateString(Cells(I, "E")), 1, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 4, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 7, 4) Cells(I, "H") = CDate(strDate) End If Next I Range("A1:H" & LR).Sort Key1:=Range("H1:H" & LR), Order1:=xlAscending, Key2:=Range("C1:C" & LR), Order2:=xlAscending, Header:=xlYes Columns("H:H").ClearContents Application.ScreenUpdating = True End Sub Function ConvertDateString(ByRef StringIn As String) As String Dim SavedCal As Integer Dim myDate As Date Dim str As String SavedCal = Calendar Calendar = 1 myDate = CDate(StringIn) Calendar = 0 str = CStr(myDate) ConvertDateString = Format(str, "dd.mm.yyyy") Calendar = SavedCal End Function لا تنسى أن تحدد الإجابة كأفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، كما لا تنسى أن تضغط على كلمة "أعجبني هذا" الموضوع استغرق مني أكثر من ساعتين ولن يستغرق الأمر منك أكثر من ثانيتين تقبل تحياتي Sort By Hijri Dates.rar

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