محمود أبوسيف قام بنشر يونيو 15, 2015 مشاركة قام بنشر يونيو 15, 2015 هل ممكن التعديل علي هذا المرفق ليعطينا الإسم + إجمالي مبلغ ماحصل عليه هذا صاحب هذا الإسم + عدد مرات التكرار الإسم + المبلغ + عدد مرات التكرار.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 15, 2015 مشاركة قام بنشر يونيو 15, 2015 اخي محمود ربما كان هذا المطلوب الإسم + المبلغ + عدد مرات التكرار salim.rar 1 رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 15, 2015 الكاتب مشاركة قام بنشر يونيو 15, 2015 (معدل) تمام يا أخ سليم بارك الله فيك ولكن هناك ملحوظة صغيرة 1- هل من الممكن جعل تحديث المبلغ وعدد التكرار تلقائي بمعني ( في حالة إدخال مبلغ إضافي أو تكرار الإسم مرة أخر يتم تحديثة تلقائي في الجهة المقابلة بدون الضغط علي زر التحويل ) 2- يكون إستخراج الإسم والمبلغ وعدد مرات التكرار من شيت 2 ( الذي إسمه الخارج ) إلي شيت 3 ( المستفيدين ) تكرار.rar تم تعديل يونيو 15, 2015 بواسطه Mahmoud330 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 17, 2015 مشاركة قام بنشر يونيو 17, 2015 تم معالجة الامر الكود لا يعمل اوتوماتيكياً الا اذا حدث تغيير في اي خلية من العامود C لذا يجب أولاً كتابة الاسم و من ثم اختيار المبلغ تكرار 2003.rar رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 19, 2015 الكاتب مشاركة قام بنشر يونيو 19, 2015 (معدل) الأخ الفاضل سليم حاصيبا دائماً ماتفاجأني بإسلوبك الجديد ولكن أفضل أن يكون هناك زر لتشغيل المايكرو في صفحة المستفيدين مع مراعاة جعل تحديث المبلغ وعدد التكرار تلقائي بدون الضغط علي زرتشغيل المايكو تم تعديل يونيو 19, 2015 بواسطه Mahmoud330 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 19, 2015 مشاركة قام بنشر يونيو 19, 2015 تم التعديل حسب ماتراه مناسباً اضغط على أفضل اجابة تكرار 2003 معدل.rar 2 رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 19, 2015 الكاتب مشاركة قام بنشر يونيو 19, 2015 أستاذ سليم بارك الله فيك ولكن أعذرني لي ملاحظة صغيرة 1- فأنا أريد التحديث التلقائي يكون بدون الذهاب إلي صفحة المستفيدن والعودة مرة أخري . 2- ألا يشترط التحديث التلقائي الإنتقال إلي العمود C أو E ولكن من المفترض أن يكون كلاهما ولكن حضرتك جعلت الكود لا يعمل اوتوماتيكياً الا اذا حدث تغيير في اي خلية من العامود C لذا يجب أولاً كتابة الاسم و من ثم اختيار المبلغ . تكرار تلقائي.rar وهذا ملف آخر للعلامة أ- ياسر خليل الذي أريد أن يكون التكرارالتلقائي مثل ذلك Count Distinct.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 21, 2015 مشاركة قام بنشر يونيو 21, 2015 الأخ الكريم محمود أما آن لك ان تقوم بتغيير اسم الظهور للغة العربية أنا لست متابع للموضوع ولكني قمت ببعض التعديل على الملف الخاص بي الذي أرفقته ليناسب طلبك ليتم تنفي الكود بشكل تلقائي Sub UniqueItems() 'يقوم الكود باستخراج القيم الغير مكررة أي الفريدة وعدها '------------------------------------------------------- 'تعريف المتغيرات Dim R As Range, Cel As Range, LR As Long, D, A 'تحديد آخر خلية بها بيانات في أي عمود LR = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row 'تحديد النطاق المراد العمل عليه واستخراج القيم الفريدة منه Set R = Range("A1:E" & LR) 'تعيين المتغير لتخزين القيم الفريدة داخله Set D = CreateObject("Scripting.Dictionary") 'جملة لتجنب ظهور رسائل خطأ أثناء تنفيذ الكود On Error Resume Next 'مسح محتويات النطاق الذي ستظهر فيه النتائج Range("I2:J500").ClearContents 'حلقة تكرارية لكل خلية داخل خلايا النطاق For Each Cel In R 'إذا لم تكن الخلية قيمتها صفر يتم إضافة العنصر للمتغير المخصص لذلك If Cel <> 0 Then D.Add CStr(Cel), CStr(Cel) Next 'تعيين المتغير ليساوي العناصر الفريدة التي تم تخزينها داخل المتغير الأول A = D.Items 'إظهار النتائج بعد تحويلها إلى شكل رأسي حيث أن المتغير يخزن القيم على شكل مصفوفة Range("I2").Resize(D.Count) = Application.Transpose(A) 'إظهار نتائج عد القيم Range("J2").Resize(D.Count).FormulaR1C1 = "=COUNTIF(R1C1:R100C5,RC[-1])" End Sub تقبل تحياتي Count Unique Items Automatically.rar 1 رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 21, 2015 الكاتب مشاركة قام بنشر يونيو 21, 2015 أستاذ ياسر شكراً علي متابعتك للموضوع ولكن هل من الممكن التعديل علي الملف الخاص بي وليس الملف الخاص بحضرتك تكرار تلقائي.rar رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 24, 2015 الكاتب مشاركة قام بنشر يونيو 24, 2015 للرفع رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 24, 2015 مشاركة قام بنشر يونيو 24, 2015 جرب هذا التعديل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Or Target.Column = 5 Then Application.ScreenUpdating = False Application.EnableEvents = False Unique End If Sheets("الخارج").Select Application.EnableEvents = True Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 24, 2015 الكاتب مشاركة قام بنشر يونيو 24, 2015 (معدل) شكراً أ. ياسر ولكن مازلت مشكلة إهتزاز الشاشة موجودة تم تعديل يونيو 24, 2015 بواسطه Mahmoud330 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 24, 2015 مشاركة قام بنشر يونيو 24, 2015 جرب الملف التالي ..قل الاهتزاز قليلاً تكرار تلقائي.rar رابط هذا التعليق شارك More sharing options...
محمود أبوسيف قام بنشر يونيو 25, 2015 الكاتب مشاركة قام بنشر يونيو 25, 2015 أ. ياسر مجهود وفكر رائع ولكن واجهتنا مشكلة أخري وهي - عند الضغط علي زر تحديث القائمةفي صفحة المستبعدين يتم الإنتقال إلي صفحة الخارج . وهذا غير مطلوب - المطلوب هو :- أن يتم تحديث قائمة المستفيدين بدون الإنتقال إلي صفحة أخري أو أن يكون هناك إهتزاز للشاشة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 26, 2015 مشاركة قام بنشر يونيو 26, 2015 جرب الملف تكرار تلقائي.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان