أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





دمج قيم الصفوص المتشابهة في صف واحد

السلام عليكم لدي ملف اكسل و اريد عمل ماكرو بسيط اذا تحقق شرطين يتم عمل عملية حسابية انا اقوم بإدخال المنتجات على شكل ص ..



05-07-2019 02:00 مساء
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 

السلام عليكم

لدي ملف اكسل و اريد عمل ماكرو بسيط اذا تحقق شرطين يتم عمل عملية حسابية

انا اقوم بإدخال المنتجات على شكل صفوف عرضية
اريد اذا تحقق شرطين يتم عمل الماكرو
الشرطين هم 
اذا كان هناك منتج يطابق منتج آخر في ال hs code + origin
then
يتم جمع قيم المنتجات المتشابهة في الشرطين السابقين
qty price gross net pkg

اما باقي القيم تبقى مثل ماهي حسب المنتج الاول
hs code - origin - description - type - procedure - -

و يتم دمج النتيجة في الصف الاول من المنتجات المتشابهة مع مسح الصفوص المتكررة

شكرا
 
 
  OFOQ XML.xlsx   تحميل xlsx مرات التحميل :(9)
الحجم :(21.542) KB







05-07-2019 02:39 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
وعليكم السلام
في حدث ورقة العمل ضع الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, c As Integer
    
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("L2:L11")) Is Nothing Then
        Application.EnableEvents = False
            If Application.WorksheetFunction.CountIf(Columns(2), Cells(Target.Row, 2)) > 1 And Application.WorksheetFunction.CountIf(Columns(3), Cells(Target.Row, 3)) > 1 Then
                x = Application.Match(Cells(Target.Row, 2), Columns(2), 0)
                
                If Not IsError(x) Then
                    For c = 5 To 9
                        Cells(x, c).Value = Val(Cells(x, c).Value) + Val(Cells(Target.Row, c).Value)
                    Next c
                    Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
                End If
            End If
        Application.EnableEvents = True
    End If
End Sub

أثارت هذه المشاركة إعجاب: مالك ماريه، mmagedmemo،




05-07-2019 07:44 مساء
مشاهدة مشاركة منفردة [2]
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وعليكم السلام
في حدث ورقة العمل ضع الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, c As Integer
    
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("L2:L11")) Is Nothing Then
        Application.EnableEvents = False
            If Application.WorksheetFunction.CountIf(Columns(2), Cells(Target.Row, 2)) > 1 And Application.WorksheetFunction.CountIf(Columns(3), Cells(Target.Row, 3)) > 1 Then
                x = Application.Match(Cells(Target.Row, 2), Columns(2), 0)
                
                If Not IsError(x) Then
                    For c = 5 To 9
                        Cells(x, c).Value = Val(Cells(x, c).Value) + Val(Cells(Target.Row, c).Value)
                    Next c
                    Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
                End If
            End If
        Application.EnableEvents = True
    End If
End Sub


اشكرك ع الرد السريع
اتمنى منك اضافة الكود لانني لا اجيد الطريقة
انا حاولت و مابعرف طريقتي صح او لا و بالاخير مايحصل شيء
اتمنى تضبطه بنفسك بالملف , احتمال انا عملت شي غلط

وشكرا





05-07-2019 10:50 مساء
مشاهدة مشاركة منفردة [3]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 532
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 6
قوة السمعة : 805
الاعجاب : 76
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
الله على الروعة والجمال جزاكم الله خير استاذى ياسر
 





06-07-2019 06:55 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
كليك يمين على اسم ورقة العمل ثم View Code والصق الكود
سيعمل الكود بمجرد اتمام عمليات الإدخال بالكامل .. أي عند وصولك للعمود الأخير والضغط على Enter سيعمل الكود 
جرب نسخ القيم من العمود B إلى العمود K إلى الصف التالي ثم ضع أي قيمة في العمود L واضغط Enter ولاحظ النتائج

أثارت هذه المشاركة إعجاب: مالك ماريه،




06-07-2019 02:43 مساء
مشاهدة مشاركة منفردة [5]
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
المشاركة الأصلية كتبت بواسطة: YasserKhalil
كليك يمين على اسم ورقة العمل ثم View Code والصق الكود
سيعمل الكود بمجرد اتمام عمليات الإدخال بالكامل .. أي عند وصولك للعمود الأخير والضغط على Enter سيعمل الكود 
جرب نسخ القيم من العمود B إلى العمود K إلى الصف التالي ثم ضع أي قيمة في العمود L واضغط Enter ولاحظ النتائج


اشكرك اخي على الكود الرائع جدا, و لدي طلب
اتمنى عمل زر لتنفيذ الكود لانني الان مابقدر اعمل undo بعد تنفيذ الكود, بشرط عدم تغيير الملف الى ملف ماكرو حتى يمكنني عمل اكسبورت xml
و طلب  آخر, هل ممكن كود يضع الارقام تلقائيا بالتسلسل على العمود A
حتى لو قمت بإضافة صفوف جديدة عبر تحديد صف و الضغط على CTRL +

اشكرك كثيرا





06-07-2019 03:27 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
لا يمكن عمل تراجع مع الأكواد ..إذا كانت هناك مشكلة قم بإغلاق الملف بدون حفظ ثم أعد تشغيل الملف مرة أخرى
يمكن إضافة مسلسل باستخدام معادلة طالما أن المعادلة بعيدة عن الأكواد ..على ما أعتقد أن التسلسل في العمود الأول
 





06-07-2019 03:30 مساء
مشاهدة مشاركة منفردة [7]
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
المشاركة الأصلية كتبت بواسطة: YasserKhalil
لا يمكن عمل تراجع مع الأكواد ..إذا كانت هناك مشكلة قم بإغلاق الملف بدون حفظ ثم أعد تشغيل الملف مرة أخرى
يمكن إضافة مسلسل باستخدام معادلة طالما أن المعادلة بعيدة عن الأكواد ..على ما أعتقد أن التسلسل في العمود الأول
 

طيب ممكن عمل زر لتنفيذ الكود بدلا من عمله تلقائيا ؟ اتمنى يكون الملف نفس ماهو مايتغير لملف ماكيرو حتى اتمكن من عمل اكسبورت xml

و ماهي المعادلة للتسلسل في الارقام ؟

اشكرك و عذرا على الازعاج





06-07-2019 04:22 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
أعتذر عن عدم المشاركة لظروف خاصة 
سأترك الموضوع للأخوة للمساهمة والتعديل بما يتناسب مع طلبك





06-07-2019 04:35 مساء
مشاهدة مشاركة منفردة [9]
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
شكرا لك.. بإنتظار الاخوة





07-07-2019 05:39 مساء
مشاهدة مشاركة منفردة [10]
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
هل من مساعد؟





14-07-2019 10:52 مساء
مشاهدة مشاركة منفردة [11]
e97h
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 22
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وعليكم السلام
في حدث ورقة العمل ضع الكود التالي عله يفي بالغرض إن شاء الله
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, c As Integer
    
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("L2:L11")) Is Nothing Then
        Application.EnableEvents = False
            If Application.WorksheetFunction.CountIf(Columns(2), Cells(Target.Row, 2)) > 1 And Application.WorksheetFunction.CountIf(Columns(3), Cells(Target.Row, 3)) > 1 Then
                x = Application.Match(Cells(Target.Row, 2), Columns(2), 0)
                
                If Not IsError(x) Then
                    For c = 5 To 9
                        Cells(x, c).Value = Val(Cells(x, c).Value) + Val(Cells(Target.Row, c).Value)
                    Next c
                    Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
                End If
            End If
        Application.EnableEvents = True
    End If
End Sub


كل الشكر لك اخي الكريم، بما انك مشغول اتمنى فقط تعديل بسيط في الكود و اضافة شرط آخر للدمج و هو ان تكون قيمة عمود D مساوية للاخرى حتى يتم الدمج

اشكرك





15-07-2019 05:38 صباحا
مشاهدة مشاركة منفردة [12]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif دمج قيم الصفوص المتشابهة في صف واحد
ممكن صورة توضح ما تقصده في آخر مشاركة ...؟






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود تنسيق الصفوص e97h
5 61 e97h

الكلمات الدلالية
واحد ، المتشابهة ، الصفوص ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:55 مساء

أعلن هنا
أعلن هنا
أعلن هنا