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

وعليكم السلام ورحمة الله وبركاته خمل المرفق به مثال لتحويل نطاق نطاق معين محدد بالماوس الى pdf pdf1.xlsb

السلام عليكم لم توضخ خلية البحث G1 لها علاقة بالتوزيع ام لا فيكون التوزيع فردي ام للكل على كل حال الملف فيه عدد 2 شيت الاول شيت DATA يقوم بالتوزيع الفردي للمراقب وذلك بالاختيار من الخلية G1 الثاني شيت DATA1 به كود يقوم بتوزيع اللجان على كل المراقبين جرب الملف المرفق متمنيا ان يكون فيه طلبك ملاحظة1_2026.xlsm

السلام عليكم ورحمة الله وبركاته الان وضحت الفكرة بارك الله فيك تم عمل كمبوبوكس به اسماء الموظفين الازار المرقمة قي القورم اكوادها موحودة كما هي اعتقد بعد الكمبوبوكس لم تعد في حاجة اليها ان اردت الغائها فابلعنى جرب الملف وان كنت تحتاج الى تعديل في الفورم فابشر تحياتى لك حضور وخروج موظفين.xlsm 4495.xlsm

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

بارك الله فيك .. وللمرة المليون أسف على تعب حضرتك وجعله في ميزان حضرتك ... وهذا أملنا في هذا المنتدى العظيم بأساتذته

اعلم هذا وواضح بالملف وعملت في قطاع التعليم التقني والتوجيه الفني 39 سنة واعلم جيدا كيف عمل اللجان لم يكن الامر يتطلب كل هذا على كل حال عودة للملف اليك الملف بالتعديل الاخير مراقبة_ تحويل اللجان الى أسماء.xlsm

السلام عليكم تحية صباحية طيبة وبعد، عزيزي الفاضل، اعلم أن هدفك هو تحويل الأرقام إلى أسماء، وهو موجود من عنوان مشاركتك وردودك المتتابعة. لكنني أواجه صعوبة في المضي قدماً؛ لأنك لم تحدد المعايير الدقيقة لعملية التحويل، ولم تتفضل بالإجابة عن الأسئلة التي طرحتها عليك في الردود السابقة. أقر بعجزي عن استيعاب فكرة التحويل بوضوح، وربما تكون سنواتي الـ 63 قد جعلتني أجد صعوبة في استيعاب هذا الأمر. لذلك، أعتذر عن عدم قدرتي على إفادتك في هذا الطلب. أتمنى من الأخوة الأعضاء والخبراء الذين استوعبوا آلية العمل أن يقدموا المساعدة اللازمة لك. مع خالص التقدير.

وعليكم السلام ورحمة الله وبركاته جرب هذا تسلسل ملئ بيانات الفورم1.xlsm

وعليكم السلام ورحمة الله وبركاته .. جرب في زر فتح التقرير الحدث التالي :- DoCmd.OpenReport "تقرير تصفية", acViewPreview, , _ "[اسم_المستفيد] Like '*" & Forms!Index!s & "*' " & _ "OR [رقم/اسم المبنى] Like '*" & Forms!Index!s & "*' " & _ "OR [الادارة] Like '*" & Forms!Index!s & "*'" 100.zip

السلام عليكم نصيحه لك وبما انك عضو مميز اهتم بتسميات الجداول والحقول باللغه الانجليزيه حتى تسهل عليك العمل وكتابه الاكواد تفضل بطريقه بسيط عملت لك نموذج المشتريات وتركت لك الاخر لتعمله كى تتعلم بالتوفيقمخزن_1.accdb

وعليكم السلام ورحمة الله وبركاته اليك الحل بطريقتين الاولى - بالتنسيق الشرطي Sheet1 اللون الاحمر =AND(A1<>""; OR(A2=""; A2=0)) اللون الاخضر =AND(A1<>""; A2<>""; A2<>0) الثانية - كود في حدث الورقة SHEET2 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:ZZ2")) Is Nothing Then Dim r As Range For Each r In Intersect(Target, Range("A2:ZZ2")) If r.Offset(-1, 0).Value <> "" Then If r.Value <> "" And r.Value <> 0 Then r.Offset(-1, 0).Interior.Color = vbGreen Else r.Offset(-1, 0).Interior.Color = vbRed End If Else r.Offset(-1, 0).Interior.ColorIndex = xlNone End If Next r End If End Sub الملف sa1.xlsb

السلام عليكم ورحمة الله تم التعديل أيضا (دائما بواسطة المعادلات) على ورقة "جداول الحراسة" التي تحتوي الجداول الفردية للحراس (معذرة لم أنتبه لها إلا الآن)... الحراسة2026 للتصحيح.xlsm

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

هل الملف كان يعمل ثم فجأة توقف؟ ارسل الملف للاصلاح .

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

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

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

سأحاول تثبيت الإصدار 2021 وتجربة الأداة ، ما لم يكن لأحد من الأخوة تجربة يفيدنا بها بهذا الإصدار . شكراً لاهتمامك ومتابعتك

وعليكم السلام ورحمة الله وبركاته أخي الكريم .. مشاركة مع مهندسنا الغالي .. فكرتي تتلخص بالعمل على حدث On Paint لقسم التفاصيل . قم بإضافة مربع نص غير منضم ، ولا تحدد له لون خلفية أو لون حدود وسميه مثلاً FokshTXT ، و طبق ما يلي :- Private Sub تفصيل_Paint() If IsNull(Me.External_lab) Or Me.External_lab = "" Then Me.FokshTxT.BackStyle = 1 Me.FokshTxT.BackColor = RGB(255, 230, 250) Else Me.FokshTxT.BackStyle = 0 End If End Sub حيث وللتوضيح ، اللون [RGB(255, 230, 250)] هو لون الخلفية المستخدم في النموذج . فقط تحكمنا بتلوين خلفية مربع النص ، كما في الصورة التالية :- وملفك بعد التعديل :- JO_Lab.zip

اعرض الملف إداة تخصيص مربع الرسائل MsgBox {سلسلة الأدوات المساعدة المخصصة} نواصل سلسلة الأدوات المخصصة بأداة بسيطة وسهلة الإستخدام ولكن نتيجتها رائعة فكما نعلم فإن صندوق الرسائل MsgBox القياسي يأتي بإمكانيات محدودة كعدم إمكانية تنسيق الخطوط وتغيير مسميات الأزرار وغيرها من الأمكانيات وهنا تأتي هذه الأداة لتقوم بكل مايعجز مربع الرسائل القياسي عن القيام به حيث يمكنها - إنشاء الرسائل بنص غني RichText وهذا يعني أمكانية التحكم في تنسيق النص من حيث نوع الخط ولونه وحجمه وتسطيره ... الخ - تعيين تسميات الأزرار مع إمكانية تغيير لونها - الإغلاق التلقائي وغيرها من المميزات التي ستتعرف عليها في الملف المرفق طريقة إستخدام الأداة بسيط للغاية فمن خلال نموذج (المعالج) نقوم بكتابة وتنسيق نص الرسالة وتعيين خيارات مربع الحوار ثم إستعراض شكل مربع الرسالة الناتج عن هذه التحديدات حتى يتم الوصول للنتيجة المطلوبة ليقوم النموذج بإنشاء صيغة الكود الذي يقوم بتنفيذ الأمر لنسخه ولصقه في المكان المطلوب ملاحظة هامة : ارجو التركيز على الملاحظات المكتوبة باللون الأحمر في النموذج لأنها ملاحظات هامة يجب إستيعابها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 12/18/25 الاقسام قسم الأكسيس  

وعليكم السلام ورحمة الله وبركاته .. جرب هذا التعديل أخل الكريم .. DCOUNT.zip

تفضلي التعديلاات كالتالي : 1- وضعت الوان في النموذج الرئيسي للاستدلال على الخطابات التي تم الاطلاع عليها .. الاخضر تم والبرتقالي لم يتم 2- في حدث العداد للنموذجين الفرعيين جعلت الوقت 5 ثواني ( كل 1000= ثانية ) يمكنك زيادة الوقت وهو الافضل مثلا 300000 = 5 دقائق بمعنى كل 5 دقائق يتم تحديث النموذج لمعرفة ان كان هناك خطابات جديدة الآن عند فتح النموذج الفرعي سيفتح بلا بيانات انتظري 5 ثواني لتري التيجة جربي ووافيني بملاحظاتك مراسلة3.rar

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

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

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

اليك التعديل حسب طلبك الاخير مع ملاخظة ان :- صفوف الأسماء تكون في الصفوف = 6، 8، 10، 12، 14… وهكذا وهي التي يتم تلوينها صفوف الرواتب او الاختيار من القائمة تكون في الصفوف= 7، 9، 11، 13، 15… وهكذا aaaa1.xlsm

دائما لك نكهة خاصة مميزة 😋👌🌹 إبداع وإمتاع

استاذ @Bshar حل الاستاذ خليفة ماهو الا تنسيق شرطي !!!!!!!!!!

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

السلام عليكم ورحمة الله وبركاته أخانا الفاضل، بلانك ملاحظة وُدّية بسيطة بخصوص عنوان مشاركتكم ، ونثق تمامًا أنها صدرت عن غير قصد. (عذراً للإخوة المشرفين على هذا التنويه، ولكن لمّا كان الأمر يخصّني قمت به من باب حرصنا على أن نكون أسرة واحدة في هذا المنتدى.) كل التقدير لتفهّمكم وتعاونكم المثمر دائمًا. قواعد المشاركة https://www.officena.net/Tips/Questions.htm بالنسبة للملف حقيقة لم افهم فكرة تحويل اللجان الى اسماء المراقبين بعد لذلك نأمل منكم : * اخفاء اي عمود ليس له علاقة بالتحويل وهل العمود N في الجدول الايسر والذي به اسماء المراقبين له علاقة بالتحويل ام ان العمود O والذي به ارقام اللجان هو المعتمد للتوزيع . * قم بارفاق ملف به عدد اربع او خمسة اسطر مكتوبة يدويا كاملة للفترات 9 بالجدول الايسر لفهم فكرة تحويل اللجان الى اسماء المراقبين . *اعتقد ان شيت DATA1 هو المطلوب فيه التحويل واعتقد ان القائمة المنسدلة ليس لها علاقة بالتحويل ارجو تاكيد الامر او نفيه. لك كل التقدير والاحترام

لقد تركت اثرا طيبا بعد مشاركتك شكرا لك تمت تجربة الكود وعمل بشكل فعّال اكرر شكري لسعادتك

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

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

تفضل استاذ @Matin_Murad تفضل هذا مرفق متكامل قد يفي بطلبك حسب مافهمت . أي سؤال أو طلب أنا حاضر . ووافني بالرد. Matin_Murad.rar

اظن انه من الصعب اذا كان الباسورد للقاعده 😑,, اما باسورد الاكواد فهناك حلول

مساء الخير,, اخي فادي انهيت المشكلتين اناقبل يومين التي ذكرتهم في اول الموضوع بااستعلام بسيط وكود ابسط 😆 1. عملت استعلام حذف في حدث عند التحميل وضعت عليه معيار 0 على حقل no_driver كونه حقل فريد بحذف اي سجل فارغ سابق او حالي .وبهذا انتهت المشكله الاولى التي ذكرتها با اول الموضوع,☝️ 2. استخدمت الكود التالي Me.da_d = Me.dm_b.Form.Controls("qqa") ,, الذي يقوم بااحضار قيمة المجموع في الحقل الغير منضم الموجود في النموذج الفرعي ,ويعمل بكفائه افضل من الكود السابق وبهذا انتهت المشكله الثانيه التي ذكرتها با اول الموضوع,☝️ اشكرك جزيل الشكر فوووكش على مشاركتك ودعمك ومساندتك الدائمه انت وجمييع الاساتذه وخبراء الموقع ❤️

السلام عليكم ورحمة الله وبركاته لا مشكلة اخي الفاضل جرب التعديل التالي sa1 (2).xlsb

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

الطريقة الصحيحة (تغيير اتجاه الورقة بالكامل) افتح ملفك في WPS Spreadsheet 2020 من الشريط العلوي اختر: Page Layout (تخطيط الصفحة) اضغط على: Sheet Right-to-Left أو Right to Left ألغِ التحديد عنها ➜ ستصبح الورقة من اليسار إلى اليمين

تعديل على إجابة الباش مهندس فادي حيث أنه يريد التلوين عندما تكون القيمة لا تساوي "لا يوجد" 🙂 [Foksh] <> "لا يوجد"

و عليكم السلام و رحمة الله و بركاته جرب =ROUND(A1*4;0)/4

السلام عليكم ورحمة الله في المرفق تجد حلا باستعمال المعادلات، أرجو أن يفي الغرض المطلوب... الحراسة2026 للتصحيح.xlsm

اداة رائعه ومجهود واضح وكبير وافكار جميله ويشرفني اكون اول المعلقين

عذراً لمن اتنتظرني بأن أرفق الملف مفتوح المصدر وتأخرت عليه ،، لن أرفق الأكواد هنا لتعددها وطولها .. GD Uploader.accdb

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

ورد خطأ في المرفق السابق وهذا تصحيحه ترتيب حسب التاريخ2.rar

الافضل استخدام pivot table واظهار اعلى قيم كما تريد اكبر خمس قيم.rar

السلام عليكم أخي الكريم إجعلها بصيغة الصفيف {} عن طريق أن تضغط (بعد الانتهاء من كتابة المعادلة في الخلية) ، تضغط Ctrl-Shift-Enter بدلا من Enter وحدها ستكون الصيغة كالتالي =LARGE($C$14:$C$36,{1;2;3;4;5}) مرفق الملف معدلا اكبر خمس قيم.rar