وسيم العش قام بنشر سبتمبر 24, 2012 قام بنشر سبتمبر 24, 2012 (معدل) السادة الأعضاء الاعزاء بالمرفق جدول أرشيف , والمطلوب : أريد كود يضمن لي تلوين الخلايا التي لا تتبع تسلسل الأرقام بلون أحمر في العمود ( C ) أرجو أن أجد عندكم طلبي والله ولي التوفيق archives.rar تم تعديل سبتمبر 24, 2012 بواسطه وسيم العش
عبدالله باقشير قام بنشر سبتمبر 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
جمال عبد السميع قام بنشر سبتمبر 24, 2012 قام بنشر سبتمبر 24, 2012 عالمنا الجليل وعملاق منتدانا وأستاذ الكل ( عبد الله باقشير ) زادك الله من علمة وبلغك أعلي مراتبة بجد لقد حاولت عملها بالمعادلات وولكن في أجزاء منها كانت تفشل وأستخدمت جمع محتوي الخلية من أرقام (مجموع الأرقام المكونة لعدد ما ) وطرحها من رقم العمود ومساواتها بالواحد ولكنها لم تعطني الأجابة الشافية لذلك ذهبت نتيجتها وخضعت لمروضها الذي أستكانت وأستسلمت له عن جدارة وتمكن بارك الله فيك معلمي وجعلك ملاذا لنا للحل الأمثل
أبو حنــــين قام بنشر سبتمبر 24, 2012 قام بنشر سبتمبر 24, 2012 اخي عبد الله حاولت في الملف و ادخلت الكلمتين المحجوزتين Right و Offset لكنني فشلت بسب الحرف بجاني الارقام وعندما اطلعت على الكود الذي ارسلته في مشاركتك رقم 2 اكتشفت شيئين : حصرتي / و ذكاؤك . زادك الله علما على علم و صدقني والله اني اتمتع برؤية الاكواد التي تكتبها
عبدالله باقشير قام بنشر سبتمبر 25, 2012 قام بنشر سبتمبر 25, 2012 عالمنا الجليل وعملاق منتدانا وأستاذ الكل ( عبد الله باقشير ) زادك الله من علمة وبلغك أعلي مراتبة بجد لقد حاولت عملها بالمعادلات وولكن في أجزاء منها كانت تفشل وأستخدمت جمع محتوي الخلية من أرقام (مجموع الأرقام المكونة لعدد ما ) وطرحها من رقم العمود ومساواتها بالواحد ولكنها لم تعطني الأجابة الشافية لذلك ذهبت نتيجتها وخضعت لمروضها الذي أستكانت وأستسلمت له عن جدارة وتمكن بارك الله فيك معلمي وجعلك ملاذا لنا للحل الأمثل السلام عليكم اكرمك الله على كلماتك الطيبه و حسن اخلاقك حفظك الله ورعاك تقبل تحياتي وشكري
عبدالله باقشير قام بنشر سبتمبر 25, 2012 قام بنشر سبتمبر 25, 2012 اخي عبد الله حاولت في الملف و ادخلت الكلمتين المحجوزتين Right و Offset لكنني فشلت بسب الحرف بجاني الارقام وعندما اطلعت على الكود الذي ارسلته في مشاركتك رقم 2 اكتشفت شيئين : حصرتي / و ذكاؤك . زادك الله علما على علم و صدقني والله اني اتمتع برؤية الاكواد التي تكتبها هذا بفضل الله اخي الحبيب ابو حنين زادك الله علما حتى ترضى تقبل تحياتي وشكري
وسيم العش قام بنشر سبتمبر 25, 2012 الكاتب قام بنشر سبتمبر 25, 2012 أستاذي الكريم عبد الله منذ زمن وأنا أتتبع حلولك الفذة وطريقة رؤيتك وتحليلك الفريد لها , واليوم أتشرف بأن أعمل على كود أنت من ابتكرته لي . زادك الله تعالى علماً وبارك بأعمالك الطيبة وجعلها في ميزان حسناتك . وشكراً لكل الأخوة الذين عملوا وجاهدوا في حل سؤالي . شكراً لكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.