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

هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

جرب هذا الملف File_1.xlsx

اتفضل جرب المرفق هاد التاريخ (2).mdb

ههههههههههه انا فهمى تقيل حبتين وباتعب مع الاكواد بدون القاعدة فعلا احسن الينا بارفاق القاعدة محل التساؤل فيحسن الله اليكم

الله عليك استاذ سليم حتى كلمات الاعجاب لن تعطيك حقك جزاكم الله خير

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

ما شاء الله استاذ سليم دائما مبدع واعماك اكثر من رائعه

تم حل المشكلة ولله الحمد . المشكلة طلعت في تعديل خاصية منبثق ومشروط

بسيطة استبدل الكود الاتى If URL Like "about:id101" Then Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog Cancel = True End If If URL Like "about:id102" Then Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog Cancel = True End If If URL Like "about:id103" Then Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)), , acDialog Cancel = True End If بهذا If URL Like "about:id101" Then Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)) Cancel = True End If If URL Like "about:id102" Then Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)) Cancel = True End If If URL Like "about:id103" Then Debug.Print URL DoCmd.OpenForm "FM_2", , , "cstr(ID)=" & CStr(Mid(URL, 9)) Cancel = True End If , , acDialog هذا الجزء من الكود هو السبب وهنا احس فى هذا المرفق اننى اتعامل مع الاكسس بطريقة الاستاذ @أبو إبراهيم الغامدي الحمد لله ان سؤالك ما كان يخص شئ من الدمج بين الاكسس والويب والا ما عرفت اجاوبك بعد التعديل at.accdb

ماشاء الله عليك ربي يحفظك

اتفضل  حذف سجلات(3).accdb

اتفضل حذف سجلات(2).accdb

ماشالله عليك استاذنا الكبير سليم ، راااائع وصل المطلوب

هذه المعادلة =CEILING(A2,5) واذا لم تعمل معك استبدل الفاصلة " , "بفاصلة منقوطة ";" لتصبح هكذا =CEILING(A2;5)

بارك الله فيكم

ربنا يكرمكم جميعا ويجعل علمكم عونا وسند لمساعدة الاخرين اشكركم علي علمكم الغزير

بارك الله فيك وزادك علما وتعليما ورفعة .

أحسنت استاذ عبد اللطيف بارك الله فيك

ممكن تجرب تحفظ الملف بامتداد تانى اسمه excel binary workbook بيقلل حجم الملف تقريبا للنص

جرب هذا للنموذج من أكواد الأخت زهرة إخفاء نموذج Application.SetHiddenAttribute acForm, "اسم النموذج", True إخفاء استعلام Application.SetHiddenAttribute acQuery, "اسم الاستعلام", True التقرير Application.SetHiddenAttribute acReport, "اسم التقرير", True

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

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

1 Open the Word document that contains the header and the footer that you want to protect from changes. Do not open the header or the footer of the document. 2. Make sure that you are at the top of your Word document. To do this, press CTRL+HOME. 3. On the Page Layout ribbon, click Breaks. 4. In the Breaks menu, click Continuous under Section breaks, and then click OK. 5. A continuous section break is inserted at the top of your document. 6. On the Review ribbon, click Restrict Editing. 7. In the Restrict Editing task pane, click to select the Allow only this type of editing in the document check box, and then change the box to Filling in forms. 8. Click Select sections. 9. In the Selection Protection dialog box, click to clear the Section 2 check box, and then click OK. 10. Under Start enforcement, click Yes, Start Enforcing Protection. 11. Assign a password and OK افتح مستند Word الذي يحتوي على رأس وتذييل الصفحة التي تريد حمايتها من التغييرات. لا تفتح رأس أو تذييل للمستند. 2. تأكد من أن كنت في أعلى مستند Word. للقيام بذلك، اضغط CTRL + HOME. 3. في الشريط تخطيط الصفحة، انقر فوق فواصل. 4. في القائمة فواصل، انقر فوق مستمر تحت فواصل القسم، ثم انقر فوق موافق. يتم إدخال 5. فاصل مقطع مستمر في أعلى المستند. 6. على الشريط مراجعة، انقر فوق تقييد التحرير. 7. في تقييد جزء المهام تحرير، انقر لتحديد هذا النوع السماح فقط للتحرير في خانة الاختيار المستند، ومن ثم تغيير مربع إلى ملء الاستمارات. 8. انقر فوق تحديد المقاطع. 9. في مربع الحوار حماية التحديد، انقر لإلغاء تحديد خانة الاختيار القسم 2، ثم انقر فوق موافق. 10. وبموجب إنفاذ ابدأ ثم انقر فوق نعم، تشغيل حماية فرض. 11. تعيين كلمة المرور و موافق

وهذا حل آخر عن طريق كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, x As Integer Dim sh As Worksheet Set sh = Sheets("ورقة3") LR = sh.[F10000].End(xlUp).Row If Target.Address = [G2].Address Then [E5:G1000].ClearContents x = 5 For Each cl In sh.Range("G6:G" & LR) If cl = [G2] Then Range("F" & [F10000].End(xlUp).Row + 1) = cl.Offset(0, -1) Range("E" & [E10000].End(xlUp).Row + 1) = x - 4 x = x + 1 End If Next End If Set sh = Nothing End Sub يعمل عند اختيار المادة من القائمة المنسدلة النشاط2.rar

أخى الحبيب / عباس السماوي شكرا جزيلا أخى الحبيب على كلماتك الرقيقة ومرورك العطر

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

تفضل أخى النشاط.rar

شكرا على اهتمامك السيد ابو عبد الله الحلواني المثال قريب من ما اريده الاختلاف هو في الادات المستخدمة انا لااحب كثرة الاكواد اخي الكري قم بفتخ المثال وسترى ما اريده ( اظهار الصورة في نفس الزر الدي يخمل اسم الصنف الاصناف.mdb

الخبراء الافاضل بعد التحية ارجو المساعدة نفدت الكود ويعمل بكفاءة 3مارس 2019 اريد كتاية اسم اليوم مع التاريخ مثلا الاحد 5 ابريل 2019 خالص الشكر لكل اعضاء وخبراء وفريق الموقع على المعلومات الرائعة التى لايبخل بها احد على احد الكل يريد المساعدة شكرا لكم جميعا ممكن استاذن حضرتك تعمل مربع نص جديد لتحويل التاريخ من ميلادى الى هجرى لان امكانياتى فى الاكواد والتعامل مع الوحدات النمطية متواضع للغاية مثلا 15/5/2019 تكتب 11 رمضان 1440 لكل الف شكر مع خالص التحيات وصوما مقبولا باذن الله كيف اربط مربع النص الذى يحتوى على التاريخ بالجدول