نجوم المشاركات

السام عليكم ورحمة الله تفضل يالاخو إن شاء الله يكون المطلوب دليل هاتف وحسابلا بنكيه.rar

سلامى على اساتذتنا الاجلاء الحاضرين والغائبين حبيت بس اقدم حاجة مبسطة للمبتدئين فى كتابة الاكواد تيسر شوية عليهم عناء كتابة جمل sql داخل محرر الفيجوال بيسك برنامج صغير اسمه SQl to VBA converter يا ريت ينال اعجابكم طبعا انت بتاخد جملة الاستعلام وتحطها فيه وهو بيحولهالك للكود بكل بساطة والبرنامج استخدامه سهل مش محتاج شرح وهو موجود فى المرفقات SQL to VBA.rar

Manage relationships and keys إدارة العلاقات و المفاتيح. • برنامج الأكسيس هو نظام إدارة قواعد البيانات العلائقية • العلاقات بين الجداول تستخدم في هذا النظام للحفاظ على التكاملية في البيانات و لتقليل الحاجة لتخزين بيانات مكررة. ----------------------- تأتي فاعلية نظام قاعدة البيانات العلائقية من القدرة على العثور على المعلومات المخزنة في جداول منفصلة بسرعة وتجميعها معا باستخدام الاستعلامات. لكي يتم ذلك، يجب أن يحتوي كل جدول على حقل أو مجموعة حقول تقوم بتعريف كل سجل مخزن في الجدول بشكل فريد. و تسمى هذه المعلومة المفتاح الأساسي Primary Key للجدول. متى قمت بتعيين مفتاحا أساسيا لحقل في الجدول، يمنع Access إدخال أي قيم مكررة أو قيم خالية Null في الحقول التي يعين لها مفتاح الأساسي. ------------------------------------------------ --------------------------- حمل ملف البوربوينت: https://www.dropbox.com/s/u8hdkgeygvqbwev/Lesson12.ppsx?dl=0 -------------------------- حمل ملف Pdf: https://www.dropbox.com/s/piexajja08wuln2/Lesson12.pdf?dl=0

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير بمناسبة عيدالاضحى اقدم اليكم حالة عملية لدالة VLOOKUP فى تحديد سعر صنف ضمن مجموعة اسعار لهذا الصنف . وقد استخدمت دالة VLOOKUP لسهولتها . بعيدا عن الدوال الاخرى التى من الممكن ان تستخدم وسائط اكثر مثل INDEX ارجو ان تكون ذات فائده للجميع تقبلوا خالص تحياتى استخدام الداله VLOOKUP فى تحديد السياسات السعريه.rar

هل بإستطاعة أحدنا حبس فرحه في سطر ..وإختزال دمعته وألمه في سطر هل تملك القدرة على فعل ذلك ؟ ما رأيكم لو حاولنا لطالما أُعجبنا بأقوال مأثورة سمعناها هنا أو قرأناها هناك وتأثرنا بها وأثّرت فينا وهذا الموضوع فرصة هائلة لكتابة ما يجيش بداخلنا من أفكار تظهر اتجاهاتنا ومبادئنا في الحياة

السلام عليكم و رحمة الله و بركاته مضى وقت طويل على اخر ارشفة تمت لمواضيع قسم الاكسس و معلوم أن تصنيف المواضيع و فرزها بشكل مبوب يسهل على الأخوة الأعضاء الوصول الى نتائج بحث سريعة على سبيل المثال , هذا التصنيف http://www.officena.net/ib/index.php?showtopic=5605 يساعد كثيرا في الوصول الى النتائج التي يرغب الأخوة بالحصول عليها فأغلب اسئلة الأخوة هي مواضيع مكررة و توجد حلول سابقة كثيرة لها و لكن للأسف الارتباطات العديدة لاتسمح لي بمتابعة هذا التصنيف مع كثرة المواضيع و قلة الوقت المتاح لذلك نفتح باب الدعوة للتطوع لمن يمكنه التفرغ يوميا لوقت بسيط لتصفح المواضيع و اقتراح تصنيفها الصحيح طريقة العمل : 1- سيتم تشكيل لجنة التصنيف من الأخوة الاعضاء المتطوعين من اي فئة من الاعضاء 2 - سيتم توزيع المواضيع الموجوده في المنتدى على أعضاء اللجنة بحيث يأخذ كل عضو جزءا من المواضيع 3- يقوم كل عضو من أعضاء لجنة التصنيف بقراءة المواضيع الموزعة عليه واحدا تلو الآخر قراءة سريعة تؤدي الى ما يلي : أولا : هل الموضوع مكتمل و تم حله أم لا ؟ المواضيع غير المكتملة و التي مر عليها أكثر من ثلاثة اشهر بدون حل سيتم اقتراح حذفها ثانيا : تحميل الملفات الموجوده في الموضوع و فحص هل تعمل أم معطوبة أم مفقودة ؟ ثالثا : الموضوع الذي يحقق الشرطين أعلاه يتم عمل ما يلي : 1 - اختيار عنوان مناسب للموضوع يسهل الوصول اليه ( بعض المواضيع تحمل عناوين مثل : طلب مساعدة - طلب برنامج .. الخ ) 2- اختيار تصنيف مناسب للموضوع حسب التصنيف المذكور في الموضوع المشار اليه أعلاه ( جداول - استعلامات - نماذج .. الخ) رابعا : يتم العناية بالمواضيع التي هي عبارة عن تصميم برنامج كامل عبر المنتدى ( و ليس برنامج جاهز من موقع آخر ) ليتم تبويبها في باب مستقل خامسا : سيتم توزيع نموذج ملف أكسل على أعضاء اللجنة لوضع ملاحظاتهم المذكورة أعلاه سادسا : هناك وعد بترقية اعضاء اللجنة و تقديرهم من قبل الادارة على مجهودهم سابعا : سيكون التواصل مع أعضاء اللجنة عبر البريد الالكتروني في تسليم النماذج و استلام اقتراحات التصنيف ثامنا : سيقوم أعضاء الفريق الاداري بتنفيذ اقتراحات اعضاء اللجنة بالتصنيف واجراء التعديلات المطلوبة ختاما : ايها الأخوة هذا العمل في النهاية تطوعي و هو عمل خير ان شاء الله تعالى و نأمل بنهاية العمل أن يساعد هذا التصنيف على خدمة جميع الأعضاء و تسهيل وصولهم الى المواضيع المطلوبة و استنتاج حلول لمشاكلهم عبر المنتدى بارك الله في كل من سيساهم في هذا العمل , و من لا يستطيع المساهمة بالعمل فرجاء أن يساهم معنا بالدعاء لانجاز هذا العمل التحية للجميع

الجزء الاول المقدمه والتمهيد الموقع الالكترونى هو عدة صفحات يوجد الموقع الالكترونى على مساحه خاصة به على سيرفر يتم الوصول للموقع الالكترونى من خلال الدومين طيب الكلام ده كبير قوى ممكن نبسطه شويه اه طبعا قوى قوى - الموقع الالكترونى : يتكون من صفحة او اكثر والصفحة الواحده قد تحتوى على الصور والفيديوها والمقالات او احد ما سبق ويتم عمل ذلك من خلال مصمم مواقع الانترنت - السيــــــــــــــــرفر : هو المساحه على الخادم التى تحتوى على كل الصفحات والميديا الخاصه بتصميم الموقع - الدوميــــــــــــــــن : هو عنوان الموقع ويبدأ عادة بـ com.اسم الموقع .www مثلا او net.اسم الموقع. www مثلا او eg.اسم الموقع. www ...... طيب حلو قوى الكلام ده الموقع الالكترونى زى ما قلنا من شوية بيتمون من صفحات والتى قد تحتوى على الصور او المقالات او الفيديوهات ولكن معالجة البيانات على الموقع لكى تتم تحتاج لقاعدة بيانات طيب ايه رايكم بما اننا هنا داخل منتدى من اكبر وأهم المنتديات العربية التى تهتم بدراسة منتجات الاوفيس سنقوم بالاعتماد على الاكسس كقاعدة بيانات فى هذه الدروس طيب يبقى كده علشان نشتغل على تصميم موقع الكترونى لازم له الاتى 1- قاعدة بيانات ( أكسس ) ويتم ربط الموقع بقاعدة البيانت عن طريق odbc 2- سيرفر 3- برنامج التكويد الخاص بالبرمجة وكتابة الاكواد اللازمة ( دريم ويفر ) طيب حد من اخواتنا الكرام المتدربين والمتابعين للشرح سامعه يسأل طيب السيرفر منين اجيبه انا هأشرح حالا ان شاء الله نركز لاننا كده بدأنا الشغل الجد الله يبارك لكم نقوم بتخصيص مكان على الهارد ديسك وذلك لجعله هو السيرفر المحلى انا مثلا على سبيل المثال خصصت المكان على القرص c وقمت بإنشاء فولدر بإسم www ولتفعيل السيرفر المحلى نفتح كنترول بانل Control Panel واللى غالبا بتكون بالشكل ده ثم نقوم بتغير العرض كما هو موضح فى الصورة التالية ثم نقوم بإختيار Programs and Features كما هو موضح فى الصورة التالية تفتح كما بالشكل التالى ونختار Turn Windows features on or off بعد ذلك تفتح عندنا نافذة بهذا الشكل من هذه النافذه نختار الـ ( Internet Information Services ) ونقوم بتفعيله نضغط على علامة + الموجوده بجوار Internet Information Services حتى تصبح - وتفتح كل الاختيارات التى تندرج تحت الاختيار الاساسى ( Internet Information Services ) وذلك لتفعيلهم جميعا حتى تصبح كما بالصورة السابقه بوجوده علامة √ بجوار Internet Information Services نعود مرة اخرى للكنترول بانل Control Panel ولكن هذه المره نقوم باختيار Administrative Tools تفتح لنا نافذه بهذا الشكل ونختار منها Internet Information Services (IIS) Manager فتفتح لنا نافذه بهذا الشكل نقوم بالضغط كليك يمين على اسم الجهاز والمستخدم كما فى الصورة التالية فتظهر النافذه بهذا الشكل التالى نقوم بتغيير البيانات كما فى الشكل التالى اسم الموقع طبعا يكون انجليزى بدون مسافات يفضل ان يكون بنفس طريقة اختيار اسم الدومين تحديد الفولدر الذى تم انشائه لتخصيصه سيرفر محلى على الجهاز الخاص بنا على سبيل المثال كما فعلت انا اسم الفولدر www مكان الفولدر القرص c نقوم بتغيير رقم البورت من 80 الى 2082 ثم بعد ذلك نقوم بالضغط على ok كده تمام انتهينا من انشاء السيرفر المحلى الذى سنقوم بتصميم مواقعنا عليه ان شاء الله وللتأكد من تجربة السيرفر والتأكد من انه يعمل بشكل سليم نقوم بفتح الرابط التالى http://localhost/ تفتح بالشكل التالى وللتأكد من فتح الموقع على السيرفر http://localhost:2082/ تفتح بالشكل التالى بهذه النتيجة نكون قد وصلنا الى نهاية الحلقة الاولى ان شاء الله وتفعيل السيرفر المحلى انتظروا الحلقة القادمة ان شاء الله لا اريد الاسراع فى عرض المعلومات لان كثرة الكلام يذهب ببعضه البعض وفى التأنى السلامة ان شاء الله حتى يستوعب من فكرة له اصلا هذه المعلومات القيمة ان شاء الله فكما وعدت سيكون الشرح من اقل مستوى حتى تعم الفائدة على الجميع الى اللقاء اخوكم محمد ☺

هذه بعض أذكار الصباح والمساء وهي مختصرة وسهلة الحفظ فهذه نصيحة مني أخي القارئ أن تحفظها فلن تأخذ من وقتك إلا القليل ولكن أجرها كبير غير ذلك تحميك من كل شيء والحمد لله وإذا لم تستطيع أن تحفظها فبمكانك أن تطبعها وتقول أذكار الصباح بعد صلاة الفجر وأذكار المساء بعد صلاة العصر أو صلاة المغرب ولا يمضي عليك شهراً الا وقد حفظتها نسقتها لكم وأختصرتها لكي يسهل حفظها وأسالكم الدعاء وسوف أذكر أحاديث فضل بعض الأذكار قراءة آية الكرسي {اللّهُ لاَ إِلَـهَ إِلاَّ هُوَ الْحَيُّ الْقَيُّومُ لاَ تَأْخُذُهُ سِنَةٌ وَلاَ نَوْمٌ لَّهُ مَا فِي السَّمَاوَاتِ وَمَا فِي الأَرْضِ مَن ذَا الَّذِي يَشْفَعُ عِنْدَهُ إِلاَّ بِإِذْنِهِ يَعْلَمُ مَا بَيْنَ أَيْدِيهِمْ وَمَا خَلْفَهُمْ وَلاَ يُحِيطُونَ بِشَيْءٍ مِّنْ عِلْمِهِ إِلاَّ بِمَا شَاء وَسِعَ كُرْسِيُّهُ السَّمَاوَاتِ وَالأَرْضَ وَلاَ يَؤُودُهُ حِفْظُهُمَا وَهُوَ الْعَلِيُّ الْعَظِيمُ }البقرة255 ثم قراءة سورة الأخلاص والفلق والناس ثلاث مرات سورة الأخلاص قُلْ هُوَ اللَّهُ أَحَدٌ{1} اللَّهُ الصَّمَدُ{2} لَمْ يَلِدْ وَلَمْ يُولَدْ{3} وَلَمْ يَكُن لَّهُ كُفُواً أَحَدٌ{4} سورة الفلق قُلْ أَعُوذُ بِرَبِّ الْفَلَقِ{1} مِن شَرِّ مَا خَلَقَ{2} وَمِن شَرِّ غَاسِقٍ إِذَا وَقَبَ{3} وَمِن شَرِّ النَّفَّاثَاتِ فِي الْعُقَدِ{4} وَمِن شَرِّ حَاسِدٍ إِذَا حَسَدَ{5} سورة الناس قُلْ أَعُوذُ بِرَبِّ النَّاسِ{1} مَلِكِ النَّاسِ{2} إِلَهِ النَّاسِ{3} مِن شَرِّ الْوَسْوَاسِ الْخَنَّاسِ{4} الَّذِي يُوَسْوِسُ فِي صُدُورِ النَّاسِ{5} مِنَ الْجِنَّةِ وَ النَّاسِ{6} ثم قراءة أخر آيتين من سورة البقرة ( في المساء فقط ) آمَنَ الرَّسُولُ بِمَا أُنزِلَ إِلَيْهِ مِن رَّبِّهِ وَالْمُؤْمِنُونَ كُلٌّ آمَنَ بِاللّهِ وَمَلآئِكَتِهِ وَكُتُبِهِ وَرُسُلِهِ لاَ نُفَرِّقُ بَيْنَ أَحَدٍ مِّن رُّسُلِهِ وَقَالُواْ سَمِعْنَا وَأَطَعْنَا غُفْرَانَكَ رَبَّنَا وَإِلَيْكَ الْمَصِيرُ{285} لاَ يُكَلِّفُ اللّهُ نَفْساً إِلاَّ وُسْعَهَا لَهَا مَا كَسَبَتْ وَعَلَيْهَا مَا اكْتَسَبَتْ رَبَّنَا لاَ تُؤَاخِذْنَا إِن نَّسِينَا أَوْ أَخْطَأْنَا رَبَّنَا وَلاَ تَحْمِلْ عَلَيْنَا إِصْراً كَمَا حَمَلْتَهُ عَلَى الَّذِينَ مِن قَبْلِنَا رَبَّنَا وَلاَ تُحَمِّلْنَا مَا لاَ طَاقَةَ لَنَا بِهِ وَاعْفُ عَنَّا وَاغْفِرْ لَنَا وَارْحَمْنَا أَنتَ مَوْلاَنَا فَانصُرْنَا عَلَى الْقَوْمِ الْكَافِرِينَ{286} ثم قول التالي 1/ " بسم الله الذي لا يضر مع اسمه شئ في الأرض ولا في السماء وهو السميع العليم - (ثلاث مرات) ". 2/ " اللهم إني أسألك العفو و العافية في الدنيا و الأخره ، اللهم إني أسألك العفو و العافية ، في ديني ودنياي وأهلي ، ومالي ، اللهم استر عوراتي ، وآمن روعاتي ، اللهم احفظني من بين يدي ، ومن خلفي ، وعن يميني ، وعن شمالي ، ومن فوقي ، وأعوذ بعظمتك إن أغتال من تحتي ". 3/ " رضيت بالله رباً ، وبالإسلام ديناً ، وبمحمد صلى الله عليه وسلم نبياً - (ثلاث مرات) ". 4/ " اللهم أنت ربي لا إله إلا أنت ، خلقتني و أنا عبدك ، وأنا على عهدك ووعدك ما استطعت ، أعوذ بك من شر ما صنعت ، أبوء لك بنعمتك علي ، وأبوء بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت ". 5/ " أعوذ بكلمات الله التامات من شر ما خلق - (ثلاث مرات إذا أمسى) ". 6/ " أصبحنا و أصبح الملك لله ، والحمد لله ، لا إله إلا الله وحده لا شريك له ، له الملك وله الحمد وهو على كل شئ قدير ، رب أسألك خير ما في هذا اليوم وخير ما بعده ، وأعوذ بك من شر ما في هذا اليوم وشر ما بعده ، رب أعوذ بك من الكسل ، وسوء الكبر ، رب أعوذ بك من عذاب في النار وعذاب في القبر ". 7/ " اللهم صل وسلم على نبينا محمد - (عشر مرات) ". 8/ " أصبحنا على فطرة الإسلام وعلى كلمة الإخلاص ، وعلى دين نبينا محمد صلى الله عليه وسلم ، وعلى ملة أبينا إبراهيم ، حنيفاً مسلماً وما كان من المشركين ". 9/ " اللهم إني أصبحت أشهد ك و أشهد حملة عرشك ، وملائكتك وجميع خلقك ، أنك أنت الله لا إله إلا أنت وحدك لا شريك لك ، وأن محمداً عبدك ورسولك - (أربع مرات) ". 10/ " اللهم عالم الغيب والشهادة فاطر السموات والأرض ، رب كل شئ ومليكه ، أشهد أن لا إله إلا أنت ، أعوذ بك من شر نفسي ، ومن شر الشيطان وشركه ، وأن أقترف على نفسي سوءاً ، أو أجره إلى مسلم ". 11/ " حسبي الله لا إله إلا هو عليه توكلت وهو رب العرش العظيم - (سبع مرات) ". 12/ " أصبحنا و أصبح الملك لله رب العالمين، اللهم إني أسألك خير هذا اليوم : فتحه ، ونصره ونوره وبركته وهداه ، وأعوذ بك من شر ما فيه وشر ما بعده ". 13/ " اللهم أجرني من النار - ( سبع مرات ) " 14/ " اللهم عافني في بدني ، اللهم عافني في سمعي ، اللهم عافني في بصري ، لا إله إلا أنت . اللهم إني أعوذ بك من الكفر ، والفقر ، وأعوذ بك من عذاب القبر ، لا إله إلا أنت - (ثلاث مرات) ". 15/ " اللهم إني أعوذ بك من الهم والحزن والعجز والكسل والبخل والجبن وضلع الدين وغلبة الرجال " 16/ " اللهم بك أصبحنا ، وبك أمسينا ، وبك نحيا ، وبك نموت ، واليك النشور ". إذا كان في المساء تقول " اللهم بك أمسينا، وبك أصبحنا ، وبك نحيا ، وبك نموت ، واليك المصير ". 17/ " يا حي يا قيوم برحمتك أستغيث أصلح لي شأني كله ولا تكلني إلى نفسي طرفة عين ". 18/ " سبحان الله و بحمده - (مائة مره) ". 19/ " أستغفر الله وأتوب إليه - (مائة مره في اليوم) ". 20/ " اللهم ما أصبح بي من نعمة أو بأحد من خلقك فمنك وحدك لا شريك لك ، فلك الحمد ولك الشكر ". 21/ " لا إله إلا الله وحده لا شريك له ، له الملك وله الحمد ، يحي ويميت ، وهو على كل شئ قدير - (عشر مرات) أو (مرة واحدة عند الكسل) ". 22/ " الله إني أسألك علماً نافعاً ، ورزقاً طيباً ، وعملاً متقبلاً - (إذا أصبح) ". 23/ " سبحان الله وبحمده : عدد خلقه ، ورضا نفسه ، وزنة عرشه ، ومداد كلماته - (ثلاث مرات أذا أصبح) ". وسوف أذكر فضل هذا القول وهو قول الرسول صلى الله عليه وسلم ( حدثنا أبو بكر بن أبي شيبة حدثنا محمد بن بشر حدثنا مسعر حدثني محمد ابن عبد الرحمن عن أبي رشدين عن ابن عباس عن جويرية قالت مر بها رسول الله صلى الله عليه وسلم حين صلى الغداة أو بعد ما صلى الغداة وهي تذكر الله فرجع حين ارتفع النهار أو قال انتصف وهي كذلك فقال لقد قلت منذ قمت عنك أربع كلمات ثلاث مرات وهي أكثر وأرجح أو أوزن مما قلت سبحان الله عدد خلقه سبحان الله رضا نفسه سبحان الله زنة عرشه سبحان الله مداد كلماته ) صحيح سنن ابن ماجة باختصار السند 24/ " لا إله إلا الله ، وحده لا شريك له ، له الملك وله الحمد وهو على كل شئ قدير- (مائة مرة إذا أصبح) ". وهذا يا أخوان الذي لا يقولها فقد خسر شيء كبييييييييييراً وأنظروا الى فضله قال الرسول صلى الله عليه وسلم (حدثنا أبو بكر حدثنا زيد بن الحباب عن مالك بن أنس أخبرني سمي مولى أبي بكر عن أبي صالح عن أبي هريرة قال قال رسول الله صلى الله عليه وسلم من قال في يوم مائة مرة لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شيء قدير كان له عدل عشر رقاب وكتبت له مائة حسنة ومحي عنه مائة سيئة وكن له حرزا من الشيطان سائر يومه إلى الليل ولم يأت أحد بأفضل مما أتى به إلا من قال أكثر * ( صحيح ) _ وأخرجه البخاري ومسلم .

بارك الله فيك سلمت يداك

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

تمت التجربة بنجاح عمل جميل ورائع بارك لله بجهودك وجزاك الله خيراً انا سعيد اني الأول

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

ليك وحشة يا أخ عبد الله فينك يا رجل ؟؟ مفتقد وجودك ..لعل تأخيرك عنا خير تقبل تحياتي

السلام عليكم بعد اذن استاذى الحبيب شوقى ربيع اليك ملف لنفس مشكلتك بابسط مما تتخيله ب solver solver.rar

اخى واستاذى ياسر خليل فعلا انا مش ماسك نفسى من كتر الضحك ^^ ربنا يبارك فيك طيب لانى فعلا موضحتش المطلوب بالظبط هو ده نص المطلوب النص الثانى انى عايز ارتبهم بحيث اذا كان فيه عدد من الموظفين على نفس الدرجة يتم ترتيبهم بدلالة تاريخ التعيين يعنى لو ف 2 موظفين على نفس الدرجة واحد معين شهر 1 والتانى شهر 2 يبقى ترتيبهم حسب الشهر الخاص بالتعيين

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا أوفيسنا السلام عليكم ورحمة الله وبركاته أما بعد بداية أوجه شكرى لأستاذى ياسر خليل على موضوعه (الانشطار الكبير .. انشطار أوراق العمل بالمنصف إلى مصنفات مختلفة) في هذا الرابط http://www.officena....showtopic=59788 واليوم أقدم لكم موضوعى الانشطار الأكبر أو the biggest splitting والذى فيه يتم انشطار ورقة عمل واحدة بالمنصف إلى مصنفات متعددة كيفما تشاء حسب اختيارك لعدد الصفوف داخل ورقة العمل فى المصنف الذى سوف ينجم عن عملية الانشطار فكلما قل عدد الصفوف كلما زاد عدد المصنفات الناجمة عن هذه العملية أيضا يمكن تضمين رأس الصفحة ( السطر الأول فى الشيت غالبا ) فى كل المصنفات التاجمة عن هذه العملية والمصنفات الناجمة عن الانشطار تتكون فى مجلد يتم تكوينه أثناء هذه العملية وعلى رأى أستاذى ياسر " اللى يحضر عفريت يصرفه " لذلك لم أنس أن نجمع هذه المصنفات مهما كان عددها فى مصنف واحد وفى ورقة عمل واحدة كما كانت استخدمت فى عملية التجميع كود أستاذنا ياسر خليل بعد اجراء تعديلات تتناسب مع الهدف . الأكواد المستخدمة : الكود الأول المسئول عن عملية الانشطار لــ Jerry Beaucaire : Option Explicit Sub SplitFileByNRows() 'Jerry Beaucaire 7/27/2014 'تعريف المتغيرات فى الكود Dim N As Long, T As Long, LR As Long, Rw As Long, Cnt As Long Dim IncludeTitles As Boolean, fPATHOUT As String, Titles As Range 'تحديد عدد الصفوف التى سوف تنسخ فى كل ملف جديد N = Application.InputBox("How many rows to copy into each new workbook?", "Rows Per", 100, Type:=1) If N = 0 Then Exit Sub ' اذا كانت القيمة = 0 يتم الالغاء ' نحديد تضمين العنوان أو رأس الصفحة فى الملف الجديد أم لا IncludeTitles = MsgBox("Include titles in each new workbook?", vbYesNo) 'تحديد عدد الصفوف التى سوف تنسخ ابتداء من أعلى الصفحة اذا ما تم تضمين العنوان أو راس الصفحة If IncludeTitles Then 'اذا تم تضمين العنوان أو رأس الصفحة Do 'افعل العمل التالى T = Application.InputBox("How many rows from the top makeup the titles to be included in each new workbook?", "Title Rows", 1, Type:=1) 'فرصة اعادة ادخال البيانات اذا تم ادخال 0 أو ضغط الغاء أو تخطى الاجراءات If T = 0 Then If MsgBox("There are no title rows to include after all?" & vbLf & _ "(click YES if made a mistake and would you still like to include title row(s).", vbYesNo) = vbNo Then IncludeTitles = False ' الغاء تضمين العنوان أو رأس الصفحة Exit Do End If Else Exit Do End If Loop End If 'انشاء مجلد جديد فى نفس مسار الملف النشط وذلك لوضع الملفات الجديدة بداخله fPATHOUT = ActiveWorkbook.Path & Application.PathSeparator & "OUTPUT" & Application.PathSeparator If Len(Dir(fPATHOUT, vbDirectory)) = 0 Then On Error Resume Next MkDir fPATHOUT On Error GoTo 0 Else 'فحص الملفات الجديدة داخل المجلد الجديد واعطاء خيار الحذف أو تركها If Len(Dir(fPATHOUT & "*.xl*")) > 0 Then If MsgBox("There are currently files inside the folder:" & vbLf & " " & fPATHOUT & vbLf & vbLf & _ "If we continue, those files will be erased and new files placed in that folder. Are you sure you want to proceed?" _ & vbLf & vbLf & "(Click NO if you want to abort and copy those files to a safe location)", vbYesNo) = vbYes Then Kill (fPATHOUT & "*.xl*") Else Exit Sub End If End If End If 'عملية معالجة الشيت النشط 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False With ActiveSheet If IncludeTitles Then Set Titles = .Range("A1").Resize(T).EntireRow LR = .Range("A" & .Rows.Count).End(xlUp).Row For Rw = T + 1 To LR Step N Cnt = Cnt + 1 'زيادة قيمة المتغير بمقدار 1 Sheets.Add ' اضافة شيت جديد If IncludeTitles Then Titles.Copy Range("A1") .Range("A" & Rw).Resize(N).EntireRow.Copy Range("A" & T + 1) Range("A" & T + 1).Select ActiveWindow.FreezePanes = True Else .Range("A" & Rw).Resize(N).EntireRow.Copy Range("A1") End If ActiveSheet.Move ' تحريك الملف النشط 'حفظ ورقة العمل النشطة باسم كذا وفى نفس المسار ActiveWorkbook.SaveAs fPATHOUT & "NewBook" & Cnt & ".xlsx", 51 ActiveWorkbook.Close False ' الغاء اغلاق الملف النشط Next Rw 'الانتقال للصفوف التالية End With 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True MsgBox "A total of " & Cnt & " new workbooks were created and can be found in:" & vbLf & fPATHOUT End Sub الكود الثانى الخاص بعملية التجميع " مقبس من كود التجميع لدى أستاذى ياسر خليل مع اجراء تعديلات واضافات " : Option Explicit Sub CollectWorkbooks() 'تعريف المتغير من النوع نصي Dim Path As String 'تعريف المتغير من النوع نصي Dim Filename As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet Dim wrkConsSheet As Worksheet Dim lngLastRow As Long Dim lngOutputRow As Long Dim lngMyCounter As Long Dim shp As Shape 'تعريف المتغير للترتيب الصحيح لأوراق العمل Dim X As Long 'تعيين القيمة 1 للمتغير كبداية X = 1 'تعيين المتغير ليساوي مسار المجلد الذي يحوي المصنفات المراد دمج أوراق العمل منها Path = ThisWorkbook.Path & "\OUTPUT\" 'تعيين المتغير ليساوي اسم كل مصنف من المصنفات التي سيتم التعامل معها Filename = Dir(Path & "*.xlsx") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية التنبيه بالرسائل Application.DisplayAlerts = False '[StartingData]حلقة تكرارية لحذف أوراق العمل ما عدا الورقة المسماة For Each SH In ThisWorkbook.Sheets If SH.Name <> "FINISHING DATA" Then SH.Delete Next SH ThisWorkbook.Worksheets("FINISHING DATA").Select Selection.ClearContents 'حلقة تكرارية للمصنفات الموجودة في المسار المحدد إلى أن لا يجد أي مصنف بالمسار Do While Filename <> "" 'فتح المصنف Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 'حلقة تكرارية لكل أوراق العمل داخل المصنف النشط For Each SH In ActiveWorkbook.Sheets 'نسخ ورقة العمل ولصقها بنهاية فهرس أوراق العمل SH.Copy After:=ThisWorkbook.Sheets(X) 'زيادة قيمة المتغير بمقدار 1 X = X + 1 'الانتقال لورقة العمل التالية Next SH 'إغلاق المصنف Workbooks(Filename).Close 'إعادة ضبط المتغير Filename = Dir() Loop 'تنشيط أو تحديد ورقة العمل الأولى Sheets("FINISHING DATA").Activate Application.ScreenUpdating = False Set wrkConsSheet = Sheets("FINISHING DATA") 'اعتبار المتغير wrkConsSheet = ورقة العمل [FINISHING DATA] ' مرحلة البحث والتجميع For Each SH In ThisWorkbook.Sheets If SH.Name <> "FINISHING DATA" Then lngLastRow = SH.Range("A:Z").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If lngMyCounter = 0 Then SH.Range("A1:Z" & lngLastRow).Copy Destination:=wrkConsSheet.Range("A1") Else lngOutputRow = wrkConsSheet.Range("A:Z").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 SH.Range("A2:Z" & lngLastRow).Copy Destination:=wrkConsSheet.Range("A" & lngOutputRow) End If lngMyCounter = lngMyCounter + 1 'زيادة قيمة المتغير بمقدار 1 End If Next SH Sheets("FINISHING DATA").Activate 'تنشيط أو تحديد ورقة العمل [FINISHING DATA] For Each SH In ThisWorkbook.Sheets If SH.Name <> "FINISHING DATA" Then SH.Delete ' حذف أوراق العمل ما عد الورقة المسماه[FINISHING DATA] Next SH For Each shp In ActiveSheet.Shapes If shp.Top > 150 Then shp.Delete ' لحذف الأشكال التلقائية التى تنسخ أثناء عملية الانشطار والتجميع Next 'تفعيل خاصية التنبيه بالرسائل Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة 'Application.ScreenUpdating = True End Sub المرفق يحتوى مصنفين : الأول الذى نجرى عليه عملية الانشطار والثانى وهو الذى تتم فيه عملية التجميع أتمنى أن تسعدوا به و لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** the biggest splitting.rar

بعد اذن الاخوان الكرام حل اخر بواسطة الكود repete au choix.rar

الاخوه الافاضل السلام عليكم ورحمة الله وبركاته مع اننى ادرك تماما ان هناك الكثير من اساليب كسر الحمايه الا اننى اصر على تقديم هذه الفكره لعلها تكون مفيده ............................................................. الموضوع ببساطه اننى قمت بوضع عده شروط لفتح الملف ................................................ الشرط الاول وهو عدم الاتصال بالانترنت وفى هذه الحاله يتم اعطاء المستخدم نسخه تجريبيه تنتهى بعد 30مره من الاستخدام ثم عند فتح الملف فى المره 31 يتم ظهور رساله تفيد بانتهاء النسخه التجريبيه وان يجب الاتصال بالانترنت لفتح الملف او الضغط على زر نعم اذا كان لديك رقم تحديث النسخه ثم عند الضغط على زر نعم يتم ظهور فورم به ارقام للدخول قم قم بضرب اول 3 ارقام من اليمين فى اخر رقمين من اليسار+249 هنا يتم اعطاءك نسخه جديده ل 30 مره ............................................................................. الشرط الثانى هو ان يكون لديك انترنت هنا تكون النسخه صالحه للاستخدام لمده سنه بعد السنه يتم ظهور الفورم للتجديد فى حالة ادخال الرقم الصيح تحصل على سنه اضافيه وهكذا وفى حالة تغير تاريخ الجهاز وعدم مزامنته مع التاريخ الفعلى تظهر رساله تفيد بانه سوف يتم غلق الجهاز لضبط على التاريخ فى حالة التلاعب بتارخ الجهاز من اجل الدخول لن تتمكن من الدخول مطلقا ............................................................................................................................................................................ ايضا تم اضافة كود يقوم باخفاء جميع الاوراق ماعد ورقه تسمى بشاشة ترحيب وذلك عند غلق الملف وعند الفتح يقوم باظهار جميع الاوراق ماعدا هذه الورقه اى انه فى حالة عدم تمكين الماكرو سوف يتم فتح الملف على ورقه واحده الا وهى شاشه الترحيب ............................................................ اسيبكم مع الملف عزرا النسخه المرفقه مقفوله ولكن سيتم ارفاق الملف مفتوحا بعد رؤيه المشاركات تقبلو تحياتى ربط الملف بالانترنت ورقم الهارد لفتحه.rar

ممكن تتابع العمل على استضافة حضرتك بدل السيرفر المحلى عادى لكن هتواجه الاتى اولا هتحتاج كل شوية ترفع الملفات اللى انت عاوز ترفعها او تضيفها وهتحتاج كل شوية تعدل وده يلزمه وجود الانترنت بصفة مستمره ممكن السرعه تأثر عليك شوية لو النت بطئ تانى شئ والاهم بالاسلوب ده هتستنزف الباندويث او الترافيك الخاص بك على الفاضى ثالث شئ ولا تزعل تحت امرك نلغى الاكسس لو حابب ونشتغل sql *_^ انت تأمر يا باش مهندس

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

السلام عليكم ما رئيك ان اقول لك ان الامر ابسط مما تظن اليط هته المعادلة التي صممتها لهذا الغرض Function rabie(x As Double, xx As Double, xxx As Double) As String On Error Resume Next If x = x * xxx Then rabie = "علاقة حاصل ضرب" ElseIf x = x * xxx Then rabie = "علاقة طرح" ElseIf x = x * xxx Then rabie = "علاقة جمع" ElseIf x = x * xxx Then rabie = "علاقة قسمة" Else rabie = "لايوجد علاقة" End If End Function الصيغة العامة لدالة rabie(قيمة البحث عن العلاقة;القيمة الاولى;القيمة الثانية) البحث عن علاقة رقم بمجموعة ارقام اخرى.rar

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

أخي الكريم ان شاء الله سأتابع الدورة من الصفر أولا :هل يمكن أن أتابع العمل على موقع استضافة يعني على سيرفر الموقع بدل سيرفر محلي ثانيا:ألا يلزم قاعدة بيانات sql بدل الآكسس لبناء الموقع وشكرا

باشمهندس الله يرضى عليك ليش بدأت بتفعيل السيرفر المحلي ؟!!! وهل تفعيله بيأثر على المساحة أو الأداء !!! اعذرني أستاذي مازلت وإن كبرت طالبة علم

تمام التمام يا غالي .. زادك الله من علمه و فضله .. فتح الله لك و لكل أسرتك الكريمة أبواب الخير يا رب..كما فتحتَ لنا أبواب المعرفة..و بالنسبة لليوم : الأربعاء و الخميس و الجمعة ....الخ ..كيف تبقى الأسماء على اليوزرفورم باللغة العربية بدلاً من mercredi..jeudi..vendredi..samedi ..معذرة على الإزعاج أستاذنا ياسر

هل الصف المطلوب طباعته (الذي يحوي المجموع ) مطلوب في آخر صفحة فقط ..؟؟ أم أنك تريد طباعة المجموع بشكل مستمر لكل صفحة ، والمجموع يكون خاص بتلك الصفحة فقط ..

جرب المرفق اتمني يكون هو طلبك لك تحياتي Book1.rar

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

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

مشكور على دعائك الطيب يالطيب .. جمعنا الله وإياك في مستقر رحمته ، في الفردوس الأعلى من الجنة .. قول آمين يا أبو الحسن والحسين ..

السلام عليكم ورحمة الله الله الله بأخوي ياسر ابو البراء تسلم وشكرا جزيلا علي كل ماقدمته لنا بارك الله فيك كل ذا الحلاوه وتقارن. حفظك الله وحفظ اهلك واولادك يالطيب

حياك الله اخي العزيز هذا الكود اكتبه الماكرو واتم اضافته او كيف جزاك الله خير جزاء المحسنين ووفقك الله اتفضل اخي الكريم هذا مثال يفي بالغرض انشالله AA.rar

أخي الفاضل جرب المرفق التالي Gregorian Hijri Dates UserForm.rar

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

نفس الملف لكن بواسطة الكود ربما كان الأسرع استخراج البيانات معدل ماكرو.rar

باراك الله فيك استاذنا العزيز ابو خليل و جزاك خير الجزاء اضافة الى ما تفضلت به مشكوراً اضع بعد اذنك كود آخر للفائدة بنفس الحدث ( عند التنسيق ) لقسم التفصيل للتقرير : Static intA As Integer If intA Mod 2 = 0 Then Me.Detail.BackColor = 14933454 Else Me.Detail.BackColor = 16777215 End If intA = intA + 1 بالتوفيق للجميع

لعله المطلوب تكرار.rar

السلام عليكم ورحمة الله وبركاته وهذا حل بالأكواد مع إضافة خاصية "عدد مرات تكرار كل عدد" تلميذكم مختار حسين تحياتى Book2.rar

السلام عليكم ورحمة الله أخي الكريم إبراهيم، بالمعادلات تجد حلا في المرفق مع إضافة خاصية "عدد مرات تكرار كل عدد" وأرجو أن يروقك هذا الحل... أخوك بن علية المرفق : Book1_1.rar

ارفق مثال لو تكرمت ليتم التعديل كما تريد وبناء على المثال يتم الشرح وما تم تعديله على المرفق الخاص بكم ان اردتم الشرح

للإجابة على هذا السؤال علينا إسقاطه على ثلاث نقاط أساسية لنخلص بعدها إلى جواب علمي مرتكز على معايير واقعية وليس على أهواء وميولات. - النقطة الأولى: التكلفة Cost: معلوم ان لغة PHP لغة مجانية، ويمكن تشغيلها على مختلف انظمة التشغيل من Windows و Mac و Linux، إضافة إلى أن استضافة المواقع والتطبيقات المبرمجة بها متوفرة ومتاحة بكثرة وسعرها مناسب جدا. بينما تقنية ASP.Net تابعة لشركة ميكروسوفت، وهي ليست مجانية وإنما مدفوعة، ويا ليت الأمر يتوقف عندها بل إن التكاليف مستمرة، خصوصا أن المواقع والتطبيقات المبرمجة بتقنية ASP.Net لا تشتغل إلا على الويندوز وهو منتج مدفوع، أضف إلى ذلك أن بيئة التطوير الخاصة ب ASP.Net وهي الفيجوال ستوديو مدفوعة أيضا وليست مجانية، إلا في حال أردت أن تشتغل على بيئة Mono Project على نظام Linux و Mac أو تشتغل على النسخ Express من الفيحوال ستوديو وهي مجانية لكنها ليست بمستوى كفاءة وقوة النسخ الكاملة مثل Ultimate و Professional... ويستمر تفوق PHP على ASP.Net إذا ما تطرقنا إلى موضوع التوافقية Interoperability مع قواعد البيانات، فسوف نجد أن لغة PHP متوافقة بشكل كبير مع نظام إدارة قواعد البيانات MySQL وهو منتوج مجاني متاح للجميع :) بينما تستمر دواهي وطوام ASP.Net لنجد أنها متوافقة بشكل كامل مع نظام إدارة قواعد البيانات MS SQL Server وهو مدفوع وغير مجاني :) ما عدا النسخة Express طبعا. إذن من حيث عامل التكاليف فلغة PHP أفضل بمراحل من تقنية ASP.Net - النقطة الثانية: الكفاءة والأداء Performance: هذه النقطة بالذات لا نستطيع الجزم فيها لأن كلا من لغة PHP وتقنية ASP.Net تشتغلان بكفاءة عالية وبأداء جيد، ويمكنك الاطلاع على سرعة مواقع كبيرة مصممة بهما، فمثلا موقع Facebook وهو أكبر شبكة تواصل اجتماعي مبرمج بلغة PHP، وموقع StackOverFlow أكبر تجمع للمبرمجين حول العالم مبرمج بتقنية ASP.Net بالارتكاز على لغة C# ما دمنا نتحدث حول الأداء والكفاءة فدعوني أوجه رسالة لكل مبرمج كفاءة البرامج مرتبطة بكفاءة المبرمج فما دمت تعتمد على الدقة في كتابة الكود Optimize the code، وما دمت تحرص على كتابة استعلامات منسقة ونظيفة Clean and Proper SQL Queries فأنا أضمن لك أن كفاءة برامجك ستزداد. - النقطة الثالثة: مصادر التعلم مصادر تعلم لغة PHP متوفرة بشكل أكبر من مصادر تعلم تقنية ASP.Net ولعل ذلك راجع إلى مجانية اللغة والعدد الكبير للمبرمجين بها. كذلك من حيث سهولة التعلم فلغة PHP أسهل، يكفيك أن تتابع دورة أو تقرأ كتابا ثم تبدأ بتطوير برمجيات ب PHP، كما يكفيك أن تطلع على قليل من قواعد PHP لتبدأ تطوير أنظمى إدارة المحتوى Content Managemeny System مثل ووردبريس أما تقنية ASP.Net فمصادر تعلمها نادرة قليلا بالقياس مع وفرة مصادر PHP، لكنها سهلة التعلم إن كان لك سابق عهد بإحدى لغات الدوت نيت (فيجوال بزيك أو سي شارب) إضافة إلى دعمها للعديد من تقنيات الويب بشكل بسيط نذكر على سبيل المثال تقنية Ajax التي ستستطيع استخدام مجموعة من الأدوات الجاهزة، كل ما عليك سوى سحبها داخل Source Code والاستمتاع بها أيضا تقنية ASP.net غنية جدا على مستوى تقارير الطباعة Reporting لأنها تدعم الكريستال ريبورت و Report Document بشكل قوي جدا، الشيء الذي سيجعل شعرك يشيب في PHP لأنها عقيمة على مستوى التقارير. في الختام أحب أن أشير إلى أن الاختيار بين لغة PHP وتقنية ASP.Net يحكمه توجهك الخاص أيها المبرمج، فلو كنت من رواد الدوت نيت فالتحق بركب ASP.Net ولا تلتفت لكل ما يشاع فإنك على صواب. أما إن كنت جديدا وليس لك دراية بإحدى لغات الدوت نيت، فلا تتردد بخوض غمار لغة PHP ورأسك مرفوع، وإن سألوك عن السبب قل لهم: أوصاني بها رجل كريم

سبحان الله والحمد لله والله اكبر ... سبحان الله وبحمده

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

حارب لأجل أحلامك ولو لم يحارب معك أحد تنفــس ، ابتســم ، توكل على الله ، انطلق و حينها ستحصد خيراِ كثيرا

السلام عليكم هذا الكود لتعبئة الكمبوبوكس بما يناسبه Sub ListCmb(sName As String, sCmb As String) Dim MyStr, MyList, i Set MyList = CreateObject("Scripting.Dictionary") MyStr = sName & "*" For Each i In Ary If i Like MyStr Then MyList(i) = "" Next i Me(sCmb).List = MyList.keys End Sub وصيغة استدعائه تكون (مثال للكمبو الاول) ListCmb "Boitie", "ComboBox7" وهذا الكود لتعبئة السعر حسب ماتختار من الكمبو مع حساب مجموع التكسات Sub Sher(sShr As String, sText As String) Dim cc Dim n: n = 11 Me(sText).Value = "" Me.TextBox126.Value = "" MyStr = sShr & "*" For Each ii In Ary n = n + 1 If ii = sShr Then Exit For Next ii If sShr = "" Then Me(sText).Value = "" Else Me(sText).Value = ws.Cells(n, 3).Value End If For cc = 1 To 5 Me.TextBox126.Value = Val(Me.TextBox126.Value) + Val(Me("TextBox12" & cc).Value) Next End Sub وصيغة استدعائه تكون (مثال للكمبو الاول) Sher Me.ComboBox7, "TextBox121" ان شاء الله يكون المطلوب تحياتي للجميع Originale14.rar

اخي الفاضل محمد الريفى

يُنقل ............

وجدتهما في مكتبتي PSchool.rar School.rar