كل الانشطه

دمج المراسلات بطريقة (Bookmarks) غير موثوقة . يفضل استخدام طريقة (Content Controls) . لو حابب . الشرح + المرفق الاول معدل بها . وافني بالرد .

وعليكم السلام والرحمة استاذنا الفاضل @foksh ممتنه جداً منك على مساعدتي في حل سؤالي ،،، ولكن عند تجريبي لنسخة الملف بعد التعديل الذي اجريته حضرتك لاحظت انه عند فتح نموذج الدورات او الاجازات الخاصة بموظف معين في البداية فعلا يتم ربط (الرقم التعريفي والاسم ) تلقائياً ولكن عند فتح سجل اخر لموظف ثاني فان البيانات الخاصة بالنماذج الثانوية ( الدورات والاجازات ) تتغير تلقائيا الى الاسم الجديد وتصبح الحقول فارغة بالنسبة للسجل الاول الذي تم ادخاله بداية وسأرفق القاعدة وفيها ما تم شرحه للتوضيح اكثر ،،، اتمنى تعديل الحل ولك مني كل الشكر والتقدير ربط واجهات2.rar

هل فى طريقة تانية او احتدت استعملها فى ملفات تانية ؟

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

وعليكم السلام ورحمة الله وبركاته أهلا بك أخي الحبيب الأن أصبحت الأمور ميسرة بالذكاء الأصطناعي كنا دائما في هذا المنتدى نطلق شعار لا تعطني سمكة ولكن علمني كيف أصطاد وبعد انتشار الذكاء الاصطناعي تحولت الأمور إلى أعطني سمكة وخلصني (أنا مشغول) لو تحب أن نعطيك سمكة أرفق ملفك هنا واشرح مطلوبك تقبل تحياتي

فكرة استاذ وكيف لي ان انفذها

هل تريد حذف القائمة المنسدلة نهائيا ؟ ثم تكتب اي اسم مثلا (أسامه) فيبحث عن كل اسم فيه (اسامه) سواء في أوله أو أوسطه أو آخره أم تريد اختيار اسم من القائمة : مثلا (اسامه عبد العزيز صديق حامد) ثم البحث في الأسماء عن كل اسم فيه : (اسامة) سواء في أوله أو أوسطه أو آخره (عبد العزيز ) سواء في أوله أو أوسطه أو آخره (صديق) سواء في أوله أو أوسطه أو آخره (حامد) سواء في أوله أو أوسطه أو آخره تقبل تحياتي

تفضل استاذ @jo_2010 المرفق بعد التعديل بطلبك . ووافني بالرد . JOOO-1.rar

وعليكم السلام ورحمة الله أنا معلم وتحولت إلى إداري على الحاسوب فكنت أعاني من هذا الأمر مهمتي هي العمل على الحاسوب وكل ما يلزم من أعمال المدرسة ومن ضمنها ادخال الدرجات للطلاب المعلم يسلمني الكشوفات وأنا بدوري أدخل الدرجات إلى النظام في البداية كنت متحمسا لهذا الشيء بسبب أن النظام كله هو من تصميمي ولكن ! مع مرور الوقت وجدت أن عملية الأدخال للدرجات فيها شيء من الصعوبة بسبب الأخطاء التي قد أرتكبها أنا من غير قصد مني ثم تظهر في نتيجة الطالب ويتم مراجعتي بعد ذلك لتعديلها فتداركت الموضوع حتى لا تتكرر الأخطاء في المرات القادمة وقمت بتطوير عملية الأدخال بعد المرحلةالاولى التقليدية كما يأتي : المرحلة الأولى : الطريقة التقليدية : كيبورد والضغط على الأزرار * في هذه المرحلة أي خطأ أنا أتحمله وبعدها فكرت التطوير وتقليل الاعتماد على الكيبورد وتقليل الضغط على الأزرار عندما أدخل الرقم 13 مثلا أحتاج للضغط على 3 أزرار : 1 و 3 و ENTER حتى يتنقل المؤشر للخلية التالية المرحلة الثانية : قمت بتصميم برنامج على الاكسل (لا أستخدم الكيبورد إطلاقا) يقوم بإظهار لوحة الدرجات على الشاشة وعن طريق الفارة (الماوس) أختار و أضغط على الدرجة المطلوبة فقط فيقوم البرنامج بادخال الدرجة للخلية وينزل المؤشر للأسفل تمهيدا لإدخال الدرجة الأخرى إذا 3 ضغطات في المرحلة الأولى = ضغطة واحدة من الماوس في المرحلة الثانية * وهذا أنجاز لكن في هذه المرحلة أيضا أنا أتحمل أي خطأ في الأدخال استمرت المرحلة الثانية عدة سنوات وطورت الفكرة إلى المرحلة الثالثة والنهائية وهي التي أعمل بها الآن المرحلة الثالثة : عملت كشوفات اكسل لكل صف ونزلتها في قروب واتساب الخاص بالمدرسة الذي يجمع كل المعلمين فكل معلم يحمل الكشف الخاص بصفه ومادته فقط ثم يعبي الدرجات ويرسل الكشوفات لي بالواتساب وأنا أقوم (عن طريق البرمجة وليس نسخ ولصق ) بإدراجها في النظام * وهنا أنهيت مسؤولتي وأصبح كل معلم هو المسؤول عن اخطائه إذا كان هناك طريقة أسهل من هذه فأرجو من الأخوة القراء أتحافنا بها فالجميع يريد الوصول لهدف واحد وهو تبسيط العمل تقبل تحياتي .

مكتبة كافة الادوات المساعدة والمميزة والكواد والمشاريع 2026-2027 Ms_hanan : https://sites.google.com/view/mas-projectss/home لضم بعض الاعمال وتنزيل المباشر من غير اذونات الكل مفتوح المصدر ******************************************************************************************************** توسيــــع واستكمال 1- اضافة اخذ الاحداثيات ولعرض التقرير الى كامل الشاشات مختلف الى شاشة بعرض الجدار مع ادوات التقرير Private Sub Sreen_Give_Value() On Error Resume Next ' =========== ( Abut If Name Object Form Or Report Error !~# Dim Ttb3 As Recordset Dim strsq1 As String Dim strsq2 As String Dim strsq3 As String Dim Run_Update As Integer Dim MaxWidth As Long Dim nss As String Dim NsR As String Dim Close_FR As Integer '===============( IF Open Agen )========= Dim Run_Up As Integer Dim YYX As Long Dim XXY As Long Dim Rep As String Dim XXX As LongLong ' اسم النموذج المحدد للتحقق انه مفتوح nss = "Top_Report" ' اسم التقرير المحدد للتحقق انه مفتوح NsR = Form_Top_Report.Name_report_X.Caption If IsFormLoaded(nss) Then Else For Close_FR = 1 To 1 If IsReportLoaded(NsR) Then DoCmd.Close acReport, NsR Else: NsR = "" ' تفريغ غير مفتوح Next DoCmd.Close acForm, nss End If '!~# Chack If IsNull Tablet TblRSR = Clane Record ! k If DCount("*", "[TblRSR]") = 0 Then Set Ttb3 = CurrentDb.OpenRecordset("TblRSR") Ttb3.AddNew Ttb3![YY] = Me.YY.Caption Ttb3![xx] = Me.xx.Caption Ttb3![Today] = Now() Ttb3.Update Else For Run_Update = 1 To 3 If Run_Update = 1 Then strsq1 = "Update TblRSR Set YY = '" & Me.YY.Caption & "'" CurrentDb.Execute strsq1 DoEvents End If If Run_Update = 2 Then strsq2 = "Update TblRSR Set XX = '" & Me.xx.Caption & "'" CurrentDb.Execute strsq2 DoEvents End If If Run_Update = 3 Then strsq3 = "Update TblRSR Set Today = '" & Now() & "'" CurrentDb.Execute strsq3 DoEvents End If Next Run_Update End If '!~#************************************( End Chack with Update ) If Me.f_1.Visible = False Then Me.f_1.Visible = True If Me.f_4.Visible = False Then Me.f_4.Visible = True If Me.f_3.Visible = False Then Me.f_3.Visible = True If Me.f_2.Visible = True Then Me.f_2.Visible = False '========== Me.f_1.Caption = " تم اخذ احداثيات بنجــــــــــــاح بتحديث بحفظ آخر التعديلات والتأمين " & Now Me.f_3.BackColor = rgb(23, 231, 137) Me.YY.Caption = Me.InsideHeight Me.xx.Caption = Me.InsideWidth '*********( Agen Open Report with Tools) If Me.Repo.Caption = "Repo" Then Pause 4# DoCmd.Close acForm, Me.Form.Name Else DoCmd.openForm nss Rep = NsR '===========( Number For Screen HD 1920 x 1080 Inch If IsNull(DLookup("[YY]", "[TblRSR]")) Then YYX = 2715 - DLookup("[YY]", "[TblRSR]") Else: YYX = DLookup("[YY]", "[TblRSR]") If IsNull(DLookup("[xx]", "[TblRSR]")) Then XXY = 28725 + 200 Else: XXY = DLookup("[xx]", "[TblRSR]") '===============( Only Value Caption DoCmd.openForm "Back_Size_0", , , , , acHidden Form_Back_Size_0.T_Form.Caption = Rep For Run_Up = 1 To 1 DoCmd.ShowToolbar "Ribbon", acToolbarNo Next DoCmd.openForm "top_report" Form_Top_Report.Name_report_X.Caption = Rep DoCmd.openReport Rep, acViewPreview Reports(Rep).Move 0, 2000, XXY, YYX Pause 4# DoCmd.Close acForm, Me.Form.Name End If End Sub 2- اضافة عرض التقرير مع تحسين الادخال 😇 Private Sub report_Click() Dim Rep As String Dim XXY As Long Dim YYX As Long '================( Only Name If Open Report) Rep = "n_x_n" '***********************# '===========( Number For Screen HD 1920 x 1080 Inch To Up More Size Screen ) If IsNull(DLookup("[YY]", "[TblRSR]")) Then YYX = 12900 Else: YYX = 2715 - DLookup("[YY]", "[TblRSR]") If IsNull(DLookup("[xx]", "[TblRSR]")) Then XXY = 28725 + 200 Else: XXY = DLookup("[xx]", "[TblRSR]") '===============( Only Value Caption DoCmd.openForm "Back_Size_0", , , , , acHidden Form_Back_Size_0.T_Form.Caption = "n_x_n" For Run_Up = 1 To 1 DoCmd.ShowToolbar "Ribbon", acToolbarNo Next '==========( Open If Need Filter or SQL ) DoCmd.openForm "top_report" Form_Top_Report.Name_report_X.Caption = Rep DoCmd.openReport Rep, acViewPreview Reports(Rep).Move 0, 2000, XXY, YYX End Sub 3-اضافة اعدادة ضبط الشاشة بدقة وبحجم الخط الويندوز وبارتفاع شريط الويندوز + عند التعديل اعاداة الويندوز تستكمل العمل تابع الفيديو للتوضيح 5- فحص المتغيرات كل ثانية 4- اضافة بيانات التأسيس عند الفتح ايضا تابع الفيديو ... تحميل المرفق https://drive.google.com/file/d/10xilWaBhr4Wqqc0pwpgePIN8ZHEl0mLL/view?usp=drive_link

لما لا تستخدم مسح البيانات القديمة وادراج الجديد

السلام عليكم هل هناك دروس تشرح المصفوفات في الإكسل VBA شرح واضح وسهل من إجراء عمليات حسابية ومنع التكرار في البيانات وغيؤها ... بحثت فوجدت موضوع للأخ ياسر خليل أبو البراء وهذا رابطه: ولكن لو هناك شروحات أخرى تتدرج بنا لأن معالجتها للبيانات أسرع من استخدام خلايا الأكسل خصوصاً إذا كانت البيانات أكثر من 16000 صف * 13 عمود لصفحة واحدة من 8 صفحات ...

تفضل لتقييم 5 نجوم.rar

المطلوب البحث باي حرف من الاسم بدلا من البحث في القائمة المنسدلة لان هناك اكثر من 100 اسم البحث في القائمة بالحروف.rar

وعليكم السلام ورحمة الله وبركاته .. نرجو منك ارفاق ملف بسيط كي يتمكن الإخوة والأساتذة من التطبيق عليه

السلام عليكم استاذ تم حل مشكلة الاستراد ملف الاكسيل عند اضغط على زر استيراد يتم احضار البيانات مباشرة الملف يعمل 100-100 بارك الله فيك

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

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

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

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي باستخدام برنامج EViews لتحليل البيانات الاقتصادية والقياسية بدقة علمية عالية، كما نوفر خدمات احترافية في برنامج NVivo لتحليل البيانات وبرنامج MAXQDA لتحليل البيانات النوعية، بما يشمل ترميز المقابلات وتحليل المحتوى واستخلاص النتائج وربطها بأهداف الدراسة نحرص في مكتبتك على تقديم تحليل علمي متكامل، مفسّر أكاديميًا، ومنسق باحتراف، بما يُسهم في رفع جودة البحث ويزيد فرص قبوله وتميّزه الأكاديمي.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في التحليل الإحصائي باستخدام برنامج SPSS و التحليل الإحصائي باستخدام Excel لإجراء التحليلات الوصفية والاستدلالية وإعداد الجداول والأشكال بدقة، كما نوفر التحليل الإحصائي باستخدام برنامج AMOS لبناء النماذج الهيكلية وتحليل العلاقات بين المتغيرات وفق منهجية علمية متقدمة نحرص في مكتبتك على تقديم نتائج إحصائية دقيقة، مفسّرة أكاديميًا، ومنسقة باحتراف، بما يُسهم في رفع جودة البحث أو الرسالة العلمية ويُعزّز فرص قبولها وتميّزها الأكاديمي.

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

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

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة أكاديمية متخصصة في أهمية التحليل الإحصائي وفق منهجية علمية دقيقة ومعايير جامعية معتمدة، نُساعد الباحثين في تنفيذ التحليل الإحصائي ببرنامج SAS لاختيار الاختبارات المناسبة وتحليل البيانات بدقة عالية، كما نوفر دعمًا احترافيًا يوضّح الطريقة الصحيحة لعرض نتائج البحث؛ من خلال تنظيم الجداول والأشكال الإحصائية وكتابتها وتفسيرها بأسلوب أكاديمي واضح، بما يُسهم في رفع جودة الرسالة وزيادة فرص قبولها وتميّزها الأكاديمي.

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