مجدى يونس

بسم الله مشاء الله اعمال ومجهود رائع وحمدالله بالسلامة

وبارك فيك

الاخ شفان ريكاني شكرا لك

شكرا لك

وعليكم السلام ورحمة الله وبركاتة امين

وبارك فيكم والف شكر ووحشنى جميعا

فورم طباعة الفورم بالكامل الفيديو ' لو الثلاثة فيهم بيانات If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then 'oاختار لى اخر خلية فى العمود x = Range("o" & Rows.Count).End(xlUp).Row 'اجعل الخلية الاولىمن التكست بوكس رقم 1 Range("o" & x + 1).Value = TextBox1.Value 'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value 'اعمل لى ازاحة عمودين ولكن فى نفس السطر Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value 'ارسل لى رسالة بنعم او لا للطباعة d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ") 'لو المستخدم اختار زر نعم If d = vbYes Then 'اطبع فورم رقم 3 UserForm3.PrintForm 'فرغ البيانات للتكست ال الثلاثة TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" Else 'لو المستخدم اختار زر لا If d = vbNo Then 'فرغ بيانات التكست الثلاثة TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" 'غلق البيانات End If End If Else 'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية MsgBox ("البيانات غير مكتملة") End If End Sub

هل هذا المطلوب لا تنسى تفعيل الماكرو وعند الضغط على الزر ستظهر الرسالة ماكرو.rar

الاخ صالح عند حفظ الملف بطريقة العرض SHOW سيفتح الملف مباشرة بالنسبة للماكرو فعل الماكرو

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

وبارك فيك

ارسل ملف يااخ باسم

برنامج وفكرة ممتازة نتمنى تكون باللغة العربية لان فكرتها تشد انتباه الاطفال بمعنى تنفع تبقئ تعليمى لهم

الاخ مجدى لاشين ردا لى سؤالك جرب الدخول على محرر الأكواد عن طريق Alt + F11 قم بالدخول على القائمة Tools ثم References ستظهر لك نافذة بها خيارات وستجد بعض الخيارات في أولها كلمة Missing أي أنها مكتبة مفقودة قم بإزالة علامات الصح من جانب هذه الخيارات فقط من نافذة المشروع اعمل كليك يمين ثم اختر الأمر Insert ثم UserForm لإدراج فورم جديد من صندوق الأدوات Control Box اعمل كليك يمين في مكان فارغ ثم اختر الأمر Additional Controls ابحث عن الخيار Microsoft ListView Control وعلم في المربع بجواره ليتم إدراجه في صندوق الأدوات الآن قم برسم الأداة على الفورم الجديد ثم احفظ المصنف من علامة الحفظ وأخيراً بعد الحفظ قم بحذف الفورم الذي تم إدراجه ، ستظهر لك رسالة اختر منها No الآن قم بتشغيل الفورم الأساسي في الملف ستجد أنه يعمل إن شاء الله ربنا يسهل ويعمل معك

الاخوة الزملاء سبق وعملت مسابقة من سيربح المليون على الرابط التالى والرابط التالى التصميم جميل لكن للاسف الملف غير موجود

فورم بحث في تفسير القرآن الكريم والقران الملف 3 صفحات انظر الصور الملف بحث في تفسير القرآن الكريم.

الاخ صديق شكرا لك

الاخmennad sofiane شكرا لك ونتمنى تعديل الاسم للغة العربية حسب قواعد المنتدى

فورم بحث في تفسير القرآن الكريم والقران الملف 3 صفحات انظر الصور الفيديو الملف بحث في تفسير القرآن الكريم.rar

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

الاخ خالد القدسى والاخ ياسر خليل كل عام وحضرتكم واسرة واعضاء المنتدى بخير بمناسبة بداية شهر ذو الحجة وقرب عيد الاضحى وشكرا لكم

الف شكر

ارسل ملف بوربوينت بالفكرة المطلوبة

جذاك الله خير الفيديو على المنتدى

الاخ العزيز شكرا لك ولهديتك قبل ان اشاهدها