توزيع رقم على مجموعة من الخلايا

[سامي علي أحمد]

السلام عليكم يرجى المساعده من خبراء الاكسل اريد معادله لاستخراج من B2 اذا كان يحتوي كمثال على الارقام التاليه 0 او2او5او8 تطبيق المعادله على جميع الاعمده

sampl.rar

[رجب جاويش]

ينقل الى قسم الاكسيل

[رجب جاويش]

أخى الفاضل

أولا : يرجى تغيير اسم الظهور الى اللغة العربية لسهولة التواصل

ثانيا : استخدم المعادلة الآتية فى الخلية B2 ثم اسحبها الى بقية الخلايا

=MID($A2;COLUMNS($B2:B2);1)

 

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

أخي الكريم سامي

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية

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

وإذا كانت الشروط كما ذكرت أن الأرقام لابد أن تحتوي على 0 أو 2 أو 5 أو 8 ..فماذا لو لم ينطبق الشرط؟

 

 

[سامي علي أحمد]

شكر اخ ياسر واخ رجب على الاجابه اخي ياسر الارقام ثابته بالطول سبع ارقام لا يوجد اي بيانات اخرى ضمن اانطاق المطلوب كالتالي عزيزي 
كلم رقم قمت بتقسيمه الى سبعه حقول لفلتره الارقام حسب الشروط التي اريدها كمثال اريد معادله تعطيني الارقام المؤلفه من 0258 ليس بالضروره بالترتيب المهم ان يكون السبع ارقام مؤلفه من هذه الاربعه ارقام 
معادله اخرى تعطيني كل رقم مؤلف فقط من ثلاث ارقام كمثال الرقم هو سبعة ارقام ولكن تكوين الرقم من ثلاث ارقام فقط مثال 
1232312
6535363 ولكم جزيل الشكر

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

أخي الكريم سامي

مشكور على تغيير اسم الظهور للغة العربية

حاولت أفهم المشاركة الأخيرة لك ولكن يبدو ان التوضيح يحتاج لمزيد من التوضيح

هلا أرفقت بعض من شكل النتائج المتوقعة لكي يسهل الوصول لحل

تقبل تحياتي

[سامي علي أحمد]

شكرا صديقي العزيز على الاجابه السريعه ارفقت ملف فيه بعض الارقام انظر الى num styl وقم باختيار 03 dgt سيوضح لك المطلوب اكثر

 

sampl.rar

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

أعتقد أننا لسنا بحاجة إلى كل هذا الكم من البيانات حتى يسهل فهم الموضوع

قم بإرفاق ملف آخر وضع بعض الأرقام المتاينة والمتوقع مع كل رقم مع تحليل المنطق لكل مجموعة أرقام حتى نفهم الموضوع بشكل أفضل

فهمت الجزء الخاص بالثلاثة أرقام ...ولكن ماذا عن بقية الأرقام ..؟

ما رأيك لو قمنا بتوزيع الأرقام كما فعل أخونا الحبيب رجب وفي عمود آخر قمنا بعد الأرقام الغير مكررة ؟؟

 

[سامي علي أحمد]

شكرا على جهودكم عزيزي لقد توصلت الى معادله الثلاث أرقام من خلال 

=SUM(1/COUNTIF(C2:I2,C2:I2))

تبقى لدي معادله الرقم المؤلف من 2580 

انظر عزيزي الى 

A2: A7

هذه الرقم مكون من الاربع ارقام المطلوبه والتي هي 

8 و 5و2و0و

اعتقد ستفهم قصدي 

جزيل الشكر على صبركم ومساعدنكم

sampl.rar

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

أخي الكريم سامي

فهمت قصدك من كون أن الأرقام 0 - 2 - 5 - 8 لابد أن تكون موجودة في الرقم ..تمام

ماذا تريد أن تفعل في هذه الحالة ؟ وهل لابد أن تكون الأرقام الغير مكررة 4 ؟؟ أم أنه يمكن أن يكون مع الأرقام 0 - 2 - 5 - 8 أرقام أخرى ؟؟؟

أفضل أن ترفق شكل النتائج المتوقعة ..ماذا تريد من الكود أو المعادلة أن يحقق ؟؟

وماذا عن توزيع الأرقام إلى أرقام فردية كما فعل أخونا رجب هل هو مطلوب أم أنك تريد الحصول على النتائج إذا أمكن بدونها

صراحة أسئلة كثيرة تدور في الموضوع .. وعدم إرفاق شكل النتائج المتوقعة يزيد الموضوع غموض

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

تقبل تحياتي

[سامي علي أحمد]

صباح الخير اخ ياسر وتقبل اسفي على التاخر بالرد 

صديقي العزيز يمكنك اعتماد الملف السابق كملف مرفق تجاهل جميع الاعمده واعتمد العمود A

عذرا لانه لا يمكنني ارسال ملف جديد بسبب تعثر وصولي الى جهاز  المحمول الخاص بي 

كما سبق و وضحت صديقي الكريم اريد فقط  معادله الارقام الاربعه 

المؤلفه من اربع ارقام المذكوره اعلاه ويمكنك تجاهل الطلب الاول لانه تم التوصل الى حل 

نتيجة المعادله ان تفلتر الارقام الموجوده بالعمد الاول لتعطيني فقط النتيجه المطلوبه والمؤلفه من الاربع ارقام المذكوره اعلاه كما سبق وذكرت السبع صفوف الاوله من الملف تحتوي على هذه الارقام

اما عن التيجه لا اهتم لبقيه الارقام اريد فقط الفلتره لهذه الارقام المؤلفه من 8250

اعذرني صديقي على ضعف التعبير لاني جديد على بحر الاكسل

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

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

أخي الكريم سامي

جرب الكود التالي عله يفي بالغرض

يتم استخراج عدد الأرقام الغير مكررة في الخلية الواحدة في العمود الثاني

وفي العمود الثالث يتم كتابة كلمة "Yes" إذا تحققت الشروط ..أن يحتوي الرقم في الخلية في العمود الأول على 0 و 2 و 5 و 8 ويكون عدد الأرقام الغير مكررة في الخلية الواحدة يساوي 4

Sub Test()
    Dim I As Long
    For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(I, "B").Value = UniqueDigits(Cells(I, "A").Value)
        If Digit(Cells(I, 1), 0) >= 1 And Digit(Cells(I, 1), 2) >= 1 And Digit(Cells(I, 1), 5) >= 1 And Digit(Cells(I, 1), 8) >= 1 And Cells(I, "B").Value = 4 Then
            Cells(I, "C").Value = "Yes"
        End If
    Next I
End Sub

Function Digit(R As Range, N As Integer) As Integer
    Dim I As Integer, S As String
    S = R.Value
    
    For I = 1 To Len(S)
        If Mid(S, I, 1) = N Then Digit = Digit + 1
    Next I
End Function

Function UniqueDigits(xNum As String) As Long
    Dim I As Integer
    
    For I = 0 To 9
        If InStr(1, xNum, I) Then
            UniqueDigits = UniqueDigits + 1
        End If
    Next I
End Function

أرجو أن يكون المطوب

تقبل تحياتي

 

 

Check For Specific Digits Within Numbers YasserKhalil.rar

[سامي علي أحمد]

شكرا صديقي العزيز على جهودك انشاء الله بس ارد المنزل ساطبق الكود ومشكور سلف على جهودك الجباره 

[سامي علي أحمد]

صديقي العزيز ممكن خدمه اخيره ممكن تطبقلي المعادله على الملف اللي ارفقته لك بالسابقوترساي ياها او ترسلي ياها ايميل 

Shadisalem@live.com  

مشكور عزيزي عذبتك معي

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

أخي الكريم الملف المرفق في المشاركة السابقة ليست بالمعادلات إنما بالأكواد ..

جرب الملف الأول وشوف النتائج مضبوطة أم لا ..بعدها سنقوم إن شاء الله بتطبيق الأكواد على ملفك الأصلي

 

قم بالإطلاع في توقيعي "فهرس موضوعات العبد الفقير إلى الله" على موضوع اسمه "بداية الطريق لإنقاذ الغريق" لتعرف كيف تتعامل مع محرر الأكواد في البداية .وكيفية تفعيل الماكرو

إذا أردت الحل بالمعادلات سأوافيك به أيضاً عندي حل بالمعادلات ولكن أريد أولاً التأكد من صحة النتائج التي تم الحصول عليها

تقبل تحياتي

[سامي علي أحمد]

صديقي العزيز لك جزيل الشكر لقد قمت بالاطلاع على الملف مجهود جدا جبار لقد قمت بدمج الطلبين بامر واحد النتائج الطلوبه صحيحه مئه بالمئه اريد منك صديقي طريقه نقل الاكواد على ملف عملي

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

أخي الكريم سامي

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

"بداية الطريق لإنقاذ الغريق" الرابط من هنا

وإليك شرح فيديو