كل الانشطه

شكرا استاذ على التعديل ممكن المرفق الذي تم التعديل عليه من حضرتك

العفو أخي الكريم

شكرا على التوضيح أخي الكريم

ههههه ، ولا يهمك أخي .. خليني أوضح لك الفكرة بإجابات على اسئلتك .. نعم بالضبط حيث أن SelStart هو رقم يمثل موقع بداية المؤشر داخل النص ، ويبدأ العد من 0 ( يعني أول حرف في النص موقعه = 0 ) نعم بالضبط ، اجعل المتغير beforeText يحتوي على كل النص الذي يسبق موقع المؤشر كلام سليم بالضبط ، اجعل المتغير afterText يحتوي على كل النص الذي يأتي بعد المؤشر السطر الأول يعيد المؤشر إلى ما بعد النص الذي تم إدراجه السطر الثاني يجعل تحديد النص = 0 . أي عند تنفيذ الإضافة النصية من الزر فإنه سيتم نقل التركيز الى مربع النص وبالتالي سيتم تحديد كامل النص ، ونحن لا نريد هذا طبعاً ، وبالتالي المهمة المطلوبة هي فقط أن يتم وضع المؤشر في المكان الجديد ( الذي تم تحديده قبل الإضافة طبعاً ) بدون تظليل النص .

تم المطلوب أخي الكريم .. جزاك الله خيرا وأحسن إليك كنت أحاول استيعاب الكود الذي تفضلت به لعلي أستخدمه أو جزءا منه في مهمات أخرى .. كما هي عادتي 😁 وأظنني استوعبت عمل الكود، لكن عندي بعض الاستفسارات لعلك تتكرم بتوضيحها - cursorPosition = Me.NASSbox.selStart هل هذه تعني: اجعل هذا المتغير = موقع المؤشر ؟ - beforeText = Left(currentText, cursorPosition) هل هذه تعني: هذا المتغير = كل ما هو قبل المؤشر - afterText = Mid(currentText, cursorPosition + 1) هل هذه تعني: هذا المتغير = كل ما بعد المؤشر - ما وظيفة آخر سطرين:

تمام اخي الكريم .. بداية وحتى تتوضح فكرتي بالتنفيذ ، سنعتمد على حدث عند النقر لمربع النص NASSbox . بحيث نتعرف على موقع المؤشر من خلال ما يلي :- في مديول ، نقوم بحجز المتغير في بداية المديول مع الدالة الرئيسية :- Public cursorPosition As Long Public Sub InsertAtRememberedCursor(ByVal i As String) Dim ctl As Control Set ctl = Forms!Assaker!NASSbox ctl.SetFocus Dim currentText As String currentText = ctl.Text Dim beforeText As String Dim afterText As String Dim insertText As String insertText = vbCrLf & i & "= " beforeText = Left(currentText, cursorPosition) afterText = Mid(currentText, cursorPosition + 1) ctl.Text = beforeText & insertText & afterText ctl.selStart = cursorPosition + Len(insertText) ctl.SelLength = 0 End Sub الآن في النموذج وفي حدث عند النقر على مربع النص المستهدف :- Private Sub NASSbox_Click() DoEvents cursorPosition = Me.NASSbox.selStart End Sub ثم في حدث عند النقر للأزرار ، كل زر ليقوم بإضافته الخاصة به داخل النص ، من خلال الإستدعاء التالي لها :- Private Sub insert1_Click() Call InsertAtRememberedCursor("1") End Sub Private Sub insert2_Click() Call InsertAtRememberedCursor("2") End Sub Private Sub insert3_Click() Call InsertAtRememberedCursor("3") End Sub وبالتالي ، تكون النهاية كما رأيت في الصورة السابقة . المرفق :- Assaker.zip

تمام أخي الكريم .. هذه هي النتيجة المطلوبة

من باب التوضيح إن كنت قد فهمت المطلوب بشكل صحيح .. هل الصورة أدناه تطبق للمطلوب ؟؟؟

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

تم رفع الملف

الإخوة الكرام .. هل يمكن إنشاء كود لإدراج نص مختصر خلال النص ؟ في الملف المرفق ثلاثة أزرار [insert1 // insert2 // insert3] والمطلوب عند استخدام الزر الأول (1insert)، الذهاب لموضع المؤشر وإضافة سطر جديد ثم (1= ) : رقم (1) يليه مباشرة بدون مسافة (=) ثم مسافة ثم بقية النص - وعند استخدام الزر الثاني نفس الشيء ولكن الرقم هنا (2= ) - وكذلك الحال في الزر الثالث نفس الإجراء والرقم (3= ) وكمثال على ذلك، هذه صورة توضح النص الأصلي والنص المطلوب بعد استخدام الزرين الأول والثاني: Assaker.accdb

💣 تحميل اللعبة للنواتين :- Minesweeper v 4.0 - 64.accde.zip Minesweeper v 4.0 - 32.zip

رائـع هو طلبي ❤️ يعمل بنجــــــــاح بس عرض آخر الجلسات لو امكن حقليين من تاريخ الى تاريخ لانه يفتح كل! مو اخر جلسة _ انتظر تحديث استاذه / @hanan_ms👍 واعتذر عن تأخر بالرد حتى انا كنت مشغول

بارك الله فيك اخي عبدالله وللاخوان الي ماقصرو ولكن هل في دالة تجمع لي اجمالي المبكر الدقائق والتي بعلامة -00:00 وايضاً الدقائق المتاخره

السلام عليكم... أستاذنا الفاضل ..... شكرا على الملاحظة المقدمة في الموضوع والمعذرة عن الخطأ الصادر مني ....

السلام عليكم جرب الملف TRIP_01 (1) (2).xlsx

بارك الله فيك شكرا لك مع مراعاة بوضع علامة ; بين الجملتين الاخرتين "ليس على الوقت";"متأخر")));"-")

جرب الصيغة التالية =IF(AND(ISNUMBER(E2);ISNUMBER(F2));IF((F2-E2)<(-59/86400);"مبكر";IF((F2-E2)=0;"في الوقت";IF(AND((F2-E2)>0;(F2-E2)<(10/1440));"ليس على الوقت""متأخر")));"-") TRIP_01 (3).xlsx

اين المرفق ؟؟

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

للتوضيح اكثر مرفق لكم الملف بارك الله لكم TRIP_01 (1).xlsx

وهذا مثال عملي لست فيو1.xlsb

تعديل برنامج مواعيد المنشر على الانترنت بحيث يصبح لاكثر من شخص كمجمع طبي يوجد فيه اكثر من طبيب ajendastmulti14-4-2021.rar

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

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