عدد مرات ادخال رقم معين في خلية

[زياد عبد الجليل]

 

السلام عليكم اساتذتنا الافاضل عندي سؤال يتمثل في الاتي

عندي خلية في الاكسيل لكتابة رقم معين و في خلية اخرى يضهر عدد مرات ادخال رقم معين في الخلية الاولى 

اي مثلا في الخلية 1 اكتب فيها رقم 10 هنا الخلية 2 تظهر لي ان الرقم 10 ادخل مرة واحدة أي تضع عدد 1 واذا كتب الرقم 20 تضهر الخلية ان الرقم 20 ادخل كذلك مرة واحدة اي تضع عدد 1 ولكن اذا كتبت الرقم 10 مرة ثانية تضع الخلية 2  رقم 02 اي ان الرقم 10 ادخل في الخلية 1 مرتين و هكذا 

ارجو المساعدة من عمالقة و خبراء الاكسيل ولكم مني كل الشكر و الامتنان 

الملف المرفق

 

 

عدد مرات ادراج رقم معين في خلية.rar

[سليم حاصبيا]

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

عدد مرات ادراج رقم معين في خلية salim.rar

[زياد عبد الجليل]

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

اخي سليم لا يوجد اي معادلة  او كود او ملف مرفق ارجو التوضيح ولك من خالص تحيات الحب و الاحترام

[خزاني]

السلام عليكم و رحمة الله وبركاته

كود :عدد مرات ادخال رقم معين في خلية

Sub Macro1()
On Error Resume Next
[val1].ClearContents
    Range("val").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=SUMPRODUCT(--(val=RC[-1]))"
    Selection.AutoFill Destination:=Range("val2"), Type:=xlFillDefault
    Columns("D:D").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
End Sub

[سليم حاصبيا]

اضغط ALT+F11 ,و سوف ترى الكود

[زياد عبد الجليل]

شكرا للاستاذ سليم و الاستاذ الصغير الكبير خزاني على جوابهم الشافي الكافي نعم هذا هو المطلوب بالضبط بارك الله فيكم اخوتي

[زياد عبد الجليل]

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

ان كان ممكنا ولك منا كل الشكر و التقدير

[خزاني]

تطبيق عملي

khezzanifiltre-2015.rar

[زياد عبد الجليل]

 

السلام عليكم و رحمة الله وبركاته

كود :عدد مرات ادخال رقم معين في خلية

Sub Macro1()
On Error Resume Next
[val1].ClearContents
    Range("val").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=SUMPRODUCT(--(val=RC[-1]))"
    Selection.AutoFill Destination:=Range("val2"), Type:=xlFillDefault
    Columns("D:D").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
End Sub

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

ان كان ممكنا ولك منا كل الشكر و التقدير

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

أخي الحبيب سليم وأخي الغالي خزاني

اسمحا لي بتقديم هذا الحل إثراءاً للموضوع ..هنا الحل لا يعتمد على ورقة أخرى لتخزين القيم التي يتم إدخالها ، كما أنه مقتصر على الأرقام فقط دون النصوص

 

Cell Counter YasserKhalil.rar

[زياد عبد الجليل]

السلام عليكم اخي ياسر اعتقد ان ملفك المرفق به كود لا يعمل بشكل جيد كما ان الخانة e 1 لا تظهر عدد مرات ادخال الرقم ارجو التعديل ولك منا كل الشكر على مرورك العطر

[زياد عبد الجليل]

أخي الحبيب سليم وأخي الغالي خزاني

اسمحا لي بتقديم هذا الحل إثراءاً للموضوع ..هنا الحل لا يعتمد على ورقة أخرى لتخزين القيم التي يتم إدخالها ، كما أنه مقتصر على الأرقام فقط دون النصوص

السلام عليكم اخي ياسر اعتقد ان ملفك المرفق به كود لا يعمل بشكل جيد كما ان الخانة e 1 لا تظهر عدد مرات ادخال الرقم ارجو التعديل ولك منا كل الشكر على مرورك العطر

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

الملف يعمل معي بشكل جيد ..

ما هي نسخة الأفيس التي تعمل بها؟ قد تكون المشكلة في نسخة الأوفيس لديك

[زياد عبد الجليل]

نسخة 2010

[زياد عبد الجليل]

نعم استاذ ياسر الخلل في نسخة الاوفيس جربته على نسخة 2007 يعمل بشكل جيد

مليون تريليون شكر على مرورك الطيب

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

الحمد لله أخي زيزو أنه يعمل ..اعذرني لاختلاف نسخ الأوفيس يحدث أحيانا ما لا يحمد عقباه

تقبل تحياتي