الاستاذ مجدى
اضافة وحذف ورقة(برنامج المخزن) 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا اضافة وحذف ورقة(برنامج المخزن) 829894
ادارة المنتدي اضافة وحذف ورقة(برنامج المخزن) 103798

اضافة وحذف ورقة(برنامج المخزن) Uoou_u10


الاستاذ مجدى
اضافة وحذف ورقة(برنامج المخزن) 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا اضافة وحذف ورقة(برنامج المخزن) 829894
ادارة المنتدي اضافة وحذف ورقة(برنامج المخزن) 103798

اضافة وحذف ورقة(برنامج المخزن) Uoou_u10


الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةالأستاذ التعليمأحدث الصورضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل AKM 0 ADEN فمرحبا به


 

 اضافة وحذف ورقة(برنامج المخزن)

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
ahmed mubarak




عدد المساهمات : 21
تاريخ التسجيل : 31/05/2021
العمر : 54
الموقع : الجمهورية اليمنية

اضافة وحذف ورقة(برنامج المخزن) Empty
مُساهمةموضوع: اضافة وحذف ورقة(برنامج المخزن)   اضافة وحذف ورقة(برنامج المخزن) Avatarالسبت يونيو 25, 2022 5:39 am

السلام عليكم ورحمة الله وبركاتة
صباح الخير الاستاذ مجدي
انا قمت بتطبيق اضافه وحذف ورقة في برنامج المخزن وضبط معي الحملله ولكن فيه نقطتين حبيت استفسر منها
1- عند اضافة ورقة جديده تنضاف بنفس المواصفات التي اريدها ولكن ولكن تطلع الورقه المضافه عمودي وليسى افقي بالرغم ان الورقه الاساسيه هي عموديه التي انسخ منها
2- عندما اريد ان اعدل او احذف من داخل الملف على الورقه التي اضفتها الاحظ انها تطلع محميه

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

https://mega.nz/file/6sJSATyB#DMgcQYrOkxYd0x2RyyciAeCeWdHSOvbthSEQgqYrLkc
هذا رابط تطبيق على اضافه وحذف شيت
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3708
تاريخ التسجيل : 22/02/2013
العمر : 68

اضافة وحذف ورقة(برنامج المخزن) Empty
مُساهمةموضوع: رد: اضافة وحذف ورقة(برنامج المخزن)   اضافة وحذف ورقة(برنامج المخزن) Avatarالسبت يونيو 25, 2022 5:59 am

الاخ احمد
عند الاضافة ظهر عندى الشيت عادى انظر الصورة
اضافة وحذف ورقة(برنامج المخزن) Oia12
التحكم فى عرض وطول ومقاس الخط بتتحكم فيه بتعمل الصفحة الرئيسية التى تنسخ منها بطلباتك ثم تاخد كل مقاس فى الصفحة وتحدده فى الاكواد زى الصورة دى
اضافة وحذف ورقة(برنامج المخزن) 13

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

اضافة وحذف ورقة(برنامج المخزن) Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
ahmed mubarak




عدد المساهمات : 21
تاريخ التسجيل : 31/05/2021
العمر : 54
الموقع : الجمهورية اليمنية

اضافة وحذف ورقة(برنامج المخزن) Empty
مُساهمةموضوع: نعم تنضاف صفحه جديده حسب الطلب ولكن عندالنقر بالزر الايمن للصفحه المضافه تريد حذفها من داخل الملف تطلع القائمة محميه وعند عمل معاينه للصفحه التي تم نسخها نلاحظ انها عمودي وليست افقي حسب المطلوب تقريبا المطلوب هو اضافه كود لجعل الصفه افقيه وليست عموديه    اضافة وحذف ورقة(برنامج المخزن) Avatarالسبت يونيو 25, 2022 11:18 am

مجدى يونس كتب:
الاخ احمد
عند الاضافة ظهر عندى الشيت عادى انظر الصورة
اضافة وحذف ورقة(برنامج المخزن) Oia12
التحكم فى عرض وطول ومقاس الخط بتتحكم فيه بتعمل الصفحة الرئيسية التى تنسخ منها بطلباتك ثم تاخد كل مقاس فى الصفحة وتحدده فى الاكواد زى الصورة دى
اضافة وحذف ورقة(برنامج المخزن) 13
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3708
تاريخ التسجيل : 22/02/2013
العمر : 68

اضافة وحذف ورقة(برنامج المخزن) Empty
مُساهمةموضوع: رد: اضافة وحذف ورقة(برنامج المخزن)   اضافة وحذف ورقة(برنامج المخزن) Avatarالسبت يونيو 25, 2022 1:01 pm

الاخ احمد بالنسبة لجعل الصفحة افقى ضع الكود التالى فى اضافة شيت قبل اغلاق الفورم
الكود:
 Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
  
 Application.PrintCommunication = True

فبل السطرين

الكود:
Unload Me
UserForm1.Show
بالنسبة لعدم حذف الصفحة من الشيت وذلك بفعل استخدام الكود ولكن يحذف فعلا باستخدام زر حذف

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

اضافة وحذف ورقة(برنامج المخزن) Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
ahmed mubarak




عدد المساهمات : 21
تاريخ التسجيل : 31/05/2021
العمر : 54
الموقع : الجمهورية اليمنية

اضافة وحذف ورقة(برنامج المخزن) Empty
مُساهمةموضوع: تمام شكرا جزيلا لك    اضافة وحذف ورقة(برنامج المخزن) Avatarالسبت يونيو 25, 2022 2:13 pm

مجدى يونس كتب:
الاخ احمد بالنسبة لجعل الصفحة افقى ضع الكود التالى فى اضافة شيت قبل اغلاق الفورم
الكود:
 Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.7)
        .RightMargin = Application.InchesToPoints(0.7)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
  
 Application.PrintCommunication = True

فبل السطرين

الكود:
Unload Me
UserForm1.Show
بالنسبة لعدم حذف الصفحة من الشيت وذلك بفعل استخدام الكود ولكن يحذف فعلا باستخدام زر حذف
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس


عدد المساهمات : 3708
تاريخ التسجيل : 22/02/2013
العمر : 68

اضافة وحذف ورقة(برنامج المخزن) Empty
مُساهمةموضوع: رد: اضافة وحذف ورقة(برنامج المخزن)   اضافة وحذف ورقة(برنامج المخزن) Avatarالسبت يونيو 25, 2022 10:13 pm

اى خدمة

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

اضافة وحذف ورقة(برنامج المخزن) Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
 
اضافة وحذف ورقة(برنامج المخزن)
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» فورم المخزن كود اضافة شيت وحذف شيت واظهار اسماء الشيتات فى الكمبوبوكس 3
» فورم المخزن كود اضافة عنوان بصفحة الاكسل فى خلية معينة فيديو4
» كود اضافة وحذف الدوائر الحمراء
» اضافة اسم وحذف اسم او اسماء فى الليست الفيديو43
» فورم اضافة وتعديل وحذف وحفظ الملف

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: