مجدى يونس قام بنشر أكتوبر 29, 2017 مشاركة قام بنشر أكتوبر 29, 2017 فورم طباعة الفورم بالكامل الفيديو ' لو الثلاثة فيهم بيانات 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 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أكتوبر 31, 2017 مشاركة قام بنشر أكتوبر 31, 2017 رابط هذا التعليق شارك More sharing options...
mennad sofiane قام بنشر أكتوبر 31, 2017 مشاركة قام بنشر أكتوبر 31, 2017 في ٢٨/١٠/٢٠١٧ at 21:02, مجدى يونس said: فورم طباعة الفورم بالكامل الفيديو ' لو الثلاثة فيهم بيانات 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 السلام عليكم ورحمة الله وبركاته قبل وكل شيئ لقد اشتقنا اليك أستاذ مجدى و الفيديو كان رائع جدا مشكووور. 3 1 رابط هذا التعليق شارك More sharing options...
ابو محمد وهبي قام بنشر نوفمبر 1, 2017 مشاركة قام بنشر نوفمبر 1, 2017 بارك الله فيك .... رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 1, 2017 الكاتب مشاركة قام بنشر نوفمبر 1, 2017 وبارك فيكم والف شكر ووحشنى جميعا رابط هذا التعليق شارك More sharing options...
هشام جودي قام بنشر ديسمبر 6, 2017 مشاركة قام بنشر ديسمبر 6, 2017 السلام عليكم اريد يا استاذ كود زر طباعة في الاكسل و لك جزيل الشكر و العرفان رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر ديسمبر 7, 2017 الكاتب مشاركة قام بنشر ديسمبر 7, 2017 الاخ هشام وعليكم السلام ورحمة الله وبركاتة Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub معاينة طباعة مع امكانية الطباعه.rar رابط هذا التعليق شارك More sharing options...
ahmed1987 قام بنشر ديسمبر 24, 2017 مشاركة قام بنشر ديسمبر 24, 2017 السلام علیكم استاذ مجدى عندي سؤالين 1- كيف يمكنني طبع فورم بدون طبع الازرار ؟ 2- عند فتح فورم كيف اتحكم بتنقل (tab) بين (text box) ؟ شكرا على المساعدة رابط هذا التعليق شارك More sharing options...
arsalan قام بنشر ديسمبر 27, 2017 مشاركة قام بنشر ديسمبر 27, 2017 في 10/29/2017 at 10:02, مجدى يونس said: فورم طباعة الفورم بالكامل الفيديو ' لو الثلاثة فيهم بيانات 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 رابط هذا التعليق شارك More sharing options...
هشام جودي قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 السلام عليكم بارك الله فيكم و جزاكم عنا كل خير رابط هذا التعليق شارك More sharing options...
هشام جودي قام بنشر فبراير 24, 2019 مشاركة قام بنشر فبراير 24, 2019 أريد عمل يوزوفورم بحث و تعديل و جــزاكم الله كل خير لكم جزيل الشكر و الامتنان Classeur1.xlsx رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر فبراير 24, 2019 الكاتب مشاركة قام بنشر فبراير 24, 2019 عملت طلبك فى الحضور والانصراف الى 13 عمود افتح موضوع جديد بطلبك الجديد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.