كل الانشطه

تمام اخي الكريم .. بداية وحتى تتوضح فكرتي بالتنفيذ ، سنعتمد على حدث عند النقر لمربع النص 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 - جدول العمليات ( التفاصيل ) او نسميه جدول خط الانتاج

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

وعليكم السلام ورحمة الله اسف على التاخير لاني لم انتبه الا بالامس مساءا على الهاتف شكرا لكم اخوتي ولاخي ابوخليل على حسن ظنكم بي وبارك فيكم وشكرا لكل من هنأني

تفضل استاذ @soik225998 حسب ما فهمت مع اني لا أتعامل مع مسميات عربية بالبرمجة ولا يهمك ..... نصيحة لا تعتمد على تسجيل مسار الصورة بالجدول لأنك لو شغلت البرنامج من مكان غير أو كمبيوتر غير لا يأتي بالصورة . اليك المرفق ووافني بالرد . تجربة 1-1.rar

شكرا جزيلا لك أ/عبد الرحيم .. ولكن التعديل ليس صحيحا بدليل ان جملة قيمة الصرف ل كمية 300 مساوية لقيمة الصرف لكمية ال 100 وان سعر الوحدة فى حالة الصرف لكمية 200 تساوى صفر وهو امر غير منطقى وغير صحيح جزيل الشكر والتقدير لاهتمامك

تفضل استاذ @gavan حسب مافهمت اليك المرفق . Test-2.accdb

السلام عليكم ورحمة الله وبركاته اللست فيو عادة يكون من ضمن مكونات الاكسل ويتم تفعيلة فتح محرر VBA. من القائمة العليا اختر: Tools → References. ابحث عن المكتبة التالية: ✅ Microsoft Windows Common Controls 6.0 (SP6 إن لم تجدها في نافذة الـ UserForm، اضغط بزر الماوس الأيمن على صندوق الأدوات (Toolbox). اختر: Additional Controls... مرّر للأسفل حتى تجد: ✅ Microsoft ListView Control, version 6.0 (SP6) ضع ✔ بجانبها، ثم اضغط OK. الآن ستظهر الأداة ListView في صندوق الأدوات، ويمكنك سحبها إلى الـ UserForm. اليك ملف به الاداة اكسل 2016 لست فيو.xlsb