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

السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar

اخى الجموعى هذه فكره اخرى البحث بالإسم1.rar

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

اخواني أخواتي تم بحمد الله اصدار العدد الاول عدد مارس 2014 بتاريخ 2014/03/09 علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=52349#entry326736

أخي وحبيبي في الله الاستاذ محمد أبو البراء جزاك الله كل خير تقبل تحياتي وتقديري

استاذ الغالي // وليد فتحي بارك الله فيك وجعلك الله عونا لاخوانك.. استغلال جيد للمعادلة

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

الأخ الكريم/ أبوبلقيس السلام عليكم ورحمة الله وبركاته الإجابة نعم - ويعتمد الأمر علي اللغة البرمجية التي ذكرتها حضرتكم وتكون مهمتها جلب البيانات من الملف وإجراء الفتح والجلب والغلق يتم من خلال الإكسل الذي يقوم بإجراء كافة العمليات المطلوبة في الخلفية بشكل غير مرئي - ويطلق علي هذة المقاربة Excel Automation تقبل تحياتي

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

تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300

أستاذي وليد فتحي شرفني مرورك الطيب في متصفحي جفظك الله

السلام عليكم ورحمة الله وبركاته استاذنا الحبيب والغالي ابراهيم ابوليله جزاك الله كل خير وزادك من علمه تقبل تحياتي ومروري

الأستاذ الفاضل / وليد فتحي السلام عليكم ورحمة الله وبركاته زيادة في الخير.. ولماذا الاعتذار وكلنا نؤدي خدمة لوجه الله تعالى . جزاك الله خيراً على جميع اعمالك الرائعة بالمنتدى. لك كل التحية والتقدير.

الأستاذ / أبو عبد الرحمن نادر السلام عليكم ورحمة الله وبركاته إليك الملف به المطلوب. برنامج الغياب1.rar

السلام عليكم ورحمة الله وبركاته وبعد اذن الاستاذ الفاضل // أحمد فواد حضرتك كل كود بيبدا ب sub الاسم () فغير هذا الاسم سواء بالعربي او الانجليزي بمعنى اذا كان الاكواد تاخذ نفس الاسم مثلاً كهكذا sub braa () غير الاسم braa واجعله braa1 sub braa1 () او اي اسم اخر كــ ahmed او fathy او اي اسم تعرف ان هذا هو الخاص بالكود لتمييزه والسلام عليكم ورحمة الله وبركاته

اخى الجموعى هل تقصد هكذا البحث بالإسم.rar

اخى الجموعى ارفق ملف لما تريد للعمل عليه

السلام عليكم ورحمة الله وبركاته اليكم برنامج Paint Shop 5 حمل البرنامج ونتمنى عرض اعمالكم بالصفحة http://www.up-00.com/?lIRj حتى يشجعنى ذلك لتحميل البرنامج التالى

السلام عليكم ورحمة الله وبركاته اخي الفاضل احمد محي اتفضل الملف لعله يفي بطلب في الملفات الاخرى stock new sys_33.rar

تفضل أخى المطلوب ترحيل البيانات بشرط.rar

اخي الفاضل احمد محي اتفضل واتمني من الله ان يكون طلبك بانتظار ردك stock new sys_22.rar

الأخ الكريم/ الجموعي السلام عليكم ورحمة الله وبركاته أتقدم بالشكر للأستاذ/ إبراهيم ابوليله حضرتكم لا تحتاج لإستئذان تقبل تحياتي print.rar

الأخ العزيز /maro9400 ضع الكود التالي في حدث الورقة ( ورقة1) وإن شاء الله يلبي طلبك Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:A11")) Is Nothing Then Exit Sub If Range("A10") = 0 Then Range("A15,A17,A19").EntireRow.Hidden = True Else Range("A15,A17,A19").EntireRow.Hidden = False End If If Range("A11") = 0 Then Range("A16,A18,A20").EntireRow.Hidden = True Else Range("A16,A18,A20").EntireRow.Hidden = False End If End Sub ولي طلب إليك تكرما لا قسرا بتغير اسم الظهور للغة العربية ولك مني كل التحية والتقدير والعفو احفاء الصوف.rar

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

بسم الله الرحمن الرحيم وبه نستعين أخى العزيز/ خالد الحافظ تحية طيبة مباركة من منطلق غيرتى الشديدة فى مجال عملى جاء نقضى حيث أننى لست من هواة النفخ بالمزامير ففكرة أى برنامج قائمه على التعميم لا التخصيص على اعتبارأن هيئة أى مصلحة تعمل فى منظومة واحدة دون تفريق بين موظفيها وان كان هناك تفريق من الناحية المادية فهذا أمرأخرلاشأن لنا فيه مصداقا لقول الله تعالى بسم الله الرحمن الرحيم وَهُوَ الَّذِي جَعَلَكُمْ خَلاَئِفَ الأَرْضِ وَرَفَعَ بَعْضَكُمْ فَوْقَ بَعْضٍ دَرَجَاتٍ لِّيَبْلُوَكُمْ فِي مَا آتَاكُمْ إِنَّ رَبَّكَ سَرِيعُ الْعِقَابِ وَإِنَّهُ لَغَفُورٌ رَّحِيمٌ صدق الله العظيم التفسير وَرَفَعَ بَعْضَكُمْ فَوْقَ بَعْضٍ دَرَجَاتٍ أي فاوت بينكم في الأرزاق والأخلاق والمحاسن والمساوئ والمناظروالأشكال والألوان وله الحكمة فى ذلك كقوله تعالى نَحْنُ قَسَمْنَا بَيْنَهُمْ مَعِيشَتَهُمْ فِي الْحَيَاةِ الدُّنْيَا وَرَفَعْنَا بَعْضَهُمْ فَوْقَ بَعْضٍ دَرَجَاتٍ لِيَتَّخِذَ بَعْضُهُمْ بَعْضًا سُخْرِيًّا وَرَحْمَةُ رَبِّكَ خَيْرٌمِمَّا يَجْمَعُونَ وقوله تعالى اُنْظُرْكَيْف فَضَّلْنَا بَعْضهمْ عَلَى بَعْض وَلَلْآخِرَة أَكْبَردَرَجَات وَأَكْبَرتَفْضِيلً

الدرس الأول سوف نقوم بعمل فورم تحتوي علي زر امر لاغلاق الفورم وعمل ماكرو لعرض الفورم نقوم بفتح محرر الاكواد عن طريق الضغط Alt+F11 ثم نختار ادراج UserForm ثانيا ونضغط دبل كليك علي زر الأمر (اغلاق الفورم )) ونكتب الكود التالي لاغلاق الفورم Private Sub CommandButton1_Click() Unload Me End Sub ثم نقوم باضافة موديل ونقم يتسميته ( Form_Show) وسوف نستخدمه لعرض الفورم من ورقة العمل كالتالي Sub Form_show() UserForm1.Show End Sub ونقوم بادراج زر عنصر تحكم ونختار ونقوم بتعيين الماكرو السابق (Form_show) التطبيق بالمرفقات مثال 1.rar