وسيم العش قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 (معدل) السادة الأعضاء الاعزاء بالمرفق جدول أرشيف , والمطلوب : أريد كود يضمن لي تلوين الخلايا التي لا تتبع تسلسل الأرقام بلون أحمر في العمود ( C ) أرجو أن أجد عندكم طلبي والله ولي التوفيق archives.rar تم تعديل سبتمبر 24, 2012 بواسطه وسيم العش رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 السلام عليكم جرب الكود التالي: Sub KH_TEST() Dim Last As Long, i As Long Dim v1 As Double, v2 As Double ''''''''''''''''''''''''''''''''' Last = Cells(Rows.Count, "c").End(xlUp).Row Range("c2:c" & Last).Font.ColorIndex = 0 ''''''''''''''''''''''''''''''''' v1 = Val(Right(Range("c2"), 6)) - 1 ''''''''''''''''''''''''''''''''' For i = 2 To Last v2 = Val(Right(Range("c" & i), 6)) If v2 - v1 = 1 Then v1 = v2 Else Cells(i, "c").Font.ColorIndex = 3 End If Next End Sub رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 عالمنا الجليل وعملاق منتدانا وأستاذ الكل ( عبد الله باقشير ) زادك الله من علمة وبلغك أعلي مراتبة بجد لقد حاولت عملها بالمعادلات وولكن في أجزاء منها كانت تفشل وأستخدمت جمع محتوي الخلية من أرقام (مجموع الأرقام المكونة لعدد ما ) وطرحها من رقم العمود ومساواتها بالواحد ولكنها لم تعطني الأجابة الشافية لذلك ذهبت نتيجتها وخضعت لمروضها الذي أستكانت وأستسلمت له عن جدارة وتمكن بارك الله فيك معلمي وجعلك ملاذا لنا للحل الأمثل رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 24, 2012 مشاركة قام بنشر سبتمبر 24, 2012 اخي عبد الله حاولت في الملف و ادخلت الكلمتين المحجوزتين Right و Offset لكنني فشلت بسب الحرف بجاني الارقام وعندما اطلعت على الكود الذي ارسلته في مشاركتك رقم 2 اكتشفت شيئين : حصرتي / و ذكاؤك . زادك الله علما على علم و صدقني والله اني اتمتع برؤية الاكواد التي تكتبها رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 25, 2012 مشاركة قام بنشر سبتمبر 25, 2012 عالمنا الجليل وعملاق منتدانا وأستاذ الكل ( عبد الله باقشير ) زادك الله من علمة وبلغك أعلي مراتبة بجد لقد حاولت عملها بالمعادلات وولكن في أجزاء منها كانت تفشل وأستخدمت جمع محتوي الخلية من أرقام (مجموع الأرقام المكونة لعدد ما ) وطرحها من رقم العمود ومساواتها بالواحد ولكنها لم تعطني الأجابة الشافية لذلك ذهبت نتيجتها وخضعت لمروضها الذي أستكانت وأستسلمت له عن جدارة وتمكن بارك الله فيك معلمي وجعلك ملاذا لنا للحل الأمثل السلام عليكم اكرمك الله على كلماتك الطيبه و حسن اخلاقك حفظك الله ورعاك تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 25, 2012 مشاركة قام بنشر سبتمبر 25, 2012 اخي عبد الله حاولت في الملف و ادخلت الكلمتين المحجوزتين Right و Offset لكنني فشلت بسب الحرف بجاني الارقام وعندما اطلعت على الكود الذي ارسلته في مشاركتك رقم 2 اكتشفت شيئين : حصرتي / و ذكاؤك . زادك الله علما على علم و صدقني والله اني اتمتع برؤية الاكواد التي تكتبها هذا بفضل الله اخي الحبيب ابو حنين زادك الله علما حتى ترضى تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
وسيم العش قام بنشر سبتمبر 25, 2012 الكاتب مشاركة قام بنشر سبتمبر 25, 2012 أستاذي الكريم عبد الله منذ زمن وأنا أتتبع حلولك الفذة وطريقة رؤيتك وتحليلك الفريد لها , واليوم أتشرف بأن أعمل على كود أنت من ابتكرته لي . زادك الله تعالى علماً وبارك بأعمالك الطيبة وجعلها في ميزان حسناتك . وشكراً لكل الأخوة الذين عملوا وجاهدوا في حل سؤالي . شكراً لكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان