amir501 قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 اخواني الكود الاول: يقوم بتحويل المعادالات الى قيم والكود الثاني يقوم باخفاء جميع الصفحات المطلوب: كيف اجمع عمل الكودين معا اي بعد ان يقوم الكود بتحويل المعادلات الى قيم يقوم الكود الثاني بحفظ عمل الكود الاول واخفاء جميع الصفحات ثم اغلاق الملف لكود الاول Sub mm() Dim Expiry As Date Expiry = DateValue("10/07/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL Next S End If End Sub لكود الثاني ..وهو اخفاء جميع الصفحات Sub hh() Application.Calculation = xlAutomatic Application.ScreenUpdating = False sheet2.Visible = xlSheetVeryHidden sheet3.Visible = xlSheetVeryHidden sheet4.Visible = xlSheetVeryHidden sheet5.Visible = xlSheetVeryHidden sheet1.Visible = True sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub
أيسم إبراهيم قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 السلام عليكم تفضل المرفق أخي الكريم تم إدماج الكودين في كود واحد و تم عمل كود لإظهار أوراق العمل بعد الفتح من جديد دمت بخير أيسم إبراهيم Aysam.rar
amir501 قام بنشر أغسطس 2, 2010 الكاتب قام بنشر أغسطس 2, 2010 السلام عليكم تفضل المرفق أخي الكريم تم إدماج الكودين في كود واحد و تم عمل كود لإظهار أوراق العمل بعد الفتح من جديد دمت بخير أيسم إبراهيم اخي ايسم اشكرك على هذا التجاوب ولكن اخي ايسم ان الكود لايعمل تلقائيا الا بعد الضغظ على امر التشغيل هل يمكن تصحيح الكود بحيث ان يعمل عند تشغيل الملف تلقائيا طبعا بعد مرور التاريخ المحدد بالكود وجزاك الله كل خير
أيسم إبراهيم قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 السلام عليكم تفضل المرفق أخي الكريم تم إدماج الكودين في كود واحد و تم عمل كود لإظهار أوراق العمل بعد الفتح من جديد دمت بخير أيسم إبراهيم اخي ايسم اشكرك على هذا التجاوب ولكن اخي ايسم ان الكود لايعمل تلقائيا الا بعد الضغظ على امر التشغيل هل يمكن تصحيح الكود بحيث ان يعمل عند تشغيل الملف تلقائيا طبعا بعد مرور التاريخ المحدد بالكود وجزاك الله كل خير السلام عليكم أخي الكريم لو جعلنا الكود يعمل تلقائيا عند تشغيل الملف و بعد مرور التاريخ المحدد بالكود كما تريد كلما ستفتح الملف سيقوم بإخفاء الأوراق الحفظ و الإغلاق وبالتالي لن تستطيع العمل على الملف على العموم أنا نفذت المطلوب على ملفك انظر ما سيحدث بنفسك Aysam.rar
amir501 قام بنشر أغسطس 2, 2010 الكاتب قام بنشر أغسطس 2, 2010 السلام عليكم تفضل المرفق أخي الكريم تم إدماج الكودين في كود واحد و تم عمل كود لإظهار أوراق العمل بعد الفتح من جديد دمت بخير أيسم إبراهيم اخي ايسم اشكرك على هذا التجاوب ولكن اخي ايسم ان الكود لايعمل تلقائيا الا بعد الضغظ على امر التشغيل هل يمكن تصحيح الكود بحيث ان يعمل عند تشغيل الملف تلقائيا طبعا بعد مرور التاريخ المحدد بالكود وجزاك الله كل خير السلام عليكم أخي الكريم لو جعلنا الكود يعمل تلقائيا عند تشغيل الملف و بعد مرور التاريخ المحدد بالكود كما تريد كلما ستفتح الملف سيقوم بإخفاء الأوراق الحفظ و الإغلاق وبالتالي لن تستطيع العمل على الملف على العموم أنا نفذت المطلوب على ملفك انظر ما سيحدث بنفسك استاذي ايسم جزاك الله كل خير هذا ما ابحث عنه وهو المطلوب ...لكن عندي طللب صغير كنت قد طلبتهة من قبل ولكن لم احصل على اجابته وهو ان الكود الذي يقوم بتحويل المعادلات الى قيمها يعمل على كامل الاوراق هل يمكن تعديل الكود بحيث ان نختار من خلال الكود الصفحات التي سنقوم بمسح معادلاتها ونبقى الصفحات الاخرى بمعادلاتها ودالااتها دون تغيير ...كما ان الكود لا يعمل اذا كانت الصفحات محمية .....وجزاك الله كل خير
أيسم إبراهيم قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 السلام عليكم الأخ الكريم تم إضافة أداة الإدخال لاختيار ورقة العمل التي سيتم تنفيذ الكود عليها أعتقد أن هذا ما تريد دمت بخير أيسم إبراهيم Aysam.rar
amir501 قام بنشر أغسطس 3, 2010 الكاتب قام بنشر أغسطس 3, 2010 السلام عليكم الأخ الكريم تم إضافة أداة الإدخال لاختيار ورقة العمل التي سيتم تنفيذ الكود عليها أعتقد أن هذا ما تريد دمت بخير أيسم إبراهيم الله ياا ستاذ ايسم كما يقولون عمار يامصر ياام الدنيا...تمام يا استاذ ايسم ...مع تعديل بسيط وهو الغاء اداة الاختيار نحن نحدد الاوراق عن طريق الكود نفسه ونتركه يعمل تلقائيا .. دون ترك مجال الاختيار للمستخدم ....اريده ان يعمل تلقائيا.... واكرر شكري وامتناني لك ياستاذ ايسم
أيسم إبراهيم قام بنشر أغسطس 3, 2010 قام بنشر أغسطس 3, 2010 Sub mm() Dim Expiry As Date Expiry = DateValue("10/07/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual Sheets(2).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL End If Application.Calculation = xlAutomatic Application.ScreenUpdating = False Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet4.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet1.Visible = True Sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub جرب الكود المرفق يقوم بتنفيذ الكود على ورقة 2 ويمكنك تغيير اسم الورقة من السطر التالي Sheets(2).Activate أتمنى أن يكون هذا ما تريد دمت بخير أيسم إبراهيم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.