محمد طاهر عرفه

لا اتصور أن ذلك ممكنا و حقيقة اذا اردت ان تستخدم نماذج فى الاكسيل ، فلابد من البرمجة ،و الله اعلم

السلام عليكم تم اعادة الرفع بعد حذف مراجع الأكود الاضافية ، جرب الان

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

افتح الملف اضغط ALT+F11 من قائمة Debug اختار Compile VBA Project و أخبرني هل تظهر رسائل خطأ ؟ ايضا راجع Tools References هي تشير الي مراجع Missing ؟ هل تستخدم اوفيس 2010 ؟

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

تم تنفيذ التعديل فى الملف الأصلي http://www.officena.net/ib/index.php?showtopic=38355 برجاء التجربة ، و بعد اذنكم سأغلق هذا الموضوع حتى لا يتشعب الحوار ، حيث تم التطبيق هناك

السلام عليكم أخي عادل ، alidroos ، أشكركم على المداخلة ، أخي عادل ، هذه الطريفة تعتمد على فتح الملف و غلقه ، و هو ما لا يريده السائل، نعم فى حالة الملفات الصغيرة لا تأخذ وقتا و قد لا نلحظ عملية فتح و غلق الملف لانها تتم سريعا لاسيما فى حالة الاجهزة الحديثة نوعا ما ، و لكن فى حالته الملف دسم جدا ، و يستغرق وقت فى الفتح لكل ملف على جهازه لذا نحاول استمطار افكار بخصوص تطبيق ما يريد على كافة الملفات بالمجلد و بالخصائص المشار اليها هنا ، و حاليا لا اعرف سوي تطبيق الفكرة المشار اليها علاه باستخدام Get Value أو التعامل مع الموضوع من خلال ال ADO Connection و نقل السجلات لذا رغبت فى أن نتشارك فى التفكير قبل محاولة التنفيذ ، و أرجح الفكرة الاولي حيث لا تحتاج لاضافة مراجع للملفات فيصبح التطبيق أكثر عمومية . عموما سأبدأ فى تجربتها و تعديل التطبيق بإذن الله باستخدام Get Value أخي عادل قمت برفع المثال فى مشاركتك ، و بالنسبة لمشكلة الاضافة تأكد من تحديث نسخة المتصفح و أخبرني برسالة اذا هناك مشكلة

السلام عليكم الجزء الأول : تجميع صفوف و ليس اعمدة : نعم هذا ممكن و اضافة مفيدة جدا ، و سأحاول مراعاة ذلك باضافة هذا الخيار فى اصدارات قادمة باذن الله و لكن غالبا ليس الاصدار القادم مباشرة ، حيث سيغطى الاصدار القادم باذن الله هذا الموضوع ، و أشكرك على تنبيهي لهذه الاضافة. الجزء الثاني : لم أفهم المقصود ، هل تريد تجميع كل البيانات من كل اوراق العمل ووضعها تحت بعضها فى ملف ، ام ذلك لمجال معين ايضا و هل ذلك المجال ثابت فى كل اورق العمل ام تريد كل البيانات؟ ، صراحة ارى هذا الطلب حالة خاصة جدا و يصعب تعميمها كطلب ضمن برنامج عام كهذا ، و قد اضاف الأخ عادل حنفي هنــــا فى هذا الرد كود ينقل كافة البيانات من كافة اوراق العمل من ملف الي ملف يمكنك أن تستفيد منه كبدابة لتحقيق ما تريد. اذا لم يكن الطلب الثاني يخص اضافة مقترحة او ملاحظة على هذا التطبيق العام ، اقترح طرحه كسؤال مباشر فى قسم الاكسيل موضحا به ما تريد تحديدا

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

السلام عليكم ان مواصفات الجهاز عامل مهم جدا فى سرعة الاداء و اذا كان هذا جهاز العمل فاقترح بحث امكانية تحديثه ، طبعا اذا كان هذا متاحا ، و ستشعر بفرق كبير للسرعة ، و يمكنك التجربة على جهاز زميل اخر احدث لترى فرق السرعة مع زيادة الامكانيات فالمشكلة هنا هى حجم ملفاتك مقارنة بامكانيات الجهاز ، ، أى اذا تمكنت من تحديث الجهاز ستحل المشكلة الحالية ، فهذه المواصفات لم تعد قوية فى الايام الحالية للاسف و هذا لا يمنع طرق سبل اخري للتعديل و لكن فى كل الاحوال ستظل امكنيات و سرعة الجهاز عامل مؤثر بدرجات متفاوتة فى سرعة تشغيل التطبيق و لننتظر بعض الوقت ، ربما يفيدنا أحد الاخوة بطريفة أخرى أفضل قبل أن نجرب التعديلات فهي ايضا ستحتاج لوقت فى تجربتها و تنفيذها و الوقت ليس متاحا بوفرة هذه الايام للاسف بالنسبة لتسجيل ماكرو اولا تحتاج لاختيار اظهار مجموعة ال developper اذا لم تكن تظهر لديك فى اوفيس 2010 و ذلك عن طريق النقر بالزر الايمن بجانب مجموعة الادوات العلوية و اختيار تخصيص شريط الادوات Customize the ribbon او file options Customize the ribbon و اختيار اظهار مجموعة ال developper و ستجد فيها امر record new macro اولا قم باختيار اي مجموعة خلايا حتى لا يدخل ذلك ضمن الاجراءات المسجلة ثم اختار بداية التسجيل record macro و اختار ان يكون تسجيله فى الملف نفسه و قم مثل باضافة بعض التنسيقات كلون الخلفية و الاطار border و لون و حجم الفونت ثم اختا ر Stop recording و الان اختار تحرير edit لتري الكود لتشغيل الكود اختار اي خلايا اخري ، ثم اضغط ALT+f8 او macros من الشريط و اختار تشغيل الماكرو ، سيطبق عليها نفس التنسيق و اذا كان الماكرو مستخدم باستمرار يمكنك تسجيله فى ال personal macro sheet ليكون متاحا فى كل الملفات او فتح الملف المسجل به الماكرو اثناء تشغيله او نقل الماكرو للملف الذي تريد عن طريق التصدير او السحب و الافلات من محرر البيزيك ALT+F11 و الموقع به العديد من المواضيع التي تتناول تسجيل و نقل الماكرو بجرب البحث و التصفح لهذه المواضيع

عن طريق اختيار زاوية محاذاة ميل الكتابة Properties alignment orientation كانك تريد ان تظهر الكتابة مائلة ، و ذلك سينطبق على لون الخلفية ايضا

السلام عليكم الأخوة الكرام توضيحا للطلب ، المطلوب هو استيراد البيانات بيتنسيقها من كافة الملفات فى مجلد ، و لكن دون فتح الملفات و المثال المشار اليه يقوم بذلك بعد فتح الملفات http://www.officena....ds&showfile=109 و هنا حجم الملفات التي تمثل مصدر البيانات كبير جدا و به اوراق عمل عديدة كما هو موضح فى المرفق الذي اضافه ، لذا يبحث الأخ عن طريقة أخري لا تستلزم فتح الملف بالنسبة للاستيراد كبيانات فقط ، دون فتح الملف يمكن استخدام ExecuteExcel4Macro لاستدعاء دالة Get Cell الجاهزة و هي دالة قديمة نسبيا تعود لماكروهات اكسيل 4 و هي تستدعي خلية بخلية (واحدة واحدة) لذا يتم وضعها فى لوب عند الاستدعاء مع اضافة المسار الكامل للملف و ورقة العمل و الخلية عند كل استدعاء ، و لكن لا تستدعي التنسيق مع البيانات ، و هو ليس ما يريده صاحب الموضوع http://msdn.microsof...fice.11%29.aspx و عليها مثال هنا http://www.exceltip...._Excel/473.html و كما هو مشار حل عملي آخر و هو نسخ المعادلات ، و هذا اراه انسب عند عدم وجود معادلات حسابية فى الخلايا المستهدفة ، و فى حالته توجد خلايا بها معادلات لذا قد لا يكون هذا مناسبا ، أيضا هو لا يناسب طلب السائل حيث يستلزم الكود فتح الملفات. Dim wb As Workbook Application.ScreenUpdating = False ' turn off the screen updating Set wb = Workbooks.Open("C:\Foldername\Filename.xls", True, True) ' open the source workbook, read only With ThisWorkbook.Worksheets("TargetSheetName") ' read data from the source workbook .Range("A10").Formula = wb.Worksheets("SourceSheetName").Range("A10").Formula .Range("A11").Formula = wb.Worksheets("SourceSheetName").Range("A20").Formula .Range("A12").Formula = wb.Worksheets("SourceSheetName").Range("A30").Formula .Range("A13").Formula = wb.Worksheets("SourceSheetName").Range("A40").Formula End With wb.Close False ' close the source workbook without saving any changes Set wb = Nothing ' free memory Application.ScreenUpdating = True ' turn on the screen updating End Sub و اذا هناك طرق اخرى لاستجلاب البيانات من ملف مغلق سواء مع او بدون تنسيقها يرجى الافادة ( و يفضل مع التنسيق ) الأخ leprince2007 بالمناسبة فكرة تنسيق الخلايا فى الملف المرفق كعينة للبيانات المطلوبة جميلة جدا (الحد الازرق المائل ) ، و لاول وهلة لم ادرك كيفية عملها ، و بعد ان فهمتها اعجبتني الفكرة جدا و ارجو الاجابة على الاسئلة التالية: 1- هل هو هذا النطاق فقط ثابت دائما ؟ production!c85:c90 2- المجال الذي اشرت اليه ليس به تنسيقات كثيرة فربما لا تحتاج حقيقة لنسخ التنسيق اذا كان التنسيق هو تنسيق واحد بسيط للخلايا كلها فيمكنك عمله سريعا او تسجيله فى ماكرو و حفظه فى جهازك و تنفيذ الماكرو على البيانات ؟ ام الحال مغاير لذلك؟ 3- جربت البرنامج مع ملفك (ستة نسخ منه) ، و لم يأخذ وقت ملحوظ، فى المتوسط كم عدد الملفات التي ترغب فى تجميع البيانات منها؟ 4- ايضا ما مواصفات الجهاز الذى تستخدمه ؟ اذهب الي My computer و اضغط بالزر الايمن و اختار properties و اخبرني بالبروسيسور و الرام 5- هل الملفات على جهازك مباشرة ام على شبكة ( خادم مشترك) ؟

نعم ، لم انتبه لذلك فقد جربته على ملفات ليس بها معادلات تم التعديل بنسخ القيم ثم التنسيق و أيضا تم اضافة بعض تعديلات التنسيق البسيطة الملف الجديد 3.1 جرب الان

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

تم اضافة الاصدار الثالث ، و به المزايا التالية : 1- استخدام نموذج بدل من الازرار المباشرة نظرا لاضافة خيارات عديدة ، و يتم تسجيل مسار المجلد و اسم ورقة العمل و المجال المطلوب للخلايا المراد تجميع البيانات منها فى الحقول المناظرة. 2- فى حال عدم تسمية ورقة العمل سيتم التجميع من ورقة العمل الاولي فى جميع المفات داخل المجلد. 3- اضافة تلميحات tips بالعربية عند الوقوف بالماوس على الحقل للتوضيح. 4-امكانية اختيار تجميع البيانات فقط أو تجميع البيانات و التنسيق معا من ملفات المصدر الموجودة داخل المجلد المختار. 5- امكانية اختيار اظهار او اخفاء امتداد اسماء الملفات عند وضعها كعنوان للبيانات فى الملف التجميعي. 6- امكانية السماح بتكرار اسم الملف عند وجود اكثر من عمود يتم استخراجه من نفس الملف ، او الاكتفاء بخلية واحدة مع دمج العناوين. 7- اضافة اطار خارجي يوضح بيانات كل ملف اما عن السرعة فلم اجد ما يفضي الي زيادة السرعة دون تنازل عن الضروريات و فيما يخص استخراج البيانات و الملف مغلق ، هذا ممكن و لكن لا يناسب احتياجاتك حيث انه على حد علمي لا يتيح نسخ التنسيق ، كما انه قد يستدعي استدعاء خلية بخلية مما قد لا يمثل توفير كبيرا فى الوقت اذا كان عدد الخلايا كبيرا. و يمكنك فتح موضوع مخصص كسؤال مباشر عن هذا الاستفسار و باذن الله تأتي اضافات مفيدة من الأخوة حيث ان السؤال سيكون مباشر و بالتالي فرصته فى الاجابة اكبر من عمل او تعديل تطبيق. و من العوامل المؤثرة فى اداء الملف امكانيات الجهاز الذي تستخدمه ، جرب تشغيل الملف على جهاز اقوى (على سبيل التجربة) . اتمنى ان يكون هذا هو ما تطلب إضغط هنـــــــــــا لتنزيل الملف ، ثم اضغط Download و السلام عليكم و رحمة الله و بركاته

السلام عليكم اولا بالنسبة لردك الأخير ـ المهارات المطلوبة للبرمجة لا تتضمن الحفظ فى رأيي ، و انما مهارة التفكير المنطفي و ترتيب الافكار اما عن الاكود نفسها فبعد الالمام بالاساسيات ، هناك مصادر عديدة يمكن الاستعانة بها اثناء كتابة الكود - تسجيل ماكرو و تحريره - ملف التعليمات - مكتبة اكواد قد تكون كونتها على جهازك -البحث فى الموقع - البحث على النت و طيعا لا ضير من ان تتقن او تتذكر بعض الاكواد و هذا عامل مساعد و لكن ليس العامل الاساسي كمصدر للكود على الاقل من وجهة نظري

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

السلام عليكم أخي الكريم ، كما ذكرت فى ردى عليك من اسبوع ، سأحاول باذن الله متابعة التعديلات عند الاستطاعة ، و عن نفسي مازال على قائمة مهامى أمور عاجلة أخرى علي انهاؤها اولا و نسأل الله التيسير من ناجية أخرى أدعوك للمشاركة الايجابية ، فعالم الاكواد سيظل عالما غريبا عليك ما لم تحاول الدخول فيه ، فالملف مفتوح المصدر ، هناك العديد من الشروح و الامثلة فى الموقع فحاول الدخول فى الموضوع خطوة بخطوة أو شراء كتابة فى البرمجة على التوازي فافضل بداية هى الحاجة لعمل شيء و كما يقولون (الحاجة ام الاختراع) ، و عندها ستجد الامور اكثر وضوحا و سهولة باذن الله ، و نراك بعد فترة احد اعلام الاكواد فى الموقع ، و هذا قد حدث بالفعل مع الكثير من الاخوة فلا تضييع هذه الفرصة لتبدأ. من ناحية أخرى اري فى ردك بعض الضيق و علامات استفهام كثيرة ، لماذا تستغرب ان لا نتمكن من توفير الوقت لعمل ما تطلب بالسرعة التي تتوقعها ؟ هذا ليس رد عام يأخذ ثلاث دقائق فى كتابته، و كما أن هذا الملف مفيد لك و تنتظره سريعا ، حال الجميع ان لديهم ما يشغلهم فى عملهم و حياتهم و دراستهم ... الخ.. فعندما يكون المطلوب يحتاج لوقت فمن يشارك يقوم بتقدير اهمية و عمومية الطلب ضمن قائمة اولويات حياته كلها و ليس فقط اولويات ردوده داخل الموقع ، فليس من المتوقع مثلا ان يكون لديه ضغط عمل متاخر و يتركه مثلا الا فى حالات خاصة عموما سأحاول دون وعود التفاعل مع الموضوع خلال عطلة نهاية الاسبوع باذن الله تعالى ، و آمل أن أستطيع ذلك ، و ان كنت كما ذكرت لك ارى ما تطلب اضافات مفيدة و ليست بالضرورة تعديلات مطلوبة لجميع من يستخدم الملف ، و ادعوك مرة أخرى لعدم اهمال دعوتي لك لمحاولة الدخول على التوازي فى عالم الاكود.

السلام عليكم أخوتى الكرام نشكركم على جهودكم ، و نرسل لكم أطيب الأمنيات

السلام عليكم تم النقل ، مع الشكر و التقدير

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