تقرير متقدم بملف جديد من محتوى ورقتين

[عبدالله باقشير]

السلام عليكم

طلب لاحدهم جعلته هنا لتعم الفائدة

راجع الرابط ادناه

لتعرف المزيد

الفكرة هي انني اريد اختيار اعمدة من كلا الصفحتين بيانات1 وبيانات 2

بمعني اخر اريد ان انشئ تقرير يتألف من اعمدة اختارها من صفحة بيانات1 واعمدة اختارها من صفحة بيانات2

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

اي اريد الاعمدة (الرقم) و (الاسم) و (المحافظة) من صفحة بيانات1 واريد الاعمدة (بيانات8) و(بيانات12) و (بيانات14) من صفحة بيانات2 على سبيل المثال

بعد اختيار هذه الاعمدة السابقة , اريد تحديد من مكان لصقها في صفحة التقرير اي

اريد لصق عامود (الرقم ) بالعمود (A) في صفحة التقرير

ولصق عامود( بيانات8) بالعمود (B) في صفحة التقرير

ولصق عامود (الاسم) بالعمود © في صفحة التقرير

ولصق عامود (بيانات14) بالعمود(D) في صفحة التقرير وهكذا

ارجوا ان تكون الفكرة قد وضحت

http://www.officena....showtopic=43070

المرفقات 2003

الفرق بين الملفين

عند التشييك على تحديد الكل تعطي نتائج مختلفة

انشاء تقرير متقدم2.rar

انشاء تقرير متقدم2.rar

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل عبد الله باقشير (أبا علي) حفظكم الله.

جزاك الله كل خير ورفع قدرك وأعز شأنك وبارك بك وفيك.

أبو أنس ناصر حاجب

[أبو ردينة]

بارك الله فيك أستاذنا الحبيب أبا علي

جربت الملف الأول بأختيار الكل لم ينشئ التقرير

جربت الملف الثاني بأختيار الكل أيضا ( و حدد خيارات غير السابقة ) تم إنشاء التقرير

جاري التعلم و الإستفادة و سأعود إن شاء الله بالسؤال لأستزيد

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

[الـعيدروس]

السلام عليكم

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

قمة في الروعه سنتعلم منه الكثير

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

تلميذك أبو نصار

تقبل مروري

[nicola]

الاستاذ عبد الله باقشير

يعجز لساني عن شكرك

بارك الله فيك وزادك من علمه

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

[ياسر الحافظ]

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

كما قال احد الاخوة تعجز الكلمات عن تقديم الشكر لكل ما تقدمه لنا

لن اطيل ولكن اقول وفقك الله

ابو الحارث

[يوسف عطا]

إبداع ليس له مثيل إلا عند اساتذة أوفيسنا

الكلمات لا توفيك حق قدرك مهما بالغت فى المدح

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

ربنا يجعل أعمالك فى موازين حسناتك

ولكن إسمحلى أستاذى الغالى أن أطلب طلب صغير على هذا الملف ليتناسب مع أعمال أخرى

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

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

مثلاً

أن تظهر رسالة عند الضغط على كلمة تقرير تسألنا عن عدد الأعمدة التى نريدها

مع قابليتها للزيادة حتى 510 عامود ( إجمالى أعمدة الإيكسيل فى الصفحتين) أو كما ترون سيادتكم بحد أدنى 50 عامود

أو

أن يكون فورم التقرير أوتوماتيكى تلقائياً تظهر فيه اسماء الأعمدة المضافة فى صفحات البيانات تلقائياً

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

ولكن الفكرة أنه القول الشائع بأن الحاجة أم الإختراع ليس صحيح دائماً

فقد نرى الإختراع (ملفك المتميز) فتظهر فى عقلنا فكرة لإستخدامه بطريقة أخرى

دمت بود أخونا الغالى

تم تعديل سبتمبر 21, 2012 بواسطه يوسف عطا

[saad abed]

استاذنا عبدالله باقشير

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

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

تقبل تحياتى

سعد عابد

[عبدالله المجرب]

استاذنا عبدالله باقشير

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

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

تقبل تحياتى

صدقت يا سعد

ابو احمد

[الـعيدروس]

الاخ يوسف باامكانك تغير النطاق

من جزئية الكود التاليه مثلا

انا جربت مع توسعه النطاق

يبطي نوع ما

Private Sub kh_MyRngSet()

Dim Last As Long

'========================

'  تعيين النطاق ويشمل رؤوس الاعمدة

With Sheets("قاعدة البيانات")

    Last = .Range("C" & .Rows.Count).End(xlUp).Row

    Set Rng1 = .Range("A2:SP" & Last)

End With

'========================

With Sheets("قاعدة البيانات2")

    Last = .Range("C" & .Rows.Count).End(xlUp).Row

    Set Rng2 = .Range("A2:SP" & Last)

End With

End Sub

[يوسف عطا]

مشكور يا ابو نصار

جارى التجربة

[خالد الشاعر]

استاذ عبد الله باقشير

استاذ معلم بجميع المقايس

تسلم ايدك و جزاك الله كل خير

[يوسف عطا]

تمت التجربة بزيادة مدى رؤوس الاعمدة

وبالفعل هى تعمل اوتوماتيكياً

والملف سرعته مقبولة والبطئ لم اشعر به

الله ينور عليك استاذنا الكبير خبور

[عبدالله باقشير]

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

احبائي في الله

أبو أنس حاجب

ابو ردينه

عباد

nicola

ياسر الحافظ

يوسف عطا

سعد عابد

عبدالله المجرب

khhanna

حفظكم الله جميعا

واكرمكم الله على كلماتكم الطيبة

واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

تقبلوا تحياتي وشكري

[عبدالله باقشير]

تمت التجربة بزيادة مدى رؤوس الاعمدة

وبالفعل هى تعمل اوتوماتيكياً

والملف سرعته مقبولة والبطئ لم اشعر به

الله ينور عليك استاذنا الكبير خبور

انا كنت اريدك ان تكتشف ذلك بنفسك

لانك اكيد حتعدل النطاقات لتتلائم مع ملفك

[القومي]

استاذنا / عبدالله باقشير

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

من روائع العلامة والمدرسة الاستاذ / خبور

تعلمت الكثير

فيعجز لسانى عن تقديم الشكر

تقبل تحياتى وشكرى

[أحمد فؤاد]

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

أستاذي الكبير : عبدالله باقشير

يقف اللسان عن الكلام

بارك الله فيك ونفع بك الإسلام والمسلمين

تلميذك : أحمد فؤاد

تم تعديل سبتمبر 22, 2012 بواسطه amfouad555

[الجزيرة]

ما شاء الله ولا قوة الا بالله

كم أنت رائع يا عبد الله

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

[محمد مصطفى ابو حمزة]

بارك الله فيك ونفع بك المسلمين