مطلوب ملئ نطاقات مختلفة بارقام ثابتة لكل نطاق

[Ali Tawfeek]

السلام عليكم 

 

عندى مجموعة من الارقام تبدا من رقم 1 الى رقم 350000 و ما اريد عملة ان هذه الارقام تمثل لي نطاقات مختلفة و اريد ان اعبر عن كل نطاق برمز او حرف يتم تحديدة 

 

مثلا هو ان نطاق من 1 الى 100 يمثل نطاق A و الرقم 101 الى 310 يمثل نطاق B و هكذا فاحتاج طريقة تمكني من كتابة نطاقات و ما يمثلها من حروف بحيث تملئ الاعمدة المجاورة بكل ارقام النطاقات 

 

مرفق ملف يحتوى على مثال للنطاقات 

 

نطاق من 1 الى 100 يرمز بحرف A

نطاق من 101 الى 250 يرمز بحرف B

نطاق من251 الى 400 يرمز بحرف C

نطاق من 401 الى 550 يرمز بحرف D

نطاق من551 الى 600 يرمز بحرف E

 

و هكذا 

 

 

 

 

 

 

نطاق.rar

[ياسر خليل أبو البراء]

تفضل أخي الفاضل

قمت بإعداد الشروط التي قدمتها في المشاركة الأولى وعليك بتكملة الشروط بما يناسبك

Sub Test()
    Dim LR As Long
    Dim Rng As Range, Cell As Range
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    Set Rng = Sheets("Sheet1").Range("A2:A" & LR)
    For Each Cell In Rng
        If Cell.Value >= 1 And Cell.Value <= 100 Then
            Cell.Offset(, 1).Value = "A"
        ElseIf Cell.Value >= 101 And Cell.Value <= 250 Then
            Cell.Offset(, 1).Value = "B"
        ElseIf Cell.Value >= 151 And Cell.Value <= 400 Then
            Cell.Offset(, 1).Value = "C"
        ElseIf Cell.Value >= 401 And Cell.Value <= 550 Then
            Cell.Offset(, 1).Value = "D"
        ElseIf Cell.Value >= 551 And Cell.Value <= 600 Then
            Cell.Offset(, 1).Value = "E"
         'قم بنسخ آخر سطرين والتعديل عليهما بما يناسبك من شروط وهكذا
            
            
        End If
    Next Cell
End Sub

[Ali Tawfeek]

كل الشكر اخي ياسر بس هل من توضيح لى كيفية ادراج هذا الكود في ملف الاكسيل حيث انني لم استخدام الاكواد من قبل و شكرا 

[ibn_egypt]

كل الشكر اخي ياسر بس هل من توضيح لى كيفية ادراج هذا الكود في ملف الاكسيل حيث انني لم استخدام الاكواد من قبل و شكرا 

اخى الفاضل

 

وبعد إذن أستاذنا الفاضل أ.ياسر، تم إدارج كود أ.ياسر بالملف الخاص بك .. كل ما عليك هو الضغط على زر تعبئة الرموز .. واذا أردت التغيير أو الزيادة فاضغط مفتاح Alt+F11 سيفتح الكود أمامك .. عدل كما تشاء في الأرقام أو الرموز

 

تحياتي  

نطاق.rar

[ياسر خليل أبو البراء]

أخي الحبيب ابن مصر بارك الله فيك

دايما سداد ورانا ..ربنا يحميك من كل سوء

[أبو يوسف النجار]

 

كل الشكر اخي ياسر بس هل من توضيح لى كيفية ادراج هذا الكود في ملف الاكسيل حيث انني لم استخدام الاكواد من قبل و شكرا 

اخى الفاضل

 

وبعد إذن أستاذنا الفاضل أ.ياسر، تم إدارج كود أ.ياسر بالملف الخاص بك .. كل ما عليك هو الضغط على زر تعبئة الرموز .. واذا أردت التغيير أو الزيادة فاضغط مفتاح Alt+F11 سيفتح الكود أمامك .. عدل كما تشاء في الأرقام أو الرموز

 

تحياتي  

 

شكرا جزيلا

تم تعديل يونيو 7, 2015 بواسطه أبو يوسف النجار