أبوحازم قام بنشر مايو 31, 2015 مشاركة قام بنشر مايو 31, 2015 السلام عليكم ورحمة الله وبركاتة . إخواني منتدى أوفسينا المحترمين الرجا مساعدتي : طلبي هو حصر الاسماء من المكررة الى غير المكررة في ورقة 2 لعد العملاء وغير ذلك والمرفق يشرح نفسة وشكرا جزيلا جدا حصر الاسماء وفرزها.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 31, 2015 مشاركة قام بنشر مايو 31, 2015 ربما مان المطلوب حصر الاسماء وفرزها salim.rar رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر مايو 31, 2015 الكاتب مشاركة قام بنشر مايو 31, 2015 نعم نعم شكرا جزيلا جدا إي مشكلة براجعك رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 1, 2015 الكاتب مشاركة قام بنشر يونيو 1, 2015 بس عندما نسخت الدالة لم تعمل لماذا ياريت توضحولي أكثر جزاكم الله خير رابط هذا التعليق شارك More sharing options...
علاء رسلان قام بنشر يونيو 1, 2015 مشاركة قام بنشر يونيو 1, 2015 و عليكم السلام و رحمة الله و بركاته الحل كما أوضح الأخ الكريم سليم حاصبيا يحتاج منك أن تضغط على الأزرار ctrl&Shift&Enter الثلاثة معا و ليس Enter فقط و ذلك أن المعادلة معادلة مصفوفة . رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 1, 2015 الكاتب مشاركة قام بنشر يونيو 1, 2015 نعم سويت نفس المطلوب بس حصل تكرار في الاسماء ياريت تشوف الصورة في المرفق JWPWP.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يونيو 1, 2015 أفضل إجابة مشاركة قام بنشر يونيو 1, 2015 الأخ أبو حازم بعد إذن الأخ الحبيب سليم .بارك الله فيه إليك الحل التالي بدالة معرفة قمة في الروعة تغنيك عن كل هذا الكم من المعادلات ..حيث قام أخي وحبيبي سليم باخفاء ورقة العمل ورقة3 ووضع بها معادلات لاستخراج القيم الفريدة أما الدالة المعرفة فتغنيك عن كل هذا الأمر Function GetUnique(ArrDupes As Variant, Ref As Long) As Variant 'تقوم الدالة باستخراج القيم الغير مكررة وتخطي الخلايا الفارغة '=IFERROR(GetUnique($A$1:$A$20,ROW(A1)),"") '----------------------------------------------------------- Dim E With CreateObject("Scripting.Dictionary") If TypeOf ArrDupes Is Range Then For Each E In ArrDupes If E <> "" Then .Item(E.Value) = Empty Next Else For Each E In ArrDupes If E <> "" Then .Item(E) = Empty Next End If GetUnique = .keys()(Ref - 1) End With End Function تقبل تحياتي حصر الاسماء وفرزها YK.rar 2 رابط هذا التعليق شارك More sharing options...
علاء رسلان قام بنشر يونيو 1, 2015 مشاركة قام بنشر يونيو 1, 2015 السلام عليكم بعد إذن أخى الفاضل سليم حاصبيا ، أقدم حلى المتواضع الذى لا يرتقى الى مستوى أخى الكريم سليم و هو على قدر استطاعتى و فهمى ، طبعا هناك عمود إضافى .. و ان أمكن أخى الكريم سليم ان تفضلت بشرح معادلتك لأننى لم أستوعبها و حيرتنى كثيرا نظرا لطولها و تلاعبها معى ذات اليمين و اليسار لم استطيع الأمساك بها لفهمها و أنزلقت من بين يدى كإنزلاق الزئبق . حصر الاسماء.rar 1 رابط هذا التعليق شارك More sharing options...
ابوزيد قام بنشر يونيو 2, 2015 مشاركة قام بنشر يونيو 2, 2015 السلام عليكم عمل ممتاز رابط هذا التعليق شارك More sharing options...
أبوحازم قام بنشر يونيو 2, 2015 الكاتب مشاركة قام بنشر يونيو 2, 2015 ياسلام ياسلام إبداع وأي مشكلة براجع وشكرا جزيلا جدا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 2, 2015 مشاركة قام بنشر يونيو 2, 2015 لم يتم تحديد أفضل إجابة أنا تعبت من كثرة ما بكتب الجملة دي في المشاركات ..يا ريت يا إخواني الالتزام بالتوجيهات نريد أن نظهر بمظهر يليق بالمنتدى .. الأمر لن يكلفك كثيراً فقط نقرة واحدة بالماوس (أنا مش بطلب المستحيل) .. أحياناً الموضوع ممكن يستغرق أكثر من ساعة وحضرتك بتكسل تضغط ضغطة واحدة بالماوس .. مش لمصلحة شخصية ولا عشان نقطة إيجابية ولكن لسهولة التعامل مع الموضوعات وتيسير الأمر على من يريد المساعدة أن يركز في الموضوعات التي لم يجاب عليها رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان