تتبع تسلسل الأرقام في عمود

[وسيم العش]

السادة الأعضاء الاعزاء

بالمرفق جدول أرشيف , والمطلوب :

أريد كود يضمن لي تلوين الخلايا التي لا تتبع تسلسل الأرقام بلون أحمر في العمود ( C )

أرجو أن أجد عندكم طلبي

والله ولي التوفيق

archives.rar

تم تعديل سبتمبر 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

[جمال عبد السميع]

عالمنا الجليل وعملاق منتدانا وأستاذ الكل ( عبد الله باقشير ) زادك الله من علمة وبلغك أعلي مراتبة بجد لقد حاولت عملها بالمعادلات وولكن في أجزاء منها كانت تفشل وأستخدمت جمع محتوي الخلية من أرقام (مجموع الأرقام المكونة لعدد ما ) وطرحها من رقم العمود ومساواتها بالواحد ولكنها لم تعطني الأجابة الشافية لذلك ذهبت نتيجتها وخضعت لمروضها الذي أستكانت وأستسلمت له عن جدارة وتمكن

بارك الله فيك معلمي وجعلك ملاذا لنا للحل الأمثل

[أبو حنــــين]

اخي عبد الله

حاولت في الملف و ادخلت الكلمتين المحجوزتين

Right و Offset

لكنني فشلت بسب الحرف بجاني الارقام

وعندما اطلعت على الكود الذي ارسلته في مشاركتك رقم 2 اكتشفت شيئين : حصرتي / و ذكاؤك .

زادك الله علما على علم

و صدقني والله اني اتمتع برؤية الاكواد التي تكتبها

[عبدالله باقشير]

عالمنا الجليل وعملاق منتدانا وأستاذ الكل ( عبد الله باقشير ) زادك الله من علمة وبلغك أعلي مراتبة بجد لقد حاولت عملها بالمعادلات وولكن في أجزاء منها كانت تفشل وأستخدمت جمع محتوي الخلية من أرقام (مجموع الأرقام المكونة لعدد ما ) وطرحها من رقم العمود ومساواتها بالواحد ولكنها لم تعطني الأجابة الشافية لذلك ذهبت نتيجتها وخضعت لمروضها الذي أستكانت وأستسلمت له عن جدارة وتمكن

بارك الله فيك معلمي وجعلك ملاذا لنا للحل الأمثل

السلام عليكم

اكرمك الله على كلماتك الطيبه

و حسن اخلاقك

حفظك الله ورعاك

تقبل تحياتي وشكري

[عبدالله باقشير]

اخي عبد الله

حاولت في الملف و ادخلت الكلمتين المحجوزتين

Right و Offset

لكنني فشلت بسب الحرف بجاني الارقام

وعندما اطلعت على الكود الذي ارسلته في مشاركتك رقم 2 اكتشفت شيئين : حصرتي / و ذكاؤك .

زادك الله علما على علم

و صدقني والله اني اتمتع برؤية الاكواد التي تكتبها

هذا بفضل الله

اخي الحبيب ابو حنين

زادك الله علما حتى ترضى

تقبل تحياتي وشكري

[وسيم العش]

أستاذي الكريم عبد الله

منذ زمن وأنا أتتبع حلولك الفذة وطريقة رؤيتك وتحليلك الفريد لها , واليوم أتشرف بأن أعمل على كود أنت من ابتكرته لي .

زادك الله تعالى علماً وبارك بأعمالك الطيبة وجعلها في ميزان حسناتك .

وشكراً لكل الأخوة الذين عملوا وجاهدوا في حل سؤالي .

شكراً لكم