اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جمع قيمة التاريخ المكرر؟


الردود الموصى بها

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

لدي ملف به بيانات وهي عبارة عن مبيعات يومية ولكن تتكرر المبيعات اليومية في نفس التاريخ فكيف يمكننا جمع(قيمة المبيعات) لكل يوم 

Aziz101.rar

رابط هذا التعليق
شارك

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

 

جرب هذا الكود :

Sub test()
    Dim Lr As Integer
    Dim Dt As Date
    Dim Tb()

    Lr = [B10000].End(xlUp).Row
    Set Rng = Range("B2:B" & Lr)
    Dt = Format("01/01/2016", "dd/mm/yyyy")
    
    For Each cel In Rng

        If cel <> Dt Then
            i = i + 1
            ReDim Preserve Tb(1 To 2, 1 To i)
            Tb(1, i) = Dt
            Tb(2, i) = cp

            Dt = cel
            cp = 1
        Else
            cp = cp + 1
        End If

    Next
    Range("H2").Resize(UBound(Tb, 2), UBound(Tb)) = Application.Transpose(Tb)
End Sub

 

رابط هذا التعليق
شارك

أخي ابوعبدالنور لو سمحت أن تشرح لي الكود كيف يمكنني الأستفادة في ملفات أخرى لو أردت استخدامه في ملف آخر 

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

وفقك الله

رابط هذا التعليق
شارك

1 ساعه مضت, عبدالعزيز محمد-محب البرمجة said:

أخي سليم اين اضع الكود في أي خلية؟

قمت بنسخها ووضعها في خلية ظهرت رسالة كما في المرفقAziz.png

مرفق الحل

اذا لم تعمل معك المعادلة استبدل الفاصلة"," بفاصلة منقوطة";"

مجموع حسب التاريخ salim.rar

رابط هذا التعليق
شارك

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

أخي أبوعبدالنور 

حاولت مع الكود حتى يتلائم مع ملفي فلم افلح.

في الكود 5 عناصر إن صحت التسمية الأول عمود التاريخ وهوB والثاني عمود القيمة وهو C والثالث عمود النتيجة وهو H والرابع عمود الذي تظهر فيه المجاميع وهوJ والعنصر الخامس الصف الذي بدأ من الجمع وهو الصف الثاني

عندي ملف به عدة أعمدة -7- أعمدة أريد تطبيق الكود عليه ولكن الأعمدة تختلف فكيف أقوم بتغير الكود حتى يتلائم الكود مع الملف 

باختصار:أريد معرفة الأسطر التي يتم تغييرها في الكود حتى تتلائم مع الأعمدة عندي 

أرجو أن يكون الشرح واضحا

رابط هذا التعليق
شارك

السلام عليكم

لم أفهم 

41 دقائق مضت, أبو عبد النور said:

في الصورة المرفقة وليس الملف كما طلبت هناك ثلاث اعمدة فقط وليس ثلاثة.

ولكني أرفقت الملف الي أود تطبيق الكود عليه ومن خلال التغيير في الكود في الملفين ربما اعرف ما طلبته سابقا وهذا المرفق مرة أخرى

Aziz.rar

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information