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

السلام عليكم الأخوة الكرام توضيحا للطلب ، المطلوب هو استيراد البيانات بيتنسيقها من كافة الملفات فى مجلد ، و لكن دون فتح الملفات و المثال المشار اليه يقوم بذلك بعد فتح الملفات 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 و السلام عليكم و رحمة الله و بركاته

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

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

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

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

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

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

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

السلام عليكم عودا حميدا أخي عادل ووفقك الله و سدد خطاك

السلام عليكم أخي محمد يمكن الوصول للقائمة من هذه الوصلة

مرحبا بك اخي عمر

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

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

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

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

السلام عليكم الحقيقة ان الملف معد على اساس افتراض وجود شيت واحد به بيانات و هو الشيت الاول و سأقوم بتعديله باذن الله ليسمح باختيار ورقة عمل محددة و للتعامل مع شيت آخر مؤقتا قم بتعديل السطر التالي فى الكود اضغط ALT+F11 ابحث عن هذا السطر Set sourceRange = mybook.Worksheets(1).Range(Targetrange) و استبدل رقم (1) الدال على الشيت الاول برقم الشيت او اسمه مكتوب بين علامتي " " لتصبح فى حالتك Set sourceRange = mybook.Worksheets("safety").Range(Targetrange)

كل عام و انتم بخير نهنئ الأخوة احمد حمور-ابوعبدالله معتصم محمد بالترقية الي الخبراء المعتمدين و نشكركم على جهودكم

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

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

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