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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. مختبر ، وكيميائي ، وتفاعلي .. وفي آكسيس !!!! نعم أخي الكريم .. هل كنت تتصور أن آكسيس يمكن أن يكون مختبرك الكيميائي الرقمي التفاعلي بصورة لم تخطر على بالك !!! بفضل الله عز وجل وكرمه . تم الإنتهاء من تصميم هذا المختبر الرقمي في آكسيس . وهو قاعدة بيانات تعليمية تفاعلية تختص بكيمياء العناصر الذرية التي درسناها جميعنا .. نتعرف على مكونات و وظائف المختبر :- 1️⃣ عند فتح المشروع ستلاحظ أن جدول العناصر الدوري موجود أمامك بكامل العناصر الذرية الـ 118 . 2️⃣ قم باختيار اي عنصر بالنقر نقرة واحدة على مربعه . وستلاحظ معلومات غنية بالتعريف عن هذا العنصر . اسمه ورقمه الذري . من اكتشفه وفي أي عام . درجة الحرارة التي يغلي عندها أو ينصهر . كثافته .. توزيعه الإلكتروني ... وحتى أين يتواجد هذا العنصر ... إلخ 3️⃣ يمكنك عرض / إخفاء الجزء الذي لا ترغب بعرضه . 4️⃣ يمكنك عرض العناصر بفلترة تصل الى 10 فلاتر عرض حسب تصنيف كل عنصر . 5️⃣ عند اختيار أي عنصر ، ستلاحظ عرض رسومي متحرك تفاعلي لنواة العنصر والإلكترونات التي تدور حول نواته في مجالها الكهربائي . 6️⃣ من خلال زر "اختبار اللهب" ستلاحظ لون اللهب الناتج عن هذا العنصر عند احتراقه . على سبيل المثال جرب العنصر الثالث Li الليثيوم بالنقر على مربعه ثم انقر زر "اختبار اللهب" 7️⃣ من خلال زر "اصنع تفاعلك الكيميائي" سيتم الإتاحة لك باختيار أي عنصرين تريدهما من الجدول الدوري الذي هو أمامك ( ستلاحظ إحاطة اسم العنصر باللون الأبيض بعد اختياره ) ، ومن ثم نقلك إلى المختبر مباشرة لرؤية نتيجة تفاعل هذين العنصرين عند التقائهما معاً ؛ وهذه الطريقة الأولى . 8️⃣ الطريقة الثانية من خلال الزر "مختبر التفاعلات الكيميائي" حيث سيتم فتح باب المختبر أمامك لاختيار عناصر من قائمتين منسدلتين ، ثم النقر على الزر "ابدأ التفاعل الكيميائي ..." 9️⃣ من خلال الزر "مسابقة المختبر الكيميائي" سيتم فتح نافذة اختبار تفاعلية متعددة المستويات ( مبتدئ ، متوسط ، محترف ) ولكل من هذه المستويات طبيعة أسئلة مختلفة في كل مرة . والإختيار سيكون اختيار إجابة من 4 إجابات . طبعاً كل إجابة صحيحة بـ 10 نقاط من عدد 10 أسئلة . يعني إنت وشطارتك ومعلوماتك 😁 . 🔟 في نهاية الواجهة الرئيسية ستلاحظ ظهور مقترحات ومعلومات عن عنصر عشوائي ، أو عن التقاء عنصرين والناتج لهما ماذا سيكون . كيف تم بناء هذا المختبر ؟ تم جلب كافة المعلومات من الموقع Byjus . طبعاً بعد التدقيق في أكثر المعلومات التي استطعت الوصول لها من عدة مصادر ومراجع . تم تصميم الخلفية المستخدمة للجدول الدوري مقتبسةً من الموقع نفسه ( إقتباساً ) . الحركة الناتجة عن دوران الإلكترونات والتفاعلات الذرية في المختبر ، أو حتى اختبار اللهب ، وحتى مسابقة المختبر ؛ تم بنائها بالاعتماد على عنصر ويب تمت برمجته بلغة :- ( HTML / CSS / JS ) . ويتم إنتاج الملفات داخل المجلد %Temp% وربطها بعنصر الويب داخل النماذج تلقائياً . اضغط مفتاح Win + R في لوحة المفاتيح ، ثم اكتب %temp% وابحث عن ملفات HTML في مجلد الملفات المؤقته ، واستمتع .. كل عنصر كيميائي ( مربع ) سيمثله ( عنصر زر + مربع نص ) خاص بهذا العنصر . وتم الربط بينها داخل الأكواد من خلال الرقم الذري لكل عنصر . اكتشف اسم كل زر ومربع نص ولاحظ نهاية الاسم لكل منهما والرقم الذري للعنصر الذي سيمثلانه هذين العنصرين . أزرار التحكم ( إخفاء / إظهار ) بعض التفاصيل ؛ يمثلها صورتين إظهار واحدة وإخفاء الأخرى لأظهار الحركة On/Off . جميع العناصر في النماذج عبارة عن صورة وليست أزرار ، تم استخدام الحدث عند النقر لها لأداء وظيفتها . والحدث عند تحريك الماوس فوقها لإظهار الماوس بصورة يد . الخطأ وارد عند نقل أي معلومة من مصادر خارجية . لذا التعديل متاح لك أخي المستخدم داخل الجداول (tblCompounds و tblElements ) لأي معلومة تعتقد أنها غير صحيحة . والإستدلال عليها بسهولة من خلال اسم العنصر أو رقمه الذري . فيديو توضيحي لشكل العمل في نهايته التي ستتعامل معها :- ملف المشروع مفتوح المصدر :- Periodic Table.zip

الغيابات (1).xlsx السلام عليكم ورحمه الله وبركاته شوف الملف المرفق لعله يكون المطلوب المعادله المستخدمه 👇 =IFERROR(INDEX($A$3:$A$18, SMALL(IF(COUNTIF($F$3:$F$18, $A$3:$A$18)=0, ROW($A$3:$A$18)-ROW($A$3)+1), ROWS($B$3:B3))), "")

اخي الكريم من حيث الإمكانية فهو ممكن ولكن سيقتصر عمل الأكسس على الواجهة الأمامية فقط أما قاعدة البيانات فستكون إحدى قواعد البيانات الكبيرة مثل SQL Server أو Azure أو MySQL بالإضافة إلى أنه سيكون مطلوب منك موقع لإستضافة قاعدة البيانات وإنترنت مستقر لكن السؤال لماذا تريد لإستخدام أكسس للعمل عبر النت مع وجود لغات برمجة متخصصة للويب؟ فكما جاء في الحديث النبوي {"كل ميسر لما خلق له" صدق رسول الله} والأكسس هو منصة لإنشاء تطبيقات قواعد بيانات بسيطة لبيئة أعمال صغيرة إلى متوسطة الحجم ضمن شبكة محلية أما الربط عبر النت فحتى ولو كان سيعمل فلن يعمل بنفس كفاءة التطبيقات المصممة بلغة متخصصة في تطبيقات الويب مثل جافا سكريبت و HTML مثلاً

اعرض الملف أداة إنشاء المخططات المخصصة بإستخدام عنصر تحكم المتصفح {سلسلة الأدوات المساعدة المخصصة} في آخر موضوع ضمن هذه السلسة كنت قد قدمت أداة إنشاء المخططات البيانية المخصصة والتي كانت تعتمد على رسم المخطط البياني داخل مربع التسمية ورغم أن تلك الأداة كانت تقوم بإنجاز العمل إلا أنها كانت تحتوي على نقاط ضعف تم ذكرها ضمن الشروحات المرفقة بها يمكن إعتبار هذه الأداة على أنها الجيل التالي من أدوات إنشاء المخططات البيانية المخصصة وذلك عن طريق إستخدام عنصر تحكم المتصفح وفيها سيتم معالجة أوجه القصور التي كانت تعاني منها الأداة السابقة ولكن لا نستطيع أن نقول أنه يمكن أن تحل محلها فرغم محدودية إمكانيات الأداة السابقة إلا أنه تقوم بشيء تعجز عنه هذه الأداة وهذا الشيء هو إمكانية العمل مع تقارير أكسس لأن التقارير لا تتعامل مع عنصر تحكم المتصفح ولكن هذه الأداة ستكون رائعة لتعمل كعروض تقديمية لا أريد أن أطيل عليكم فكل ما تريدون معرفته ستجدونه ضمن المرفقات حيث تحتوي على مستند وورد يشرح كل شيء وكل ما اريده منكم هو قراءة المستند وإستخدام النسخة التوضيحية لمعرفة طريقة العمل تحياتي صاحب الملف منتصر الانسي تمت الاضافه 07/04/26 الاقسام قسم الأكسيس  

قمة الابداع ’’’ الف شكر لك ,,, والف رحمه على والدك ربنا يتولاه برحمته ويسكنه فسيح جناته ,,,

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

اخي الكريم المشكلة كانت في أن المراجع ناقصة لذا إفتح محرر الأكواد ومن قائمة Tools إختر أول خيار References وقم بتحديد المراجع الناقصة لتصبح قائمة المراجع عندك مطابقة لهذه القائمة ومن خلال المثال الذي قمت بإرفاقه فإن المراجع الناقصة هي آخر مرجعين ملاحظة : الرقم 16 سيتغير بحسب نسخة أوفيس لديك أما مايخص طلبك الثاني فسبب ظهور كلمة Error هو أن دالة Dlookup لانجد رقم في حقل ref_client لذلك فكل ماعلينا هو أن نجعلها تتنفذ في حال وجود رقم عموماً قمت بإجراء التعديل على ملفك وأعدت رفعه هنا لمراجعته وفحص التعديلات تحياتي Ste E G P.rar

تعديلات: تم عمل الترحيل من خلال زر في كل صفحة تم عمل ورقة عمل خاصة بالجداول المحورية تم عمل كود لانشاء ورقة عمل جديدة لجداول محورية (اختياري) كيفية نقل صف بشرط ورجوعه عند انتفاء الشرط (2).xlsm

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل التعديل أخي بلال .. Nouveau dossier.zip إنتبه إلى أنني غيرت لك نظام المرفقات عن طريقتك السابقة لأنها كانت معقدة .. أضفت 3 حقول للجدول tbl_Employees لحفظ المرفقات .. وعلى أساساها تم تعديل تصميم النماذج وكذلك نموذج عارض الصور ..

اتحلت المشكلة كثر خيرك زادك الله من علمة

••| قريباً الإصدار الثاني بمميزات جميلة |••

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

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

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

تمام شكرا جزيلا أخي الفاضل

1️⃣ تم تعديل وتصحيح بعض الأخطاء التي تمت ملاحظتها بناءً على تجارب الإخوة والأساتذة - مشكورين جميعاً دون استثناء - والتي تتلخص بـ :- تصحيح كود "عرض التصميم" للتقارير أو النماذج . والكثير غيرها . إضافة ميزة التحقق مما إذا كان الأمر مكرراً أم لا ، مع تخيير المستخدم بمتابعة إضافته أو لا .. ملف المشروع مفتوح المصدر :- Menu Builder V.2.zip كملاحظة ، وللحصول على التعديثات الجديدة .. قم بإزالة الإصدار السابق ، وإعادة تشغيل اكسيس واجهة الأداة وحفظها كـ Add-in ..

الخبير الفاضل ممكن لوتكرمت انظر الصورة

وعليكم السلام ورحمة اله وبركاته .. 🙂 هناك طريقتان تخطران في بالي الآن .. الأولى : حرك النافذة (النموذج) إلى الموضع الذي تريده والحجم الذي تريده ثم إضغط على Ctrl+S في الكيبورد والأكسس سيحفظ لك حجم وموضع النموذج وسيفتح عليه في المرة القادمة .. آمل أن تعمل معك على نسخة 2003 🙂 .. الثانية : استخدم الكود التالي عند الفتح ، مع التركيز على خاصيتي الطول والعرض وتغيير الأرقام حتى تصل إلى الأرقام الحقيقية لطول وعرض النموذج ( هذه الأرقام بوحدة التويبس وليس السانتيمتر ) .. DoCmd.MoveSize , , 5200, 7800 للعلم : خاصيتي Right , Down هذه تحددان مكان ظهور النموذج عند فتحه .. جربهما قد تجدهما مفيدتين لك أيضا 🙂

خاصية Auto Resize (تقريباً ستكون تغيير الحجم تلقائيًا في النسخة العربي) ضمن خصائص النموذج

تفضل الملف على حسب فهمي: في الورقة الأولى اضغط على زر ترحيل يتم ترحيل كل ما هو غير "دوام كامل" بناء على الحالة في العمود G في الورقة الثانية بمجرد تغيير الحالة لدوام كامل يتم استعادة البيانات في الورقة الأولى كيفية نقل صف بشرط ورجوعه عند انتفاء الشرط.xlsm

شكراً لك مرورك أخي منتصر .. يكفيني اعجابك بكلمة واحدة انتظر التحديثات الجديدة .. قد تعجبك 😉

السلام عليكم ورحمة الله تعديل على ملف الأخ الكريم "أبو عيد" حفظه الله ورعاه... (تعديل للحالة الرابعة -حالتين- التي تخص "مجموع المديونية المحلية الظاهرة غير المخفية بدون مقابل العملة الأجنبية"). أتمنى أن تفي الغرض المطلوب... جمع الأرقام الموجبة معدل2.xlsx

السلام عليكم تم عمل المعادلات في الخلايا الخضراء لم أفهم المطلوب الرابع : مجموع المديونية المحلية الظاهرة غير المخفية بدون مقابل العملة الأجنبية جرب المرفق جمع الأرقام الموجبة معدل.xlsx

إضافة للاستاذ كمال تفضل ملف عملي طرح تاريخين.xlsx

وعليكم السلام-تفضل طالما انك لم تقم برفع ملف موضح به المطلوب بكل دقة ,وفى طلبك وبالمعادلات العادية لا يوجد أفضل من معادلة DATEDIF

هل تريد النسخة المحسنة كما بالعرض . ؟؟؟؟

استاذ @فؤاد الدلوي اذا كان هذا طلبك لا تنسى الضغط على تمت الاجابة كي يستفيد غيرك .

تفضل استاذ @فؤاد الدلوي مرفقك حسب مافهمت . اولا الجزء المهم جدا إعداد (CaptureOnTouch V5 Pro) افتح البرنامج الآن 👇 1️⃣ ادخل إلى: 🔹 Job Mode 2️⃣ أنشئ Job جديد اضغط: New 3️⃣ اختر نوع الإخراج اختر: Save to Folder اضغط Next 4️⃣ اختر المجلد اضغط Browse واختر: D:\Archive\Temp اضغط OK 5️⃣ أهم خطوة (اسم الملف) ستجد خيار: File Name Settings اختر: Custom واكتب اسم ثابت: scan ⚠️ بدون أرقام ⚠️ بدون تاريخ ⚠️ بدون Auto numbering ثم اختر: File Format = PDF مهم جداً داخل برنامج CaptureOnTouch V5 Pro تأكد أن: الحفظ في: · D:\Archive\Temp اسم الملف دائماً: · scan.pdf لا يوجد تاريخ أو ترقيم مضاف للاسم ثانياً اليك المرفق ' مسار برنامج CaptureOnTouch (تأكد منه عندك) AppPath = """C:\Program Files\Canon Electronics\CaptureOnTouch V5 Pro\TouchDR.exe""" او عدل كما لديك . الناتج D:\Archive\2026\02\1258.pdf ووافني بالرد . Fouad_ElDolwi.rar

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

بعد اذن الاخ علي هذا الكود Option Explicit Sub Extract_by_Groupes() Rem Created By Salim Hasbaya On 19/2/2020 If ActiveSheet.Name <> "ورقة1" Then Exit Sub Application.Calculation = xlCalculationManual Dim ObjReg As Object Dim ObjMatches, a%, My_word, i% Dim k%, col%, last_row last_row = Cells(Rows.Count, 1).End(3).Row Range("E6:G" & last_row).Clear Set ObjReg = CreateObject("VBScript.RegExp") With ObjReg .Pattern = "(\W+)(\d+)[%-:,_](\W+)" .Global = True End With For k = 6 To last_row If ObjReg.test(Range("a" & k)) Then Set ObjMatches = ObjReg.Execute(Range("a" & k)) For Each My_word In ObjMatches 'The variable match will contain the full match a = My_word.Submatches.Count 'total number of groups in the full match col = 5 For i = 0 To a - 1 Cells(k, col) = My_word.Submatches(i) col = col + 1 Next Next End If col = 5 Next With Range("E6:G" & last_row) .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .InsertIndent 1 .Columns.AutoFit .Interior.ColorIndex = 40 End With Set ObjReg = Nothing Application.Calculation = xlCalculationAutomatic End Sub الملف مرفق Extract Number.xlsm

السلام عليكم هذه المعادلة تعطي الفرق مهما كان ترتيب التاريخين و مهما كانت السنوات =ABS(MONTH(A1)-MONTH(B1))+12*ABS(YEAR(A1)-YEAR(B1))