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

لا تهدر وقتك بتغيير اللغة من الكيبورد اكسل يقوم بهذا العمل (مجرد ان يرى ماذا يوجد في اول خلية من العامود) جرب هذا الملف و هات مزيداً من الدعوات تغيير اللغة اوتوكاتيكياً.rar

السلام عليكم تفضل أخى ما تريد تم التطبيق على ورقة 2 كلمة المرور 123 منع دخول الصفحة الابرقم سري.rar

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

الاخ الكريم / مصطفى أبو ملك بارك الله فيك اقل اقل معلومة تجد من يستفيد منها ( ربما تكون المعلومة صغيرة بالنسبة لك وقليل لا يعرفها ) وليس بالضرورة من قام بالاستفادة منها او مشاهدتها ان يكتب رداً فمن الممكن ان يستفيد منها ولا يكتب رد والدليل انك تجد موضوع مثلا 13542 مشاهدة و عدد الردود 25 مثلا والاهم في الموضوع انك تضع الموضوع لافادة الجميع الصغير والكبير الآن وبعد ذلك فهي لك صدقة جارية ( ان شاء الله ) والاكيد وانت تعلم ان شعارنا في هذا الصرح العملاق هو ابتغاء مرضاة الله فقط وموضوعك جميل جداً بالفعل وجديد علي الكثيرين جدا فتقبل الله منا ومنكم صالح الاعمال تقبل خالص تحياتي

ما شاء الله توظيف رائع لكود تغيير لغة لوحة المفاتيح منتهى الإبداع جزاك الله كل خير

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

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

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

السلام عليكم ورحمة الله وبركاته هذه اداة جديدة لاضافة شكل جديد للازرار فى اليوزر فورم ب 3 استايلات (ميديا بلاير - فيستا- اوفيس 2007 ) كيفية اضافة الاداة: 1- فك الضغط عن الملف واضافته فى المسار التالى : C:\Windows\System32 لمستخدمى النسخ 64 بت هذا المسار C:\Windows\SysWOW64 2- عمل تثبيت للاداة عن طريق الاتى تم الاستعانة بالشرح المقدم فى موضوع حركة جديدة (تجليد الفورم) الان نقوم باضافة الاداة الى اليوزرفورم عن طريق فتح اليوزر فورم ثم الضغط كليك يمين على صندوق toolbox واختيار Additional Controls ونقوم باختيار Styler button ثم Ok النتيجة النهائية بعد استخدام الاداة تم بحمد الله Styler_button.rar

تم التعديل واجابة السؤال الثاني If Me.Check1 = -1 Then Me.FindDelivery.Visible = True Me.FindDelivery = Date Else Me.FindDelivery = "" Me.FindDelivery.Visible = False End If Database1-up2.rar

السلام عليكم شكرا استاذ ياسر " العزيز " بارك الله فيك ممتاز لقد اصبت

جرب هذا التعديل عله لا يسبب مشاكل مع 2003 Transfer Data Merged Cells V2.rar

والله لم يعد هناك كلمات توفيك حقك الا ان نقول لك جزاك الله خيرا علي مجهوداتك الراائعة واللامتناهية تقبل خالص تحياتي

جزاك الله كل خير أخي الحبيب مصطفى .. ربما لم تجد ردود في الموضوع ...لسبب ما .. قد يكون السبب أن الشرح مختلف عن التطبيق ففي شرح الصور Activeskin4.ocx بينما ملفك styler button.ocx ..أعرف أن هناك تشابه كبير جدا ..لكن يرجى الدقة !! ثانيا التطبيق العملي على الأداة قد يكون غير مفهوم بالنسبة للأعضاء ..فأعتقد أن مزيد من الشرح سيكون أفضل تقبل تحياتي (ومتزعلش على النقد ..ليس الهدف منه الهدم إنما البناء)

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

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

الافضل بملف لتطبيق فالامر يختلف على العموم قم بحماية الملف باي كلمة مرور تختارها مثلا 1903 بعد عمل الفورم و الكودات الخاصة به ضع في بداية كود الترحيل الى الصفحة هذا السطر و الذي يعني فك الحماية كلمة المرور 1903 ActiveSheet.Unprotect (1903) ثم في نهاية الكود ضع هذا الكود لارجاع الحماية بنفس كلمة المرور ActiveSheet.protect (1903)

حيا الله أخوي رمهان انا اتفق معاك 100% جعفر

تفضل اخي الكريم استخدم الكود التالي Sub sama_PageSetup() Application.Dialogs(xlDialogPageSetup).Show End Sub

طبعا دى الفكرة بكل بساطة وبشكلها المباشر وسهل انها تكمل كدة لكن لانى احب الموضوع يبقى افضل انت ممكن تبعت لى بنود المصروفات بتاعتك كلها وبنود المبيعات بتاعتك كلها وهانعمل فكرة افضل من كدة ملف اكسل.rar

اخي ابراهيم ان ماطرحت يحتاج لخلفية علمية في علم قواعد البيانات والموضوع يحتاج لوقت كبير للشرح . ولكن هل تعلم ومن خلال الصورة : - ان اسم الحقل بالخط العريض له معنى - الخط المتقطع له معنى - الخط الغير متقطع له معنى - النهاية الطرفية للخط (متقطع -متواصل ) له معنى - الدائرة الصغيرة في النهاية لها معنى ولكن ساجيبك حسب سؤالك وهو ما معنى pf : هو مفتاح أساسي مكون من عمودين . وهو في نفس الوقت كل عمود هو مفتاح اجنبي لمفتاح أساسي بجدول اخر ! بالتوفيق

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

الله عليك أخي الحبيب سليم عمل في قمة الروعة

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

شكرا جزيلا أخى الفاضل / محمد الخازمي وجزاك الله كل خير

عمل رائع يستحق الثناء راجياً لك التوفيق والسداد.

السلام عليكم ورحمة الله وبركاته ممكن أشارك شباب في الواقع مشاركتي فنية أكثر من انها تقليدية اضغط على الصورة حتى ترى الفيديو النموذج: 1. قمت بنسخ الحقل من مرفق الاخ أسير الشروق ، ثم حولته من Combobox الى Listbox ، 2. يتم استيراد الحقول من الجدول ، واول حرف من هذا الحقل يجب ان يكون t ، 3 ، 4 ، 5. يتم ادخالهم تلقائيا. طريقة العمل: أ- عندما تختار اسم الحقل (من #2) ، تلقائيا يتم تغيير لون "تقييم الحقل" و "قيمة الحقل" الى اللون الاصفر ، ب- انقر مرتين على حقل التقييم (#1) ، وسوف يتم ادخال القيم في 3 و4 و5. والعمل كله في هذا الكود: Private Sub Form_Current() 'add field names to lst_Items Call make_lst_items 'get the totals Call Sum_Ms 'select the 1st item on the list Me.lst_items = Me.lst_items.ItemData(0) 'color the background of the selected item Call lst_items_AfterUpdate End Sub Private Sub lst_selection_DblClick(Cancel As Integer) On Error GoTo err_lst_selection_DblClick 'asign the values Me("t" & Right(Me.lst_items, 1) & "_1") = Me.lst_selection.Column(0) Me("m" & Right(Me.lst_items, 1) & "_1") = Me.lst_selection.Column(1) 'get the totals Call Sum_Ms Exit Sub err_lst_selection_DblClick: If Err.Number = 2465 Then MsgBox "Please Select an Item" 'select the 1st item on the list Me.lst_items = Me.lst_items.ItemData(0) 'color the background of the selected item Call lst_items_AfterUpdate Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub lst_items_AfterUpdate() Dim ctl As Control 'change the background color based on the selected item For Each ctl In Me.Controls 'only textbox , and only if the control name looks like: "any characters" and "_" and "number" If ctl.ControlType = acTextBox And ctl.Name Like "*_#" Then 'now that we only have our controls, lets color them 'based on the 2nd character in the control name If Mid(ctl.Name, 2, 1) = Right(Me.lst_items, 1) Then 'make it Yellow Me(ctl.Name).BackColor = RGB(255, 255, 0) Else 'return it back to white Me(ctl.Name).BackColor = RGB(255, 255, 255) End If End If Next End Sub Private Sub make_lst_items() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("ÌÏæá1") 'start clean Me.lst_items.RowSource = "" 'add the fields to the listbox For i = 0 To rst.Fields.Count - 1 'add only fields that start with t If Left(rst.Fields(i).Name, 1) = "t" Then 'add this item Me.lst_items.AddItem rst.Fields(i).Name End If Next i End Sub Private Sub Sum_Ms() 'start clean Me.Total_Mall = 0 Dim ctl As Control 'Loop through the Form controls For Each ctl In Me.Controls 'only textbox , and only if the control name looks like: "m" and "any characters" and "_" and "number" If ctl.ControlType = acTextBox And ctl.Name Like "m*_#" Then 'add it Me.Total_Mall = Me.Total_Mall + Nz(Me(ctl.Name).Value) End If Next End Sub الفنان جعفر 37.test.mdb.zip

انار الله قلبك وشرح صدرك ووفقك لما يحب ويرضى وجزاك الله خيرا

السلام عليكم Design view موجود والبرنامج يعمل بشكل طبيعي ويمكنكم الاطلاع على وضع التصميم لجميع المكونات اما ما يخص سؤالكم لم تحددو اي تقرير تستفسرون عنه فسوف اجيب عن كل التقارير ---- التقرير SSM كان هناك خطاء في بناء قاعدة البيانات لكي نتجاوز هذا الخطاء اضفنا حقل اسم المدير واسميناه (Occupatio) ومن معلج انشاء القارير عمل مستويات تجميع بالمطلوب اما التقريرين SSM1 SSM2 عملت فقط بمسويات تجيع مختلفة وجميع التقارير مصدر سجلاتها الاستعلام 1 بالتوفيق

بعد اذن معلمنا الجليل واستاذنا القدير الاستاذ ابو خليل قمت بالتعديل على المرفق واصبح يعمل بشكل جيد جدا الشـــــرح حتى تعم الفائده من خصائص مربع التحرير والسرد من التبويب بيانات يكون مصدر الصف هذه القيم "مهتم دائما";5;"مهتم في معظم الاحيان";4;"مهتم احيانا";3;"مهتم قليلا";2;"غير مهتم";1 بهذه الطريقة وطبعا نوع بيانات مصدر مربع التحرير والســـرد تكون Value List حبث ان قائمة القيم هى "مهتم دائما";5;"مهتم في معظم الاحيان";4;"مهتم احيانا";3;"مهتم قليلا";2;"غير مهتم";1 "مهتم دائما";5; "مهتم في معظم الاحيان";4; "مهتم احيانا";3; "مهتم قليلا";2; "غير مهتم";1 ومن خصائص مربع التحرير والسرد ان يكون عمودين وهذه الصور توضح التعديل العمود الاول هو البند الخاص بالقائمة مثل مهتم دائما والعمود الثانى هو قيمته فى القائمه مثل 5 يرجع الفضل اولا لله عزوجل ثم ثانيا لاستاذنا ومعلمنا القدير الاستاذ ابو خليل للمرة الاولى ارى مثل هذا المثال وهذا الكود المستخدم فى الحدث على مربع التحرير والسرد فقط لاجيب طلب اخى السائل الاستاذ جمال السناني قمت بتحليل المرفق ومحاولة التحليل والفهم ويسر لى الله عزوجل فهم الية العمل وقمت بالشرح نيابة عن معلمى طبعا لا اضاهيه علما وصبرا وحلما ومكانة ولم اقصد التجرا على معلمى ولكن احاول التعلم والمساعده ردا لجميله على فحتما وقته ضيق لما يحمله على كتفه من اعبائنا جميعا فى هذا الصرح الشامخ طبعا الشرح على حسب فهمى الضئيل وكما هعدنا استاذنا الجليل ان اخطئت يصحح لى بعلمه وان اثقلت عليه يتحملنى بحلمه جزاكم الله عنا كل الخير ان شاء الله test.rar

الأخ الفاضل خالد جرب الملف التالي .. List All Folders And Files VBA.rar

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

السلام عليكم نعم اخي الكريم يمكن عمل استعلام من اكثر من جدول واكثر من واستعلام او من كلاهما بالتوفيق

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

أخي الفاضل سامح القيمة كانت بالسالب ...بس أنا قلت يمكن تكون محتاجها بالموجب فأضفت ABS للحصول على القيمة المطلقة الموجبة عموما تم تصحيح الخطأ بالنسبة للاسم والقيمة أصبحت بالسالب Grab Data From Closed Workbooks YasserKhalil.rar

السلام عليكم تفضل أخى ما تريد Suppliers Coder - Copy.rar

بارك الله فيك اخي الفاضل رمهان وجاري التجربه

مشاركة مع الأستاذ عبدالرحمن ضع الحدثين التاليين : Private Sub Form_Current() Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date End Sub Private Sub التاريخ_AfterUpdate() Me.save.Enabled = Nz(Me.التاريخ, 0) >= Date End Sub بالتوفيق

وعليكم السلام ورحمة الله جرب هذا الكود في حدث عند تحميل النموذج If Me.ÇáÊÇÑíÎ.Value >= DatNow.Value Then save.Enabled = True Else save.Enabled = False End If test.rar

يالك من راائع استاذ ياسر ( جهد راائع ) في وسط كل ضغوط الحياة فعلينا جميعاً ان نرفع لك القبعة

السلام عليكم ورحمة الله وبركاته اعضاء منتدانا الافاضل في الصورة ادناه محاولة اظهار الفروقات بين Text و Value و كذلك Value2. الصورة ايضا مرفقة عند التعامل مع اكواد ال VBA غالبا ما يتبادر للذهن عن الفرق بين Value و ال Text و من ثم تزداد الحيرة عند اكتشاف Value2. لهذا فان التحليل البسيط اعلاه يوضح الفروقات بينها. ملاحظة: ===== - يمكن القول ان ال Value2 هى التي تحمل القيمة الفعلية للخلية ... ولهذا ينصح التعامل معها فهى اكثر امانا و اسرع في التنفيذ مقارنها ب Value و Text - بالنسبة لقيمة التاريخ فأن كلا القيمتين لـ Value2 متساوية. اذا اردت التاكد فيمكنك وضع المؤسر على الخلية و قراءة الرقم كاملا من شريط المعادلات. - الـ Text فهى بأختصار تظهر قيمة الخلية منسقة formatted فمثلا يمكن ان تظهرها بتنسيق نسبة، تاريخ، رقم، عملة، تنسيق خاص بك ... الخ. - الـ Textمهمة في الVBAوذلك للحصول على قيمة منسقة يمكن التعامل بها بطريقة التي تناسبك . - الا انه وجب التنبية على احد عيوب ال Text هو امكانية الحصول على قيمة #### في حالة ان عرض العمود ليس كافيا. احد الحلول هو استخدام الاجراء AutoFit الخاصة بالعمود. - ال Value هى نفس ال Value2 الا انها تختلف عنها في قيم التاريخ حيث تظهر التاريخ منسقا عند التعامل مع ال VBA وتختلف ايضا في قيم التاريخ و العملة و بيدو لي النسبة ايضا عند ارجاع القيم الى الااكسل حيث تظهر منسقه ايضا. اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال

الأخ الفاضل أبو تراب نفتقدك بشدة .. لعلك تكون بخير

1 – عمل ملف اكسل (كتابة كود الماكرو) 2- انشاء ملف VBScript لتشغيل الماكرو 3 – كتابة ملف دفعي او باتش batch لفحص الوقت 4 – انشاء ملف تنصيب خدمة الويندوز Windows Service ___________________________________________ بسم الله الرحمن الرحيم على الله نتوكل وبه نستعين ملاحظة ===== اذا لم تفرأ الخطوات السابقة بعد فأني اشد على يدك ان تقرأها اولا قبل الاستمرار. سنفترض التالي: 1 - جميع الملفات في المسار التالي (بالطبع يمكنك وضعهم في اي مجلد من اختيارك) C:\work\2015 2 - الخدمة ستعمل تحت حساب النظام المحلي Local System Account 3 - الخدمة ستحتاج الى وسيط وهو اسم ملف الباتش RunSummaryMacro.cmd لتشغيله 4 - الخدمة ستعمل اوتوماتيكيا كل مرة يشتغل فيها الجهاز. 5 - اسم الخدمة هو AbuTorab (يمكنك تسميتها ما تشاء) انشاء خدمة ويندوز هى من اكثر الخطوات تشويقا و اثارة..و لهذا سنبدأ على عكس ما بدأناه في الخطوات السابقة....سنبدأ من النهايــــــــــــة. 1 - انقر بالزر الايمن و اختر Run as Administrator 2 - اخل حرف Y للموافقة على تنصيب الخدمة 3 - تم تنصيب الخدمة بنجاح...لاحظ ان رقم العملية PID للخدمة على جهازي هى 5144 4 - هنا قد انتهينا من تنصب الخدمة الا انه استكمالا للشرح لنرى الخدمة وهى تعمل في الخلفية. اضغط شعار ويندوز + R واكتب Services.msc من هنا يمكنك ايقاف و تشغيل الخدمة 5 - لنرى الخدمة من شريط المهام اضغط Ctrl + Shift + Esc .. اختر التبويب Services ومن ثم التبويب Details ماذا ترى!!! 6 - الاسم في التبويب Services هو كما توقعناه AbuTorab ولكن الاسم في التبويب Details مختلف!!! السبب هو ملف الباتش لا يستطيع من تلقاء نفسه التخاطب مع مركز خدمات الويندوز و لهذا نحتاج الى تغليفه wrap باداة صغير لديها القدرة على التخاطب مع النظام و في نفس الوقت القدرة على تشغيل ملف الباتش و الاداة هى Srvany.exe. توجد ادوات اخرى ولكن استخدمت هذه و يمكنك استخدام ما تريد يمكنك تحميل مجموعة الادوات من موقع شركة ميكروسوفت او يمكنك تحميلها من المرفق ستطلب هذه الاداة ان تعمل لها ثلاث قيم في سجل النظام ... وهذه القيم هى: AppDirectory : مسار المجلد الذي يحتوي على ملف الباتش Application : ملف الباتش مع المسار AppParameters: وسائط ملف الباتش..في مثالنا سيكن ملف الاسكربت ملاحظة: ===== عند انشاء الخدمة سيتم اضافتها الى سجل النظام في المسار التالي: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\AbuTorab اذا اردت ان ترها بنفسك فأضغط شعار ويندوز + R و اكتب RegEdit للتوضيح راجع الصورة التالية: لنتحدث قليل على اوامر انشاء الخدمة Windows Service ================================ 1- لانشاء الخدمة يمكننا عن طريق الامر sc في محرر الاوامر (هذا الامر يحتاج الى صلاحيات مدير النظام لينفذ) SC create AbuTorab binpath="C:\work\2015\srvany.exe" 2- لجعل الخدمة تعمل اوتوماتيكيا عن تشغيل/إعادة تشغيل النظام ننفذ الامر التالي: SC config AbuTorab start=auto 3- لتشغيل الخدمة sc start AbuTorab 4- لحذف الخدمة SC delete AbuTorab 5 - لتحديث قيم سجل النظام ننفذ الاوامر التالية reg add "HKLM\SYSTEM\CurrentControlSet\Services\AbuTorab\Parameters" /v AppDirectory /t REG_SZ /d "C:\Work\2015" reg add "HKLM\SYSTEM\CurrentControlSet\Services\AbuTorab\Parameters" /v Application /t REG_SZ /d "C:\Work\2015\RunSummaryMacro.cmd" reg add "HKLM\SYSTEM\CurrentControlSet\Services\AbuTorab\Parameters" /v AppParameters /t REG_SZ /d "C:\Work\2015\RunSummaryMacro.vbs" ملاحظة مهمة و اخيرة اذا نفذت الاوامر السابقة فان الخدمة ستعمل و ملف الباتش سيعمل و ملف الاسكربت سينفذ و لكن لن ينفذ الماكرو برامج الاوفس هى برامج تفاعلية interactive تتفاعل مع حساب المستخدم الذي سجل الدخول وهو ليس حساب تشغيل الخدمة الا وهو System و لهذا فان الماكرو لن ينفذا...لتحقيق هذا التفاعل نحتاج لوجود مجلد باسم Desktop على المسار التالي: في نسخة الويندوز 64 بت: c:\windows\SysWOW64\config\systemprofile\Desktop في نسخة الويندوز 32 بت: c:\windows\System32\config\systemprofile\Desktop كود ملف تنصيب الخدمة @ECHO OFF SET ServiceName=AbuTorab ECHO A new Windows service called "%ServiceName%" will be installed ECHO. CHOICE /C YNC /M "Press Y for Yes, N for No or C for Cancel." IF %ERRORLEVEL% neq 1 (EXIT) mkdir %windir%\SysWOW64\config\systemprofile\Desktop mkdir %windir%\System32\config\systemprofile\Desktop CLS SET CurrentDir=%~dp0 sc create %ServiceName% binpath="%CurrentDir%srvany.exe" reg add "HKLM\SYSTEM\CurrentControlSet\Services\%ServiceName%\Parameters" /v AppDirectory /t REG_SZ /d %CurrentDir% reg add "HKLM\SYSTEM\CurrentControlSet\Services\%ServiceName%\Parameters" /v Application /t REG_SZ /d "%CurrentDir%RunSummaryMacro.cmd" reg add "HKLM\SYSTEM\CurrentControlSet\Services\%ServiceName%\Parameters" /v AppParameters /t REG_SZ /d "%CurrentDir%RunSummaryMacro.vbs" sc config %ServiceName% start=auto sc start %ServiceName% ECHO. ECHO ========================================================= ECHO The %ServiceName% has been installed and run successfully ECHO ========================================================= SET CurrentDir= SET ServiceName= pause @ECHO ON مخرجات الخطوة الاخيرة ================= اسم ملف التنصيب : Installِ_AbuTorab_Service.bat اسم ملف الاداة : srvany.exe جميع الملفات تجدها على المرفق و يمكنك البدء تم بحمد الله الذي بنعمه تتم الصالحات 2015.zip

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

اخى واستاذى ياسر الحافظ منك تعلمنا ان نسابق فى الخير كيف حالك فى ظل الظروف الراهنه وفقكم الله وهذا كود افضل من الكود الاول لا تنسونا من الدعاء الفار.rar

السلام عليكم اخى ibra كل عام وانت بخير تفضل المطلوب فى المرفق لا تنسانا من دعائك الفار.rar

السلام عليكم ===== اخى شمس الثورة شاهد المرفق اخفاء قيم الصفر.rar

السلام عليكم =========== اخوانى واحبائى واحب الناس الى قلبى ( اعضاء - مشرفين - مسئولى )ممنتدى اوفسينا كم تعلمت منكم وكم زادنى شرف الردود لكم وعليكم والان موعدى معكم لرد جميلكم الثقيل على كتفى خفيف على قلبى الى كل من علمنى حرفا فى هذا المنتدى وسيعلنى اهديكم هذا البرنامج داعيا الله ان يكون على المستوى اللائق واعطائى ولو درجة النجاح والنجاح فقط ميزات البرنامج ============== 1) يصلح للصفين معا فهو يتعامل مع صيغتى الاناث والذكور ( طالبات - وطلبة ) بمجرد اختيار بنين او بنات فى صفحة البيانات فمعادلاته مجهزة لذلك . 2) يتعامل مع الصفين الاول والثانى عند اختيار الصف فى صفحة البيانات فالمعادلات ايضا مجهزة لذلك 3)البرنامج يجمع فى طياته كل افكار الكنترولات السابقة فقط مع اضافة توزيع اللجان وارقام الجلوس لاى صف من الصفين دون التدخل لكتابة الصف او الجنس . 4)صفحة السرى ( لها رقم سرى لعدم الاطلاع من قبل اعضاء الكنترول والسرى هو 12) لعالمنا الجليل خبور 5)فى صفحة ف د 1 يوجد زر للكتشنة وفك الكتشنة وكانت الفكرة للاستاذ ايسم بارك الله فيه 6) يوجد فى نفس الصفحة زر للتقريب بما يتناسب مع قوانين الرفع وهو اختيارى والكود للاستاذ الكبير ابو تامر . 7)شهادة الفصل الدراسى الاول صفحة واحدة فقط وهى فقط كعملية جمالية تعمدت الا يكون الصفحة بها اكثر من شهادة وذلك لتجنب القص وغيرة ( رزمة الورق تقص فى المطبعة كما هى الى نصفين وتوضع فى الطابعة كما هى ) 8)ما اعتبره اهم ميزة هو شهادة الفصل الدراسى الثانى تكون بالدوائر . 9) ترحيل الشيت الى ناجح ودور ثانى للطباعة وايضا بالدوائر 10) لا املك اى كود فى هذا البرنامج الا كود التجهيز فقط اما باقى الاكواد قكلها موجودة فى المنتدى 11) اشكر كل من ساهم بفكرة واخص وسامحونى بالترتيب الاستاذ مجاهد اعادة الله لنا سالما العالم الجليل خبور خير الاستاذ الفذ ابو تامر اخى وصديقى ايسم واترككم مع البرنامج فى رعاية الله وفى انتظار تعليقاتكم

السلام عليكم ورحمة الله وبركاته الاسم : عبدالله علي أحمد باقشير الميلاد : 04/ 12 / 1967 الجنسية : يمني المؤهل : ثانوية عامة العمل : قطاع خاص( محاسب) الهوايه : الاكسل تحياتي

مثال للأخ حارث قم بتشغيل الزر فى النموذج يقوم بانشاء جدول به الأخطاء و أرقامها errortable_harith.zip