حسام ميلكانا قام بنشر أغسطس 6, 2015 قام بنشر أغسطس 6, 2015 برجاء من السادة الزملاء مساعدتى فى وتوجيهى فى كيفية وضع كود محدد المدة فى هذا الشيط المكون من 15 شيط واحيانا يكون 30 شيك بشيط واحد حيث اننى لم اتمكن من كيفية وضع المود هل يتم وضعة داخل الورك بوك ام فى الميديول وشكرا ليكم وجواكم الله خيرا الوزن.rar
بن علية حاجي قام بنشر أغسطس 6, 2015 قام بنشر أغسطس 6, 2015 في الحقيقة لم أفهم شيئا من الموضوع، الشرح غير كافي والمطلوب بالضبط مبهم... وإذا كان المطلوب هو مكان وضع كود لإمكانية تطبيقه على كل الشيتات في المصنف فلك الخيار أن تضعه داخل Workbook (إذا كنت تنفيذه تلقائيا على كل الشيتات) أو في Module (ولكن في هذه الحالة يتم تنفيذه يدويا -بطريقة مباشرة أو عن طريق زر Button-)....
ياسر خليل أبو البراء قام بنشر أغسطس 6, 2015 قام بنشر أغسطس 6, 2015 أخي الحبيب حسام لم أفهم المطلوب يرجى التوضيح مع إرفاق بعض النتائج المتوقعة .. وهل أوراق العمل بها بيانات أم أنها فارغة مجرد تسطيرة وتواريخ ...يرجى إرفاق نموذج وهمي من البيانات وتوضيح المطلوب بشكل تفصيلي وقبل ذلك قم بالإطلاع على التوجيهات لتعرف كيفية التعامل مع المنتدى تقبل تحياتي
حسام ميلكانا قام بنشر أغسطس 9, 2015 الكاتب قام بنشر أغسطس 9, 2015 السادة - بن علية وابو البراء شكرا لكم كثيرا على الاستجابة السريعة وردكم وسمحونى اذا كنت لا اجيد التعبير عن المطلوب اريد ان يتم وضع كود محدد المدة بشهر او يوم او اى مدة يتم تحديدها Sheet 31 : Sheet 1 هذا شيط اكسل مكون من وطبعا اخى ياسر الشيط بة بيانات فاين يتم وضع الكود ارجو ان اكون قد استطعت ان يكون شرحى يفى بالغرض مرفق شيط تقرير الوزن اليومى 100 جم ).rar
ياسر خليل أبو البراء قام بنشر أغسطس 9, 2015 قام بنشر أغسطس 9, 2015 لم أفهم المطلوب أيضاً ..عبر بأسلوب تاني بكلمات أخرى بأمثلة من الملف المرفق أين تريد النتائج في أي ورقة عمل ؟ ما المقصود بكود محدد المدة بشهر أو بيوم .. حتى تتضح الأمور يمكنك إرفاق النتائج المتوقعة .................
حسام ميلكانا قام بنشر أغسطس 9, 2015 الكاتب قام بنشر أغسطس 9, 2015 استاذى / ساسر خليل صباح الفل الشيط المرفق دة انا انا عاوزن اضع كود محدد المدة بشهر اين يتم وضع الكود ولا اريد اى نتائج انا عاوزن كود يكون صلاحيتة لمدة شهر بعد انتهاء الشهر يتم التخلص من الشيط يعنى انا عاوز بعد الشهر ما ينتهى مش عاوز اشوف الشيط ثانى يارب اكون قد وفقت فى توصيل المعلومة وسامحونى فانتم ملوك الفيجوال بيسك لكم لغة خاصة وشكرا اخى استاذى وحبيب الكل ياسر خليل - ابو البراء
حسام ميلكانا قام بنشر أغسطس 10, 2015 الكاتب قام بنشر أغسطس 10, 2015 للرفع واتمنى ان اكون شرحى للمطلوب مقبول ومفهوم انا عاوز كود اضعة فى الشيط المرفق ( الوزن ) يكون محدد بشهر ( يكون صلاحية الشيط شهر ) يارب الاقى طلبى عندكم وشكرا لكم ايها الفرسان
مختار حسين محمود قام بنشر أغسطس 10, 2015 قام بنشر أغسطس 10, 2015 (معدل) أخى حسام أولا لو كنت جربت وضع كود فى ملفك المرفق مش هينفع لان امتداده xlsx لو وضعت فيه كود مش هتلاقيه دى حاجة يجب أن تعرفها أولا سيبك من ده وسيبك من الكود يتحط فين وجاوبنى الأول : أنت ملفك المرفق فيه 31 شيت + شيت باسم : متوسط اوزان الشهر هل تريد مسح البيانات من كل الملف ولا من شيتات بعينها وذلك بعد مدة محددة أم تريد حذف شيتات معينة بعد مدة محددة يعنى ما تلاقيش الشيت نهائيا ؟ جاوب وان شاء الله تتحل . تم تعديل أغسطس 10, 2015 بواسطه مختار حسين محمود 1
حسام ميلكانا قام بنشر أغسطس 11, 2015 الكاتب قام بنشر أغسطس 11, 2015 استاذى الكبير- مختار حسين انا فعلا سعيد بتجاوبكم معايا وردكم ربنا يكرمكم ويجعلة فى ميزان حسناتكم اخى الكريم انا عاوز بعد شهر مثلا او مدة احددها انا من خلال الكود ما لاقيش الشيت نهائى ويتم حذفة بجميع شيتاتة وانت اصبت اخى واستاذى الكريم بعد مدة محددة يعنى ما تلاقيش الشيت نهائيا ؟ وشكرا ليكم جميعا استاذى بن علية واستاذى ياسر خليل واستاذى مختار حسين شكرا شكرا شكرا
ياسر خليل أبو البراء قام بنشر أغسطس 11, 2015 قام بنشر أغسطس 11, 2015 أخي الكريم حسام قم بوضع الكود التالي في حدث المصنف Private Sub Workbook_Open() 'يقوم الكود بحذف جميع أوراق العمل بعد تاريخ محدد '----------------------------------------------- Dim exDate As Date, SH As Worksheet exDate = "10/08/2015" Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlManual If Date >= exDate Then If MsgBox("سيتم حذف أوراق العمل .. هل أنت متأكد من هذا الإجراء", vbExclamation + vbYesNo) = vbYes Then For Each SH In ThisWorkbook.Sheets If SH.Name <> "متوسط اوزان الشهر " Then SH.Delete Next SH Else MsgBox "لم يتم حذف أوراق العمل لأنك قمت بإلغاء المهمة", vbInformation End If Else MsgBox ("لن يتم حذف أوراق العمل إلا بعد مرور " & exDate - Date & " يوم"), vbInformation End If Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub الكود مرتبط بالتاريخ فإذا كان التاريخ أقل من أو يساوي تاريخ اليوم يتم الحذف Delete Sheets After Specific Date.rar
حسام ميلكانا قام بنشر أغسطس 11, 2015 الكاتب قام بنشر أغسطس 11, 2015 الباشا - استاذنا الكبير الى ربنا يبارك لنا فيك حاجة فى منتهى الجمال الله ينور عليك ممكن اطمع فيك شوية ممكن كود يقوم بعمل حذف للشيط بدون علم المستخدم وممكن كمان المدة احددها زى ما انا عاوز ممكن وربنا ما يحرمنا منك يا كبير
عبد العزيز البسكري قام بنشر أغسطس 11, 2015 قام بنشر أغسطس 11, 2015 السّلام عليكم و رحمة الله و بركاته بعد إذن أساتذتنا الأفاضل ..ابن علية حاجي ..ياسر خليل أبو البراء ..مختار حسين محمود .. محاولة أخرى إثراء لموضوع الأخ حسام ميلكانا .. تم وضع الكود في حدث الذيس وورك بوك ويمكنك التغيير فيه مثلما شئت من حيث اسم شيت الاعدادات و ملاحظات التقرير عن الوضعية .. فقط ألفت انتباهك أنّ شيت الاعدادات المسمّاة "ميلكانا" قد يمكنك جعلها مخفية أو تغيير اسمها مثلما ذكرت لكن لا يمكن بأي حال من الأحوال حذفها .. لأنّه فيها يتم تسجيل اسم الشيت المراد حذفها و التاريخ و التوقيت والتقرير عن الوضعية ..كل ما عليك فعلة وهو كتابة اسم الشيت المراد حذفه في العمود A وكتابة تاريخ و توقيت الحذف في العمود B . تحياتي و احتراماتي ميلكانا.rar
حسام ميلكانا قام بنشر أغسطس 12, 2015 الكاتب قام بنشر أغسطس 12, 2015 اخى الكريم / عبد العزيز شكرا لك على ردك الجميل ولكن الشيط مش عاوز يفتح برجاء المحاولة ورفعة مرة اخرى وللعلم انا عارف ان انا تعبتكم معايا الخلاصة للموضوع ان يتم وضع كود بالشيط يقوم بحذفة تماما بعد مدة محددة بدون علم المستخدم ان الشيط يم حذفة وشكرا لكم جميعا وجزاكم الله كل خير
عبد العزيز البسكري قام بنشر أغسطس 12, 2015 قام بنشر أغسطس 12, 2015 السلام عليكم و رحمة الله وبركاته تفضّل أخي الكريم الملف : ميلكانا.rar
مختار حسين محمود قام بنشر أغسطس 12, 2015 قام بنشر أغسطس 12, 2015 أستاذنا ياسر بارك الله فيك وجازاكم خيرا أخى زيزو البسكرى الكود فى ملفك فكرته جميله بجد الله ينور أخى حسام ده تعديل لكود أستاذنا ياسر الحذف يكون بدون علم المستخدم كما فى مرفق أخونا عبدالعزيز الكود فيه تاريخ بامكانك تعديله اذا كان تاريخ اليوم أكبر أو يساوى التاريخ اللى فى الكود مش هتلاقى الشيتات ما عدا واحد فقط اللى اسمه فى الكود "متوسط اوزان الشهر " الكود يوضع فى حدث المصنف Option Explicit Private Sub Workbook_Open() 'يقوم الكود بحذف جميع أوراق العمل بعد تاريخ محدد '----------------------------------------------- Dim exDate As Date, SH As Worksheet exDate = "10/08/2015" Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlManual If Date >= exDate Then For Each SH In ThisWorkbook.Sheets If SH.Name <> "متوسط اوزان الشهر " Then SH.Delete Next SH End If Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تحياتى
حسام ميلكانا قام بنشر أغسطس 13, 2015 الكاتب قام بنشر أغسطس 13, 2015 استاذى مختار حسين بارك الله فيكم جميعا وجعل الله ما تفعلونة معنا فى ميزان حسناتكم بس انا ليا سؤال لو الكود دة حبيت استخدمة فى شيط اخر ينفع ولا جزاكم الله كل خير السادة اساتذة المنتدى الكرام انا جربت الكود بالفعل يقوم بعمل حذف لكل الشيتات ما عدا الشيط الاخير متوسط اوزان الشهر ولكن عند غلق الشيط بيسال انت عاوزن تعمل سيف للشيط ولا لاء لو عملت سيف بيكون حذف الاوراق وان لم يتم عمل سيف للشيط يرجع زى ما هو وهذا الاجراء مش هو دة المطلوب انا اريد كود يقوم بحذف الشيط كلة ينسفة من مكانة بدون علم المستخدم انا عارف ان طلباتى كثيرة ولكن انا طمعان فيكم جزاكم الله كل خير
ياسر خليل أبو البراء قام بنشر أغسطس 13, 2015 قام بنشر أغسطس 13, 2015 جرب التعديل البسيط Private Sub Workbook_Open() Dim exDate As Date, SH As Worksheet exDate = "10/08/2015" Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlManual If Date >= exDate Then For Each SH In ThisWorkbook.Sheets If SH.Name <> "متوسط اوزان الشهر " Then SH.Delete Next SH ThisWorkbook.Save End If Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
حسام ميلكانا قام بنشر أغسطس 13, 2015 الكاتب قام بنشر أغسطس 13, 2015 اخى ياسر خليل انا فعلا اسف من كثرة طاباتى انا بتمنى يا اخى ان اجد كود يقوم بحذف الشيط بعد مدة ( ينسفة مش عاوز اشوفة ثانى ) ومش عاوز لية اى اثر وبدون ما يشعر المستخدم وخلى بالك اخى الكريم ان الكود ياريت يسمح ان انا استخدمة فى شيتات اخرى وانا محتاج لهذا الكود ضرورى ارجو ان تعذرنى وتسامحنى على كثرة طلباتى واشكركم جميعا جزاكم الله كل خير
حسام ميلكانا قام بنشر أغسطس 13, 2015 الكاتب قام بنشر أغسطس 13, 2015 وممكن لو فى كود بعدد مرات الفتح المهم ان الشيط ينتهى من الوجود بعد عدد المرات التى يتم تحديدها وحاجة ثانية مهمة ممكن اعمل سيف للشيط Excel 97-2003 Workbook على شان دى مهمة جداا بالنسبة ليا ارجو المعذرة من كثرة الطلبات فلولا كرمكم ما تجرأت على كل هذة الطلبات جزاكم الله كل خير
ياسر خليل أبو البراء قام بنشر أغسطس 13, 2015 قام بنشر أغسطس 13, 2015 جرب الكود التالي .. Private Sub Workbook_Open() Dim X As Long, WS As Worksheet, SH As Worksheet Set WS = Sheets("متوسط اوزان الشهر ") X = WS.Range("XFD1").Value Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlManual If X > 5 Then For Each SH In ThisWorkbook.Sheets If SH.Name <> "متوسط اوزان الشهر " Then SH.Delete Next SH Else WS.Range("XFD1").Value = X + 1 End If ThisWorkbook.Save Application.Calculation = xlAutomatic Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 1
عبد العزيز البسكري قام بنشر أغسطس 13, 2015 قام بنشر أغسطس 13, 2015 بارك الله فيك أستاذنا العزيز ياسر خليل على الأكواد الرائعة و الموفقة ..جزاك الله خيرًا
حسام ميلكانا قام بنشر أغسطس 13, 2015 الكاتب قام بنشر أغسطس 13, 2015 اخى الكريم واستاذى العزيز - ياسر خليل انا شاكر جدا تعبك نعايا واكوادك الجميلة التى بمثابة الذهب ارجو منك اخى ان تعذرنى انا وضعت الكود فى الورك بوك فعند فتح الشيط اعطانى هذا الخطأ المرفق ارجو منك ان تعذرنى وتتحملنى وخليك معايا شوية وارجو ان لا تمل منى لانى عارف انى ثقيل بطلباتى تذكر يا اخى ان انا عاوز الكود سواء كان بمدة معينة او بعدد مرات للفتح وهل ممكن ان اقوم باستخدام هذا الكود بشيط اخر باسم اخر وشكرا ليك اخى الكريم وجزاك الله كل خير
ياسر خليل أبو البراء قام بنشر أغسطس 13, 2015 قام بنشر أغسطس 13, 2015 ممكن تكون شغال على 2003 ..عشان كدا بتحصل المشكلة معاك جرب تغير XFD1 إلى مثلاً AA1 أو أي عمود بعيد عن البيانات
حسام ميلكانا قام بنشر أغسطس 14, 2015 الكاتب قام بنشر أغسطس 14, 2015 اخى الكريم ياسر حليل انا شغال على 2007 مش 2003 برجاء انا مش متمكن مثلك فى الاكسل فارجو منك المساعدة السريعة وشكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.