مجدى يونس قام بنشر أكتوبر 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
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
هشام جودي قام بنشر ديسمبر 6, 2017 قام بنشر ديسمبر 6, 2017 السلام عليكم اريد يا استاذ كود زر طباعة في الاكسل و لك جزيل الشكر و العرفان
مجدى يونس قام بنشر ديسمبر 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
ahmed1987 قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 السلام علیكم استاذ مجدى عندي سؤالين 1- كيف يمكنني طبع فورم بدون طبع الازرار ؟ 2- عند فتح فورم كيف اتحكم بتنقل (tab) بين (text box) ؟ شكرا على المساعدة
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
هشام جودي قام بنشر فبراير 24, 2019 قام بنشر فبراير 24, 2019 السلام عليكم بارك الله فيكم و جزاكم عنا كل خير
هشام جودي قام بنشر فبراير 24, 2019 قام بنشر فبراير 24, 2019 أريد عمل يوزوفورم بحث و تعديل و جــزاكم الله كل خير لكم جزيل الشكر و الامتنان Classeur1.xlsx
مجدى يونس قام بنشر فبراير 24, 2019 الكاتب قام بنشر فبراير 24, 2019 عملت طلبك فى الحضور والانصراف الى 13 عمود افتح موضوع جديد بطلبك الجديد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.