daolabs قام بنشر سبتمبر 14, 2012 قام بنشر سبتمبر 14, 2012 (معدل) السلام عليكم و رحمة الله وبركاته الاخوا الاعظاء الافاضل , ارجوا منكم المساعده في دالة حساب عدد الخلايا التي تحتوي على لون معين التي قام بابداعها الاستاذ عبدالله عبد السلام . ** بعد تثبيت الكود على الملف تقوم الداله بحساب عدد الخلايا التي تحتوي على اللون الازرق عند تلوينها بشكل يدوي , لكنها لا تحتسبها عند تلوينها بشكل الى باستخدام الشروط ( ادخال شروط alt+o+d ) المرجوا منكم المساعده كما عهدنا مخوتكم و شكرا CA E70 SEP BID CLOSER.rar تم تعديل سبتمبر 15, 2012 بواسطه دغيدى
طارق محمود قام بنشر سبتمبر 15, 2012 قام بنشر سبتمبر 15, 2012 السلام عليكم أخي العزيز يمكنك إضافة الأمر DisplayFormat للكود أو بمعني أدق تغيير السطر If rCell.Interior.ColorIndex = color_cell_index Then إلي If rCell.DisplayFormat.Interior.ColorIndex = color_cell_index Then ولكني أخشي ألا يكون فعالا إلا مع الأوفيس 2010
daolabs قام بنشر سبتمبر 15, 2012 الكاتب قام بنشر سبتمبر 15, 2012 السلام عليكم جربة و لم تنفع ، المرجوا المساعده و شكراً
طارق محمود قام بنشر سبتمبر 15, 2012 قام بنشر سبتمبر 15, 2012 أخي العزيز عندك حق الأمر DisplayFormat يعمل فقط مع الكود ولايعمل مع الدوال المخلقة !!! لاأدري لماذا ما رأيك في إدخال الشروط (التنسيق الشرطي) في الكود وبذلك حتي 2003 يستطيع التعامل معها مثلا يمكنك استبدال الدالة الحالية Function Compte_Couleurs(cell_range As Range, color_cell_index) As Integer Dim rCell As Range Dim cell_count As Integer cell_count = 0 For Each rCell In cell_range If rCell.Interior.ColorIndex = color_cell_index Then cell_count = cell_count + 1 End If Next rCell Application.Volatile Compte_Couleurs = cell_count End Function بالدالة التالية Function new_col_Ind(rg As Range) As Integer Dim x As Integer, y As Integer, cl As Range x = 0 For Each cl In rg y = WorksheetFunction.CountIf([A:A], cl) + WorksheetFunction.CountIf([N:W], cl) If y = 4 Then x = x + 1 Next Application.Volatile new_col_Ind = x End Function مرفق الملف بعد التعديل جرب وأخبرني CA E70 SEP BID CLOSER_2.rar
daolabs قام بنشر سبتمبر 16, 2012 الكاتب قام بنشر سبتمبر 16, 2012 السلام عليكم ورحمة الله و بركاته جاري تجربة المرفق و جزاكم الله كل خير
daolabs قام بنشر سبتمبر 18, 2012 الكاتب قام بنشر سبتمبر 18, 2012 السلام عليكم و رحمة الله و بركاتة الاستاذ / طارق محمود و جميع القائمين علي هذا المنتدى الكبير . اولا اود ان اشكركم على مجهوداتكم ثانيا جربت الملف المرسل وكان في قت الروعه , خصوصا انه لا يطلب لون و يقوم بحساب الخانات المضلله , و لاكن عند نقل الدالة الى ملف اخر يحتوي على صفحات اكثر من ثلاثه صفحات لا يعمل ( عدد الصفحات قابل لزياده و النقصان ) , و لتوضيح انا احتاج من الدالة ان تقوم بحساب عدد الخانات الملونه في نطاق معين بجاورها في نفس الصفحة ما بين العامودين N & W ثالثا قمت بعمل قائمة منسدله في العامود F و عند طلبها تظهر بشكل صغير جدا , هل هناك طريقه اجعلها تظهر بشكل كبير و لكم جزيل الشكر و العرفان test.rar
طارق محمود قام بنشر سبتمبر 20, 2012 قام بنشر سبتمبر 20, 2012 السلام عليكم أخي العزيز عذرا لتأخري بالرد أنت غيرت في معادلة التنسيق الشرطي التي بنينا عليها الكود في الأول إذا تغير الرقم 4 في الكود إلي الرقم 11 كما بالتنسيق الشرطي الجديد ستعمل الدالة بلامشاكل الأول If y = 4 Then x = x + 1 Next الثاني If y = 11 Then x = x + 1 Next جرب وأخبرني
daolabs قام بنشر سبتمبر 20, 2012 الكاتب قام بنشر سبتمبر 20, 2012 جزاك الله خير ولاكن ،،،، هل في امكانيه ان اجعل ان غير عدد الصفحات من دون العوده الى محرر الفجول بيسك ؟ لان عددالصفحات يتغير في كل مره .
طارق محمود قام بنشر سبتمبر 20, 2012 قام بنشر سبتمبر 20, 2012 ليست المشكلة في عدد الصفحات المشكلة في معادلة التنسيق الشرطي التي في الصفحة أخبرني ماهي علاقة الرقم 4 أو الرقم 11 بالتنسيق الشرطي برقم الصفحة وسأخبرك بالتعديل اللازم في الكود
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.