مجدى على قام بنشر أكتوبر 18, 2011 مشاركة قام بنشر أكتوبر 18, 2011 Book1.rarإخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أنا عندى ملف إكسل عباره عن أسماء لتعليمات الشغل وتعليمات الشغل هذه (تعليمات خاصه بالشركه) وكل تعليمه تأخذ كود فى ملف الإكسيل وهناك خانه بجوار خانة إسم التعليمة تحتوى على تاريخ إنتهاء العمل بهذه التعليمه ويجب إصدار تعليمه جديده إذا وصلنا لهذا التاريخ وإلا يحصل الموظف المسؤل على جزاء إذا لم يقم بتجديد التعليمات المنتهية الصلاحية فيقوم الموظف بحصر كل التعليمات وهى حوالى 400 تعليمه حصرا يدويا وطبعا يحدث خطأ دائما أنا عملت خليه وجعلت فيها تاريخ اليوم وجعلتها مرجع وربط بها الخانات التى فيها تاريخ إنتهاء التعليمات جميعا وإستخدمت فلتر عن طريق conditional formatting بحيث يتغير لون الخلية التى بها التاريخ أمام كل تعليمه عند الوصول إلى التاريخ المكتوب فى هذه الخلية فهل هناك أمر يوضع فى الإكسيل ليعمل تقرير يضع فيه فقط الخلايا التى تظللت باللون الأحمر ويكتب بجوارها الأسم الموجود فى الخليه المجاوره لكل خلية تم تتغير لونها وهى خليه تحتوى على إسم التعليمه ليتمكن الموظف من أخذ هذا التقرير ويقوم بتجديد هذه التعليمات أنا أرفقت الملف ستجد الخليه رقم 2B هى التى وضعت فيها تاريخ اليوم وجعل فلتر لجميع خلايا العمود رقم B ماعدا طبعا الخلية 2B وجعلت الفلتر إذا تاريخ المراجعه للملف المذكور فى أى خليه مساوى لتاريخ اليوم على البرنامج أن يظلل الخلية باللون الأحمر وهذا ما تراه فى الخلايا 8B,12B,19B السؤال هو هل يمكن أن أجعل البرنامج يعطينى تقرير فقط كل شهر أو كل أسبوع بالخلايا التى أصبح لونها أحمر والخلايا التى على يسارها (والتى بها أسماء الملفات )لأتمكن من معرفة إسم الملف وأستطيع تتبعه فى المكتب عندى أو أن يقوم البرنامج بطباعة هذه الخلايا مع الخلايا المجاوره لها على اليسار (والتى بها إسم الملفات) وأرجو من سيادتك أن يكون الشغل بال Excel وليس بال Macro or C++ حتى أتمكن من فهم الخواص التى ستضيفها هذا إن أمكن أما إن كان من الصعب بال excel فقط فلا مانع وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 18, 2011 مشاركة قام بنشر أكتوبر 18, 2011 السلام عليكم و رحمة الله وبركاته هل تريد صفوف تاريخ يوم محدد فقط او تريد الصفوف لكل التواريخ قبل تاريخ كذا وسوف نظهر النتائج في صفحة اخرى بحيث تدخل التاريخ تطلع النتائج بالدوال او المعادلات رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 18, 2011 مشاركة قام بنشر أكتوبر 18, 2011 الاستاذ احمد زمان ابو ابراهيم هذا خيار اخر للسائل ويمكن بالتنسيق الشرطي بالكود (وليس العادي) ثم فرز الملون وطباعته والخيار لك اخي الفاضل ابواحمد رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 19, 2011 الكاتب مشاركة قام بنشر أكتوبر 19, 2011 السيد الفاضل أحمد زمان السلام عليكم أنا أريد طباعة االصف الذى حدث أن تعدى تاريخ اليوم التاريخ الموجود فى خلية تاريخ الملف حتى أتمكن من حذف هذا الملف من مكتبتى (أقصد الملف الورقى وليس الذى على الكمبيوتر) وستجد حضرتك فى الملف المرفق بعض الخلايا التى تم تظليلها باللون الأحمر لتخطيها التاريخ المنصوص عليه وأنا أريد طباعتها تلقائيا من الأكسيل وليس أنا الذى أحدد ثم أطبع أى يقوم الكسيل بحصرهم بنفسه ثم الطباعه لجميع الصفوف التى بها خلايا تم تظليلها بهذا اللون وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 رايح احاول اخلصة الآن رغم اني مشغول جدا اذا لم يخلص اليوم ان شاء الله بكرة الصباح تلاقية جاهز رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 19, 2011 الكاتب مشاركة قام بنشر أكتوبر 19, 2011 السلام عليكم شكرا لك ياسيد أحمدزمان ولكن إذا كان هناك أى تعطيل لأعمالك فإنى سأنتظر فلا ترهق نفسك وتكلفها فوق طاقتها وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 السلام عليكم و رحمة الله وبركاته اخي الفاضل في المرفق يمكنك اخفاء العمود A و الصف رقم 1 = = = = ادخل التاريخ الذي تريدة في الخلية الصفراء تظهر لك كل النتائج قبل هذا التاريخ اذا تركت الخلية الصفراء فارغة يحسب لليوم فقط يمكنك تغيير مسميات العمود في الخلايا الحمراء تظهر لك النتائج حسب اسم العمود مع التحية نسخة من Xl0000051.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 السلام عليكم ماشاء الله استاذ احمد متمكن في المعادلات حل جميل جزاك الله الف خير الى الامام رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 19, 2011 مشاركة قام بنشر أكتوبر 19, 2011 شكرا ابو نصار والله ليك غيبة رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 20, 2011 الكاتب مشاركة قام بنشر أكتوبر 20, 2011 السلام عليكم سيد أحمد زمان لتوضيح الصوره أنا عايز مثل هذا الملف المرفقBook1.rar ستجد حضرتك إن هناك خلايا ملونه بلون أحمر وهى الخلايا التى تاريخها قبل تاريخ اليوم وهوالموجود فى خلية رقم 2B فهل ممكن أن يتم نقل الخلايا الحمراء والخلايا الموجوده على يسارها وهى التى فى العمود رقم A ان يتم نقلهم إلى sheet أخر ثم طباعتهم رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 السلام عليكم ستجد حضرتك إن هناك خلايا ملونه بلون أحمر وهى الخلايا التى تاريخها قبل تاريخ اليوم وهوالموجود فى خلية رقم 2B فهل ممكن أن يتم نقل الخلايا الحمراء والخلايا الموجوده على يسارها وهى التى فى العمود رقم A ان يتم نقلهم إلى sheet أخر ثم طباعتهم وعليكم السلام ورحمة الله وبركاته على قدر فهمي لهذا التوضيح الأخير هذا ماتم تنفيذه بالفعل في المشاركة السابقة او انني لست فاهم ماذا تريد مع التحية رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 السلام عليكم بعد اذنك استاذي القدير احمد زمان الاخ الفاضل هل هذا ماتريده انقر على زر تقرير للون المحدد ولاحظ على sheet2 تفضل المرفق Book2.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 السلام عليكم و رحمة الله وبركاته اخي العيدروس لك مني كل الشكر و التقدير على مشاركتك الفاعالة جزاك الله كل خير وكود رائع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 السلام عليكم الاستاذ الحبيب احمد زمان اشكرك جدا على هذا التشجيع الاخ الفاضل وهذا كود اخر اضنه اضمن مع الطباعه Sub so() Application.ScreenUpdating = False On Error Resume Next Range("a1:m1").AutoFilter Sheets("sheet1").Range("$A$1:$M$2000").AutoFilter Field:=2, Criteria1:=RGB(255, _ 199, 206), Operator:=xlFilterCellColor Cells.Find(What:="Name", After:=[a1], SearchDirection:=xlPrevious).Select row_1 = ActiveCell.Row + 1 Range("a2" & row_1 & ":m" & row_1).Copy Sheets("Sheet2").Range("a3").PasteSpecial Paste:=xlPasteAll Sheets("Sheet1").Range("a1:m1").AutoFilter Field:=2 Application.CutCopyMode = False Application.ScreenUpdating = True Sheets("Sheet2").Select ER = WorksheetFunction.CountA(Range("a:m")) + 1 RN = "A2:m" & ER Sheets("Sheet2").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True Application.ScreenUpdating = False Range("a3:m" & Rows.Count).Clear [a4].Select Application.ScreenUpdating = True Application.Calculation = xlCalc End Sub تحياتي Book2.alidroos.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 أخواني أحمد زمان و العيدروس أبدعتوا بما قدمتوا :) رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 الاخ الفاضل الجزيرة تسلم على مرورك العطر رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 اخى ابو نصار ايه الحلاوة دى جزاك الله خيرا سعد عابد رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 20, 2011 الكاتب مشاركة قام بنشر أكتوبر 20, 2011 السلام عليكم أولا جزاكم الله خيرا الجزاء على وقتكم ومجهودكم ثانيا شكرا للسيد أحمدزمان والسيد pmembers2 حيث نجح معى الملف الذى به الأكواد للأخ pmembers2 المشكلة الوحيدة هى أن الملف بعد أن يقوم بعمل تقرير تجد إن نافذة معاينة الطباعة صغيرة جداااا بحيث لاتستطيع تمييز الكلمات فيها ولكن شكرا للجميع والله لقد أبهرتونى بهذه الخبرة العاليه زادكم الله من علمه رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 20, 2011 مشاركة قام بنشر أكتوبر 20, 2011 الاخ الاستاذ سعد عابد الحلاوة بوجودك ياعسل يسلملي هالطله الاخ الفاضل avogadrow هو اكيد بيصير بهذا الصغر لانه بيحتوي 13 عمود ولاكن اذا اردت اعمدة معينة للتقرير بقدر ازبطه لك بمعن ايه الاعمدة المطلوبة بالتقرير وانا موجود رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أكتوبر 21, 2011 مشاركة قام بنشر أكتوبر 21, 2011 الاخوة الاساتذة : رجل المهام الصعبة " احمد زمان " العزيز اخي العيدروس " ابو نصار " جزاكم الله كل الخير وفقكم الله ابو الحارث رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 21, 2011 الكاتب مشاركة قام بنشر أكتوبر 21, 2011 السلام عليكم شكرا لإهتمامك السريع أنا أهم أعمده عندى هم ال A,B,F الطلبا الأخر هل ممكن شرح لكل سطر فى الكود وإستخدامه حتى أستطيع أخذ هذه الأكواد وأضيفها على باقى الملفات مع التغيير طبعا حيث أن باقى الملفات ترتيب الأعمده فيها مختلف وكذلك ترتيب الشيتات وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 تفضل Book3.alidroos.rar رابط هذا التعليق شارك More sharing options...
مجدى على قام بنشر أكتوبر 22, 2011 الكاتب مشاركة قام بنشر أكتوبر 22, 2011 السلام عليكم شكرا جزيلا لتعبك معى الصراحه قمة الإحتراف هذا هو المطلوب بالظبط بس هل ممكن شرح للكود حتى أتمكن من التعديل فيه إن أمكن ولكن دون أن ترهق نفسك رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 السلام عليكم شكرا جزيلا لتعبك معى الصراحه قمة الإحتراف هذا هو المطلوب بالظبط بس هل ممكن شرح للكود حتى أتمكن من التعديل فيه إن أمكن ولكن دون أن ترهق نفسك مرة اخرى ومرات عديدة تشكر اخي الاستاذ ابو نصار استفدت من عملك جدا وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 22, 2011 مشاركة قام بنشر أكتوبر 22, 2011 تفضل لعله يفيد هذا الشرح على الكود Sub so() Application.ScreenUpdating = False On Error Resume Next 'تحديد رؤس الاعمدة التي تحتوي البيانات للفلترة Range("a1:m1").AutoFilter ' فلترة حسب اللون الذي محدد في التنسيق الشرطي من اول خليه الى الخلية 2000 Sheets("sheet1").Range("$A$1:$M$2000").AutoFilter Field:=2, Criteria1:=RGB(255, _ 199, 206), Operator:=xlFilterCellColor ' وهذا بحث عن كلمة NAME وتحديد الخلية Cells.Find(What:="Name", After:=[a1], SearchDirection:=xlPrevious).Select ' تحديد صف الخلية row_1 = ActiveCell.Row ' تقليص التحديد من خلية a2 الى عمود m وعمل نسخ Range("a2" & row_1 & ":m" & row_1).Copy ' لصق التحديد في خلية a3 sheet2 Sheets("Sheet2").Range("a3").PasteSpecial Paste:=xlPasteAll 'الغاء الفلترة بعد عملية اللصق Sheets("Sheet1").Range("a1:m1").AutoFilter Field:=2 ' لالغاء التحديد التابع للنسخ Application.CutCopyMode = False Application.ScreenUpdating = True ' تحديد شيت التقرير الذي هو sheet2 Sheets("Sheet2").Select ' لحذف الاعمدة التي دون A,B,F Sheets("Sheet2").Range("c:c,d:d,e:e,g:g,h:h,i:i,j:j,k:k,l:l,m:m").Delete ' تلاْم البيانات في عمود C sheet2 Columns("c:c").AutoFit ' تحديد المدى الذي فيه بيانات في sheet2 لعمل معاينة للطباعه ER = WorksheetFunction.CountA(Range("a:f")) + 1 RN = "A2:m" & ER Sheets("Sheet2").Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True Application.ScreenUpdating = False ' بعد اغلاق المعاينة يتم مسح التقرير Range("a3:m" & Rows.Count).Clear ' الرجوع الى Sheet1 Sheets("Sheet1").Select Application.ScreenUpdating = True Application.Calculation = xlCalc End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.