ابومؤنس

الحمد لله علي النتيجة , بالنسبة للتاريخ راجع تنسيق التاريخ في الخلية من خلال( تنسيق الخلايا) ثم (رقم) واجعلة yyyy/mm/dd لان التاريخ عندي في الجهاز هاكذا اليوم/الشهر/السنة . بالتوفيق ,

السلام عليكم ورحمة . عندما وضعت تصور لشكل الملف . كان علي الصورة التالية : في العمود A العلامة التي تظهر عند تجاوز الطالب النسبة المحددة للغياب ووضعت المعادلة التالية : =IF(B1>=9;"xxxxx";" ") وافترضت ان العلامة هيXX ويمكن زيادتها او تعديلها مع تحرير الدالة . وكذلك افترضت ان النسبة المقررة لظهور العلامة هي 9 ايام للغياب وكذلك يمكن تعديلها . وفي العمود B عدد الغياب , وضعت دالة تحسب عدد غياب الطلاب في نفس الصف والمعادلة هي : =COUNT(D1:AA1) مع افتراض ان اخر عمود يسجل فية الغياب هو العمود AA1 ويمكن تعديلة . وفي العمود C وضعت اسم الطالب . ومن العمود D وحتي العمود المقرر لعد الغياب ( في المعادلة السابقة تم تحديدة بعمود AA ) يسجل تواريخ الايام التي غاب فيها الطالب . بحيث عند اسم الطالب يسجل تاريخ اليوم الذي غاب فية فتقوم الدالة COUNT بعد الخلايا التي تحتوي علي التواريخ وتظهرها في العمود B وتظهر العلامة عند تجاوز النسبة . هنا اود ان اذكر ملاحظة : انة من السهل تصميم هذة الافكار ولكن شخصيا احبب ان يبدو الاخوان في وضع الخطوات الاولي ونحن نكمل الباقي . بهذة الطريقة هم المستفيدون الاكبر من افكارهم . ولكن اذا اعتمدون علي الحصول علي البرامج جاهزة بهذة الطريقة سيتعلمون ولكن ببط شديد . وانا واثق من انك قادر ان شاء الله علي تنفيذ هذة الافكار علي الاكسيل . وانا في انتظار الرد وتقديم المساعدة حتي النهاية ...

السلام عليكم ورحمة الله . اليك اخي العزيز الملف بعد التعديل ارجو منك التجربة ونحن معك حتي تحصل علي البرنامج الذي تريد .. Ajazat1.zip

السلام عليكم ورحمة ... وحدة وحدة , انا الان فهمت اشياء دعني احكيها لك واذا كانت صحيحة بناء عليها يتم تعديل الملف السابق , اولا : عندما تقوم بكتابة سنة جديدة ولنفرض انك كتبت في الخلية A1 السنة (2003) عندها تكتب القيمة الثابتة في الخلية B1 وهذة القيمة هي 35 بعدها مباشرا وتلقائيا يصبح الرصيد في الخلية F1 هي 35 . ثانيا : تقدم موظف يريد الحصول علي اجازة ولنفرض انها من تاريخ 1/1/2003 حتي تاريخ 30/1/2003 اي ان مدة الايجازة هنا هي 30 يوما ...طبعا كتبنا تاريخ بداية الايجازة في الخلية C2 والنهاية في الخلية D2... بعد هذا تحسب الدالة عدد الايام وتكتب النتيجة في الخلية E2 التي هي طبعا 30 يوما ثالثا : يصبح الرصيد هنا هو 5 الفرق بين الرصيد 35 وعدد ايام الايجازة 30 . هل هذة هي الطريقة التي يجب ان يعمل عليها البرنامج ؟

السلام عليكم ورحمة الله . اخي العزيز اليك الملف بعد التعديل . وارجو منك تجربة البرنامج لانني عملت فيه علي عجل ارجو اختبار القيم والمعادلات هل تعمل بشكل صحيح . واذا كان هناك ملاحظات نحن هنا . تم عمل مايلي وضع معادلات لحساب ايام فترة الاجازات . عمل رسائل تحذير اذا كانت بداية الايجازة ونهايتها ليست في سنة واحدة من اجل تطبيق رصيد الايجازات السنوي . يتم خصم الرصيد في حالة ادخال سنة جديدة . يظهر الرصيد في حالة تجاوزة الرصيد المقرر 35 يوم باللوان الاحمر . ارجو تجربة البرنامج حيث اكرر اني عدلت فية علي عجل . واي خدمة نحن مستعدون بالتوفيق .. اخوك ابومؤنس تم حذف الملف المرفق . الملف في الصورة النهائية للتعديلات في الاسفل ,

اللهم امين ,, واي خدمة نحن مستعدون , اتمني للجميع التوفيق .

السلام عليكم ورحمة الله اعتذر عن التاخير في الرد . اخي ابو ابرار اليك الملف المرافق وفية كود يقوم بفتح الصفحة التي اسمها من اسم الشهر الحالي في الجهاز . اي انة يفتح مباشرا دون تدخل من المستخدم علي الشهر الحالي . جرب واي خدمة في الانتظار ,, اخوك ابومؤنس ,,بالتوفيق . OpenAuto.zip

السلام عليكم ورحمة الله اسف علي التاخير . اليك ملف بة امر مل الشاشة افتراضي بعد الفتح مباشرا , للتعرف علي الامر المستخدم اضغط علي Alt+ F11 بالتوفيق ,,, OutaFill.zip

اخي الغالي لا توجود معادلة واحدة تقوم بذلك كلة . ولكن عن طريق دمج اكثر من دالة تحقق ذلك . جرب دمج كل من الدوال الدالتين السابقتين التي تقوم باظهار اكبر رقم . او اقل رقم . Lookup والتي بربطها برقم الصنف تقوم باظهار هذا الصنف او هذة الاصناف تماما عندما نفعل في التفقيط . ستجد في المنتدي تطبيق للقائمة المنسدلة وذلك بواسطة الدالة lookup مع تغير هنا فقط في ان الوسيط الاولي لهذا الدالة ياتي عن طريق الدالتين max و min وليس عن طريق الزر ... اذا لم تنجح محاولتك ساضع نموذج لذلك . بالتوفيق ,,,

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

تحت امرك اخي مصلح ,,, وسوف اتقيد بالخطة التي تحددها . وانا واثق اننا سوف نستفيد من خبرتكم . بالتوفيق ,,,

اخي العزيز انا جربت اسماء وحروف عربية وانجليزية ونجحت العملية تماما . بالنسبة للنسخة اوفيس التي اعمل علية هي 2000 ولم تظهر لي رسالة . بالتوفيق ,,, هذة نسخو مطورة من نفس البرنامج تقبل الاصفار من الجهتين مثل 500 وغيرها مع الشكر للاستاذ محمد طاهر SpecificedFilling3.rar

يعطيك العافية اخي مصلح يمكن كذلك ان نضيف بند جديد يقابل البند (سنة الانتاج) وهو تاريخ انتهاء الصلاحية - ممكن ينفع لبرنامج محاسبي للسوبر ماركت او صيدلية او مستوصف او ممكن مستشفي او مستودع ادوية . وممكن الان بعد هذا المسح الميداني ان نضيف التصور الذي يكون علية البرنامج ساقوم بكتابتها واطلعكم علية للمناقشة ,,, تمنياتي للجميع بالتوفيق ,,

السلام عليكم ورحمة الله وبركاتة ,,, اخي حسام حمد لله علي السلامة , اخي رايت . البرنامج ممتاز جدا وتسلمك يمينك ويعطيك العافية ,, لدي بعض الاقتراحات بعد اذنك طبعا ممكن انها تحسن من اداء البرنامج خصوصا واني عملت برامج علي نفس النوعية في الاكسيل برنامجين حولتمها الي اكسيس واثنان مازال يعملان . صممت برنامج لحساب المكالمات الهاتفية في الشقق المفروشة وكان عند عملية الفتح والحفظ بطي جدا بسبب كبر البيانات وتعدد الصفحات (37 صفحة ) ولكن في الاخير عملت تعديل . قمت بعمل ملف للواجة وقسمت باقي الصفحات الي ملفات مستقلة ووضعتها في مجلد واحد وعند عملت الفتح كنت اتعامل مع ملف واحد هو ملف الواجهة (ممكن يكون هنا ملف الشهر الحالي) لانك في تصوري رايح تتعامل مع ملف واحد مدة 30 يوم او 31 يوم اما باقي الايام رايح تكون للاستعلام والتقارير . وبيما ان الملفات داخل المجلد مرتبطة مع الملف المصدر فالبيانات رايح يتم حفظها ولن تتغير الا عند اي تغير في الملف المصدر وبطبع فالشهور الماضية لن يحدث فيها تغير . و الاكسيل رايح يتابع اي تغير في الملفات المرتبط ويسال عن تغير البيانات وتجيب بنعم او لا . وممكن عن طريق رابط الملفات بواسطة الربط التشعبي ان يفتح الملف للشهر الحالي تلقائيا عند فتح ملف الاصناف . وجعل ملف التقارير يقوم فقط بفتح الاشهر الماضية - باعتبار ان فيها بيانات بينما الاشهر القادم لا يوجد بها بيانات وبالتالي لا يوجد اي داعي لفتحها - ايضا تلقائيا بمجرد فتح ملف التقارير . وبذلم يسهل عليك عملية الفتح والحفظ لانة اخي العزيز اذا كان الملف الان يحتاج الي ما يقارب الدقيقة عند عملية الفتح اذن بعد تصور العملية عند ادخال بيانات 6 شهور . وهو قد مرت علية . لذلك احببت ان اوضح لك الامر حتي تتجنبة . لانني بصراح اعجبت ببرنامجك واردت لة ان يكون علي اجمل وافضل وجة . والامر يعود اليك اخي العزيز لدي بعض الاضافات بعد اذنك ولكن ساقوم بتجربتها ثم اعطيك النتيجة . وارجو منك الا تعتبرهذا تصغير لبرنامج ولكن اردت ان يكون في افضل صورة واحسن عمل ولو كان الامر غير ذلك لما كتبت هذا .. اتمني لك التوفيق من كل قلبي ..اخوك ابومؤنس .

بعد اذن الاخ العزيز حسام .. اذهب ال شريط الادوات ثم عرض ستجد خيار (مل الشاشة) اذا كان هذا هو المطلوب اي ظهور الشاشة بهذا الشكل فالامر سهل . عن طريق ماكرو تسجل فية امر مل الشاشة ثم تضعة في صفحة الفيجول ضمن open فيقوم الامر تلقائيا عند الفتح بمل الشاشة , هذا هو الموجود في الاكسيل .. وبالله التوفيق ,,

قد وضعت تصورا للبرنامج والانظمة التي يعتمد عليها . نحن في انتظار المسح الميداني للاخ مصلح . بعدها - طبعا بعد اذن الاخ مصلح وبقية الاخوان - ساضع التصوري الذي لدي . وهو من واقع العمل كمدير لمستودع ادوية ومستلازمات طبية من عام 1997 م بالتوفيق ,,,

قام الاستاذ الفاضل محمد طاهر بعما اضافات علي البرنامج الاخير . تمكن من اضافة عبارات وحروف كثابت لليمين او اليسار . كل الشكر والامتنان للاستاذ وبالتوفيق للجميع , النسخة بعد الاضافات . SpecificedFilling2.rar

اذا لم تستطع شرح الموضوع بصور جيدة . ضعة في احد مواقع الاستضافة المعروفة ثم اجعل لة وصلة للمنتدي . بالتوفيق ,,,

علي بركة الله . نحن في انتظار تعليمات القائد :d الاخ مصلح . مجرد راي , مارايكم ان يتم تثبيت الموضوع لانة ستكون فية العديد من المنقشات والمتبعات . اتمني للجميع التوفيق ,,

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

اذا وافقت ادراة المنتدي فانا اول المشاركين ,

ربنا يخليهم لك . ويبارك فيهم ويطول في عمرهم ويسعدهم ويجعلك تفرح فيهم وان يكون من الصالحين الاتقياء . وان يجمع بينكم في الجنة اللهم امين .. ما اعتقد حد دفع اكثر مني ,,,,

شكرا اخي العزيز علي المشاركة . بالتوفيق ,,,

الحمد لله . اشكرك اخي الغالي حسام . ونحن في الخدمة دوما , اتمني لك وللجميع التوفيق .

السلام عليكم ورحمة الله وبركاتة . بالنسبة لتحديد خلية معينة . من المعرف لدينا ان الخلية هي عبارة عن التقاء عمود مع صف من هذا المنطلق نقوم يتحديد رقم العمود ورقم الصف للخلية المراد مراقبتها عند حدوث اي تغير فيها يتم استدعاء الماكرو لها . فمثلا الكود التالي يخص الخلية (C6) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And Target.Row = 6 Then Run ("AB") End If End Sub وتعني الاشارة Column=3 اي العمود الثالث وهو C والاشارة Row=6 اي الصف السادس . بالتوفيق ....