كيف يمكن لي تجميع بيانات عمود حتي تاريخ معين في عمود آخر في فورم

[رائد 1982]

السادة الخبراء والاعضاء

لدي في الملف المرفق عمود A به قيم والعمود B به تاريخ ادخال كل قيمة

 

اريد عند كتابة اي تاريخ في تكست بوكس 1 في الفورم الموجود بالملف

يظهر اجمالي القيم في العمود A في تكست بوكس 2

 

ملحوظة : حتي وان كانت التواريخ غير مرتبة في العمود B

 

ارجو ان اكون قد وفقت في توصيل طلبي

 

 

 

Book15.rar

[حمادة عمر]

الاخ الكريم / رائد

تفضل المرفق به المطلوب ان شاء الله

 

تقبل خالص تحياتي

 

Book15-SAMA.rar

[رائد 1982]

الاستاذ القدير الكبير / حمادة عمر

جزيل الشكر علي سرعة الرد والاهتمام

هكذا تعودنا منكم دائما وانتم تعلمونا

 

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

ولكن عند نفله لملفي ونقل الكود الموجود في الفورم لم يعمل ولم تظهر معي اي نتائج

 

ما هو السبب علما بأنني مفعل الماكرو ولا يظهر معي اي رسايل خطأ

جزاك الله خيرا

[حمادة عمر]

الاخ الكريم / رائد

اولا : كنت بصدد كتابة هذا الشرح التالي فعلا قبل طلبك ...

ثانيا :

بارك الله فيك

وجزيل الشكر علي كلماتك الجميلة

قمت بتنفيذ طلبك بطريقة سهلة جدا ... هيا معي !!

ضع المعادلة التالية في الخلية C1 مثلا .. وهي موجودة بالملف ولكن تم تنسيقها علي ان لا تظهر

او ضعها في اي خلية تريدها غير مستخدمة

=SUBTOTAL(9;A2:A100)

ثم قم بوضع الكود التالي في حدث تكست بوكس 1 في الفورم كما يلي

Private Sub TextBox2_AfterUpdate()
Dim SAMA_Date As Date
Dim LastR As Long
Application.ScreenUpdating = False
SAMA_Date = TextBox2.Value
LastR = Sheets("Sheet2").Cells(Rows.Count, 2).End(xlUp).Row
'==============
    Sheets("Sheet2").Range("A1:B" & LastR).AutoFilter Field:=2, _
     Criteria1:="<=" & Format(SAMA_Date, "mm/dd/yyyy"), Operator:=xlAnd
'==============
TextBox1.Value = [C1].Value
Sheets("Sheet2").Range("A1:B1").AutoFilter

Application.ScreenUpdating = True
End Sub

ولكن يجب الآخذ في الاعتبار هذا السطر في الكود

TextBox1.Value = [C1].Value

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

بدلا من  [C1]  الموجودة في الكود

 

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

تقبل خالص تحياتي

تم تعديل نوفمبر 13, 2013 بواسطه حمادة عمر

[رائد 1982]

الاستاذ القدير / حمادة عمر

لك مني ارق التحيات وجميع التشكرات

 

بمجرد وضع المعادلة في الخلية وتعديلها في الكود في الفورم اشتغلت تماااااااااااااااااااااااااااااام

ولا اعرف اشكرك باي طريقة ... والنتائج الاولية سليمة 100%

ساراجع الملف الاساسي واخبرك بالنتيجة

شكرا استااااذي العزيز

[حمادة عمر]

جزاك الله خيرا اخي العزيز

تقبل خالص تحياتي