كل الانشطه

السلام عليكم اريد ترحيل البيانات من ورقة حجز التوقيت الى ورقة Feuil1 اريد عند ملء الخلايا بالون الابيض يتم ترحيل البيانات وعند ترك خلية واحدة لم يتم الترحيل Horaire.xlsb

وعليكم السلام ورحمة الله وبركاته أهلا بك وكل عام وأنتم بخير الرجاء إرسال ملف اكسل , اكتب فيه البيانات ووضح فيه طلبك

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

وتنفيذاً للوعد الذي وعدته للأخ @Moosak قمت بإضافة أداة مساعدة في إنشاء صيغ أوامر مربع الرسائل MsgBox إلى مكتبة الموقع

اعرض الملف أداة إنشاء صيغة أوامر مربع الرسائل MsgBox القياسي {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة بسيطة ولكن فائدتها كبيرة لما تختصره من الوقت والجهد في كتابة الأوامر الخاصة بمربعات حوار الرسائل MsgBox خصوصاً في حالة النصوص الطويلة بإستخدام هذه الأداة لن تحتاج إلا إلى إدخال عنوان الرسالة والنص الخاص بها وتحديد بقية الخيارات من خلال تحديدها من قائمة الخيارات بدون الحاجة إلى أي معرفة برمجية وعند الإنتهاء من تحديد الخيارات يمكنك إستعراض الرسالة للتأكد من ظهورها بالشكل المطلوب وعندها كل ماعليك هو نقر زر لنسخ صيغة الأمر والذهاب للمكان المطلوب في تطبيقك ولصقه بإمكان الأداة القيام بإنشاء صيغتين للأمر 1- صيغة الأمر البسيطة والتي ستكون بالشكل التالي MsgBox "نص الرسالة",vbOk,"العنوان" 2- صيغة الأمر ضمن شرط If وستظهر عندما تحتوي الرسالة على أكثر من زر لتصبح بالشكل التالي If MsgBox ("نص الرسالة",vbOkCancel,"العنوان")=vbOk Then End If كذلك ستجد خيارات إضافية كإمكانية تحديد إتجاه الرسالة لتناسب الرسائل باللغة العربية أو الإنجليزية وإمكانية الإحتفاظ بالنص في متغير والذي يكون مفيداً للغاية عند العمل مع النصوص الطويلة والتي تحتوي على أكثر من سطر وغيرها من المزايا الإضافية التي ستجدونها من خلال تجربتكم للأداة. كما ذكرت فالأداة بسيطة جداً لدرجة أني لم أحتاج لإضافة أي تعليمات توضيحية لطريقة عملها فهي لاتحتوي إلا على نموذج واحد فقط ويمكنك تخصيص قاعدة بيانات مستقلة للقيام بمساعدتك في إنشاء الصيغ لبقية التطبيقات أو إستيراد النموذج لأي تطبيق والعمل به بكل بساطة. كفائدة إضافية وحتى لا تحتاج لإستيراد النموذج إلى جميع تطبيقاتك فقد أنشأت منه نسخة تعمل كوظيفة إضافية Add-In مرفق معها مستند وورد يشرح طريقة تثبيتها وإستخدامها أرجو أن تنال هذا الأداة إعجابكم وإذا كانت هناك أي ملاحظات فأرجو ذكرها تحياتي صاحب الملف منتصر الانسي تمت الاضافه 03/26/26 الاقسام قسم الأكسيس  

المشكلة ان الطلب غير مفهوم بالمرة هل تريد ترقيم الكل ام المعمل فقط والترقيم يسلسل من 55001 حتى القديم أم على تسلسل الارقام (Esal)

ابشر جاري العمل .................................

استاذنا @منتصر الانسي طبعاً لا تفوتنا وبما ان الطالب مصري فالدرجات بمصر أقل من أوتساوي التاسعة على ما أذكر . ولو الطالب عاوز انا حاضر .................. تفضل . الشرح والمرفق بعد التعديل .ووافني بالرد. ahmad2026-111.rar

جزاك الله خير اخوي

بعد إذن الآخ @kkhalifa1960 قمت بتعديل المثال ليقوم بتنفيذ الطلب ولكن لدي ملاحظة مهمة كل الحلول الواردة هنا تتعامل على أن العبارة المراد إجتزاؤها تتكون من كلمة واحدة بمعنى إذا كانت الدرجات مابين (الأولى والعاشرة) فهذه الحلول ستفي بالغرض ولكن لو كانت هناك درجات أعلى مثل (الحادية عشر أو السابعة عشر) فهذا يحتاج لمعالجة أخرى لهذا وجب التنويه تحياتي ahmad2026.rar

وعليكم السلام ورحمة الله وبركاته .. تفضل المرفق بعد تعديل الحدث ليصبح :- Private Sub cboOpenPDF_AfterUpdate() Dim strPath As String Dim objShell As Object strPath = CurrentProject.Path & "\" & Me.cboOpenPDF.Column(2) & ".PDF" If Not IsNull(strPath) And strPath <> "" Then If Dir(strPath) <> "" Then Set objShell = CreateObject("Shell.Application") objShell.Open (strPath) Set objShell = Nothing Else MsgBox ":الملف غير موجود في المسار" & vbCrLf & strPath, vbExclamation + vbMsgBoxRight, "ملف غير موجود" End If Else MsgBox "لم يتم تحديد مسار للملف", vbExclamation + vbMsgBoxRight, "خطأ" End If End Sub الاختبار.zip

السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الإهداء ، وبارك في علمك ووقتك نسأل الله أن يتقبل منك هذا العمل، وأن يجعله في ميزان حسناتك "علماً يُنتفع به" وصدقة جارية تفتح لك أبواب الخير. كل عام وأنت بألف خير، ودمت منارة للعطاء.

السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بالف خير وصحة وسلامة المطلوب : اريد ربط العناصر في القائمة المنسدلة في النموذج ملفات خارجية a1 ,a2 الملفات مرفقه وهي صيغة pdf ولكم جزيل الشكر الاختبار.rar

بارك الله فيك وزدك الله من فضله .. وجعل الله هذا العمل فى ميزان حسناتك ان شاء الله وبالتوفيق والنجاح دائماَ

معلمى الفاضل اولا شكرا لابداعك ثانيا سامحنى لو معرفتش اعبر عن طلبى كنت اريد عمل خانة واحدة لكتاية رقم الايصال مثال "55"000;;_ كقناع ادخال ولكن المشكلة فى ال 55 كيف يتم تغيرها لتصبح 56 وعند تغييرها سوف تتغير كل الارقام السابقة الايصالات القديمة مع العلم ان السكرتارية تعمل على دفتر ايصالات واحد لكل العيادات متال الايصال التخصص 55256 باطنى 55257 جراحة 55258 نسا 55259 معمل هذا يخصنى 55260 عظام 55261 غيار 55262 معمل هذا يخصنى ارقام غير مسلسة اتمنى تكون طلبى واضح

اشكركم على سرعة الرد نعم هو المطلوب ولاكن اريد بعض التحديثات عليها محتاج انها تكون بدون زر تعمل من تلقاء نفسها عند تحديث حقل الدرجه لكم جزيل الشكر

السلام عليكم استاذ هل تستطيع استراد الاكسيل المرفق مع البرنامج استاذ اريد استراد البيانات فقط

معنى كلامك انت لاتبغي تصدير فقط استيراد؟؟؟

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

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

السلام عليكم لدي جدول اسمه: tblImportExcel اريد ادراج ايقونة استراد الى الاكسيل الذي بجاور البرنامج . ولدي استعلام اسمه: المعلومات التي يتم استراد الى الاكسيل. اريد عند استراد المعلومات من الاكسيل المرة الأولى لايتم استرادها مرة أخرى الا في حالة اضافة معلومات جديدة. Mon_Excel_Bilal_Yamen.zip

شكرا لكم...

شكرا لكم !!! على النشر 192.168.1.1

بارك الله فيك ! Tutuapp 9Apps