تجميع بيانات في ملف به صفحتين من 12 ملف( باسماء الشهور ) حسب الاختيار

[هاني مصطفي]

السلام عليكم

اساتذتي الكرام

موضوعي طويل بعض الشئ ولكن طمعي في كرمكم وعلمكم يجعلني متأكدا من انني سأجد الحل لديكم باذن الله

==================

لدي فولدر به عدد 12 ملف اكسيل باسماء الشهور ( يناير - فبراير - مارس .... الخ )

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

==================

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

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

ان يتم تجميع البيانات الموجود في الشهور المختارة وذلك في ورقتي ( total1 و total2 ) في كل الملفات المحددة ووضع تجميعها في نفس الصفحتين

في ملف الاجماليات

وعند اختيار الاجمالي السنوي للعام بالكامل .... يتم التجميع من كل الشهور

ارجو ان يكون طلبي واضح

لعلمي الشديد ان شرح وايصال المطلوب يعتبر نصف الحل لديكم

 

وفي انتظار حلولكم الاكثر من رااائعة باذن الله

جزيل شكري مقدما

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

 

رابط للملف بالكامل ( من هنا )

 

البرنامج 111.rar - 1.81 MB

 

او من هنا

أضغط هنا لتحميل الملف

او

وهذا رابط آخر الملف لكبر الحجم علي رابط خارجي

من هنا

 

او هنا

 

 

http://www.gulfup.com/?Pc5fnZ

1.rar

الاجماليات.rar

2.rar

تم تعديل فبراير 17, 2014 بواسطه هاني مصطفي

[طارق محمود]

السلام عليكم

أخي العزيز

ضع هذا الكود للفورم المذكورة

 

Private Sub CommandButton1_Click()
If CheckBox13.Value = True Then For i = 0 To 11: Controls(i).Value = True: Next

For i = 0 To 11
If Controls(i).Value = True Then a = Controls(i).Caption & ".xls": open_a (a)
Next
Me.Hide


End Sub


Function open_a(a)
pt = ActiveWorkbook.Path & "\"
nm = ActiveWorkbook.Name
mfile = pt & a
Workbooks.Open mfile
    sr = Array(5, 42, 78, 114, 150)
    er = Array(34, 71, 107, 143, 173)


For i = 0 To 4
    Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).Copy
    Workbooks(nm).Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    
    Sheets("total1").Range("I" & sr(i) & ":K" & er(i)).Copy
    Workbooks(nm).Sheets("total1").Range("I" & sr(i) & ":K" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    
    Sheets("total2").Range("D" & sr(i) & ":H" & er(i)).Copy
    Workbooks(nm).Sheets("total2").Range("D" & sr(i) & ":H" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    
    Sheets("total2").Range("K" & sr(i) & ":K" & er(i)).Copy
    Workbooks(nm).Sheets("total2").Range("K" & sr(i) & ":K" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Next
ActiveWorkbook.Close
End Function

Private Sub UserForm_Activate()
For i = 0 To 12
    Controls(i).Value = False
Next i
    sr = Array(5, 42, 78, 114, 150)
    er = Array(34, 71, 107, 143, 173)

For i = 0 To 4
    Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).ClearContents
    Sheets("total1").Range("I" & sr(i) & ":K" & er(i)).ClearContents
    Sheets("total2").Range("D" & sr(i) & ":H" & er(i)).ClearContents
    Sheets("total2").Range("K" & sr(i) & ":K" & er(i)).ClearContents
Next i
End Sub

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

البرنامج 111.rar

[سما محمد]

السلام عليكم

ما هو الكود الذي يمكن استخدامه

في جمع نطاق او نطاقات متعددة من ملف أو أكثر واظهار نتيجة الجمع في نفس النطاق أو النطاقات

في ملف الجمع

وبالطبع الملفات جميعها في فولدر واحد

وياريت لا يتم فتح الملفات عند احضار البيانات ان أمكن

وعذرا لعدم ارفاقي ملف حيث لايمكنني ارفاق ملفات في مكاني الآن

[سما محمد]

السلام عليكم

الاستاذ القدير / رجب جاويش

اعمل انا واخي الفاضل العضو بالمنتدي ايضا أ/ هاني مصطفي بنفس العمل

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

فاحتاج مساعدتك في هذا الموضوع ولكن

موضوعي طويل بعض الشئ ولكن طمعي في كرمكم وعلمكم يجعلني متأكدا من انني سأجد الحل لديكم باذن الله

==================

لدي فولدر به عدد 12 ملف اكسيل باسماء الشهور ( يناير - فبراير - مارس .... الخ )

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

==================

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

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

ان يتم تجميع البيانات الموجود في الشهور المختارة وذلك في ورقتي ( total1 و total2 ) في كل الملفات المحددة ووضع تجميعها في نفس الصفحتين

في ملف الاجماليات

وعند اختيار الاجمالي السنوي للعام بالكامل .... يتم التجميع من كل الشهور

ارجو ان يكون طلبي واضح

لعلمي الشديد ان شرح وايصال المطلوب يعتبر نصف الحل لديكم

 

وفي انتظار حلولكم الاكثر من رااائعة باذن الله

جزيل شكري مقدما

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

 

 

 

البرنامج 111.rar

[سما محمد]

ان كان الموضوع كبير ... فيمكن تخفيف الطلب مبدئيا لتنفيذ المطلوب !!

هل يمكن تنفيذ الكود علي كل ثلاث ملفات فقط مع بعض

اي ان الكود يقوم بتجميع يانات من ( يناير - فبراير - مارس ) فقط الي ملف الاجماليات

ويصبح هناك كود يقوم بتجميع الثلاث شهور الاخري ( ابريل - مايو - يونيو ) الي ملف الاجماليات

 

ولكن يصبح ملف الاجماليات ملف واحد ومشترك لاحضار البيانات المطلوبة

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

 

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

[سما محمد]

فعلا استاذي القدير / رجب جاويش

ولكن الكود لا يعمل بالشكل المطلوب ولا اعلم اين الخلل فيه

فيقوم الكود باحضار بيانات شهر واحد فقط من الشهور التي تم تحديدها

ولا يقوم بعملية التجميع للشهور المختارة

 

ارجو الاطلاع وتحديد اين الخطأ الذي اقع فيه

وايضا لي ملاحظة انه يعمل الكود بفتح الملف المحدد ... احتاج اغلاقه بعد احضار البيانات

 

تقبل تحيات تلميذتك

[رجب جاويش]

الأخت الفاضلة / سما محمد

وبعد اذن المهندس الفاضل / طارق محمود

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

جربى المرفق

 

البرنامج 111.rar

[رجب جاويش]

الأخت الفاضلة / سما محمد

الأخ الفاضل / هانى مصطفي

تم دمج الموضوعين معا لأنهما يحتويان نفس السؤال

مع تحياتى

 

وكل الشكر للمهندس طارق محمود على هذا الكود الرائع

[سما محمد]

السلام عليكم

الاستاذ القدير / رجب جاويش

لك مني اجمل تحيه علي الاهتمام البالغ بتلاميذك

 

الكود يعمل في المرفقات بشكل جيد تماما وكما اريد

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

 

ولكن لي استفسارين

1- اين صيغة الجمع في الكود ( ليتم جمع البيانات في الشهور المختارة ) فكل ما وجدته هو نسخ فقط

2- هل يعمل الكود بنفس الطريقة ان قمت بعمل فورم باسم مستخدم وكلمه مرور لكل ملف من ملفات الشهور اي انه لا يفتح الابعد وضع كلمة المرور واسم المستخدم الصحيحين

   ام ان الكود لا يعمل في هذه الحاله

3- هل لوقمت بتغيير اسماء الملفات يجب علي تغييرها في التشيك بوكس ( هذا يكفي ) .... وهذا السؤال هو لزيادة فهم طريقة عمل الكود فقط ومعلومات اضافيه

 

والشكر موصول للمهندس / طارق محمود

 

تقبل خالص تحيات تلميذتك الغير نجيبه

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

[سما محمد]

وعذرا اساتذتي

فالاخ / هاني مصطفي

يبلغكم سلامه واعتذاره

حيث حدثت له بعض الظروف الطارئة ولا يستطيع متابعة الموضوع

ويقدم كل الشكر للكبيرين

المهندس / طارق محمود

الاستاذ / رجب جاويش

[رجب جاويش]

أختى الفاضلة / سما محمد

   Workbooks(nm).Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

السطر السابق هو المسؤل عن النسخ والجمع فى وقت واحد

حيث أن الجزء  Operation:=xlAdd  الموجود فى نهاية السطر السابق هو المسؤال عن جمع القيم المنسوخة مع القيم الموجودة من قبل

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

 

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

أعتقد أن ذلك سوف يصعب من عمل الكود

 

أما الجزء الخاص  بتغيير اسماء الملفات يجب علي تغييرها في التشيك بوكس ( هذا يكفي )

نعم يكفى

مع تحياتى

[سما محمد]

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

أعتقد أن ذلك سوف يصعب من عمل الكود

 

استاذي القدير

اهتمام ولا في الاحلام

منتهي الجمال والروعة ...

وان شاء الله غدا ساقوم بتنفيذ الكود علي الملفات الاصلية كما اخبرتك

 

ولكن هل يمكن تعديل الكود او اضافه شئ ما عليه ليمكن احضار البيانات المطلوبه وتجميعها

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

 

وعذرا كل العذر لكثرة طلباتي ... ولكنكم عودتمونا علي ذلك ان مبتغانا دائما لديكم مهما كان

 

تقبل ارق التحيات واسمي التقديرات

تلميذتك

تم تعديل فبراير 22, 2014 بواسطه سما محمد

[رجب جاويش]

الأخت الفاضلة / سما محمد

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

سأحاول التجربة فيها ان شاء الله

[سما محمد]

في انتظار روائعك الجديدة ( باذن الله ) استاذي القدير

 

وارجو الا تتذمر او تمل من كثرة طلباتي

 

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

[رجب جاويش]

في انتظار روائعك الجديدة ( باذن الله ) استاذي القدير

 

وارجو الا تتذمر او تمل من كثرة طلباتي

 

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

أختى الفاضلة

لا يوجد تذمر اطلاقا

أى شئ فى مقدورى سوف أقوم به ان شاء الله

[سما محمد]

استاذي القدير / رجب جاويش

بارك الله فيك

وزادك الله من فضله وعلمه

 

الكود يعمل بشكل راائع في الملف الاساسي لدي

وفي انتظار الجزء الخاص بالفورم الخاص باسم المستخدم وكلمة المرور في ملفات الشهور

كل الشكر العميق لك

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سما محمد

بارك الله فيكي

بعد الاطلاع علي الكود الراائع والخطير المقدم من الاستاذ المهندس الرائع دوما / طارق محمود .... جزاه الله خيرا

 

والذي تم الاضافه عليه من الاستاذ العملاق / رجب جاويش ... جزاه الله خيرا

وحبا في مشاركة العمالقة في الموضوعات

 

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

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

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

ولا اري ضير من ذلك فأظن انه زيادة امان حتي لا يعبث بالملفات اي شخص او يحصل علي اجمالياتك

 

وكما ذكر الاستاذ / رجب .... سيتم التجربة ايضا ان شاء الله

 

واعتذر من اساتذتي للتدخل ....

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

[رجب جاويش]

أخى الحبيب / حمادة عمر

مشاركاتك دائما اضافة قيمة للموضوع

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

بارك الله فيك

تشجيع دائم من استاذ لتلميذه

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

[سما محمد]

موضوعي يتزين بالخبراء والاساتذة الاجلاء

هنيئا لي

كل الشكر للاستاذ القدير الرائع دوما / حمادة عمر

معلومات واضافة راائعة

لك مني ارق التحيات

[حمادة عمر]

بارك الله فيكي

الاخت الفاضلة / سما

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

[سما محمد]

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

ونجحت الفكرة والكود بالفعل

كل الشكر والتقدير لكم

[حمادة عمر]

بارك الله فيكي

اختي الفاضلة / سما محمد