أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





حفظ الصفحات على شكل اكسيل دون حفظ الدوال والارتباطات

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


موضوع مغلق


06-04-2020 10:12 صباحا
bachiri401
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-05-2019
رقم العضوية : 13206
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 16-2-1984
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 18
 offline 

السلام عليكم ورحمة الله وبركاته
 
في الملف المرفق كود من ملف من انجاز خبير من خبراء الاكسيل
 
قمت ببعض التعديلات على الكود من خلال نسخ اكواد اخرى ايضا وجدتها في ملفات أخرى يعني الكود للامانة العلمية ليس من انجازي
 
هذا الكود الان يقوم بحفظ الصفحات من   الى    حفظ قيم على شكل XLS
 
لكنه يقوم بحفظ الصفحة الاولى ثم الصفحة الثانية ويطلب حذف الاولى وهكذا
 
ما اريده هو ان يتم حفظ كل الصفحات على نفس الشكل والتخلص من الدوال والارتبطات لكل الصفحات من    الى  
 
الحفظ يكون في ملف واحد على شكل صفحات متتالية ان امكن او اوراق داخل مصنف واحد
 
وبارك الله فيكم
ظ
 
 
  شهادة مدرسية.xlsm   تحميل xlsm مرات التحميل :(13)
الحجم :(119.869) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمه الله وبركاته

اخى الكريم قم بإلغاء هذا السطر

wb.Worksheets(1).Delete


عدل هذا السطر

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"  ', FileFormat:=xlExcel8


بهذا السطر

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & Range("u1").Value & ".xlsx"  ', FileFormat:=xlExcel8

 
عرض الإجابة




26-08-2020 04:45 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif حفظ الصفحات على شكل اكسيل دون حفظ الدوال والارتباطات
وعليكم السلام ورحمه الله وبركاته

اخى الكريم قم بإلغاء هذا السطر

wb.Worksheets(1).Delete


عدل هذا السطر

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"  ', FileFormat:=xlExcel8


بهذا السطر

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & Range("u1").Value & ".xlsx"  ', FileFormat:=xlExcel8

 

03-09-2020 11:57 مساء
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif حفظ الصفحات على شكل اكسيل دون حفظ الدوال والارتباطات
بارك الله فيك استاذنا



الكلمات الدلالية
الصفحات ، اكسيل ، الدوال ، والارتباطات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:37 مساء