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

ولاثراء الموضوع مع ردود الاخوة الكبار الاخ الحبيب / إبراهيم ابوليله ... جزاه الله خيرا الاخت الفاضلة / أم عبد الله ... جزاه الله خيرا اليك كود بسيط ويؤدي نفس الغرض ... ولكن بالعكس ( اسم الشيت يساوي اسم الخلية ) ... مشاركة مني مع هذه الروح العالية لهذا الصرح العملاق بأعضاؤه الاجلاء Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text End Sub تقبلوا خالص تحياتي

الأستاذ / إسلام الشيمي السلام عليكم ورحمة الله وبركاته هذا العمل قد اعجبني كثيراً فاحتفظت به منذ فترة وهو للأستاذنا الكبير / هشام شلبي جزاه الله خيراً وجعل جميع اعماله في ميزان حسناته . إليك الملف. تغيير اسم الخلية مع اسم الورقة.rar

السلام عليكم الاخ الحبيب / محمود الاسيوطى بارك الله فيك اصبحت متأكدا من اننا في انتظار برنامج محاسبي راائع من اعدادك ( ان شاء الله ) ونحن في انتظار اكتماله بالنسبة لطلبك : يمكنك استخدام كود لتحديد عدد مرات استخدام البرنامج كاملا وتقوم بتحديد عدد المرات في الكود فاليك في المرفقات ( المرفق الاول ) مثلا ملف يسمح للمستخدم استخدام البرنامج لعدد ( 4 ) مرات فقط ثم يغلق البرنامج وبالنسبة لاغلاق بعض الخلايا والادخال فيها لمرة واحدة فقط شاهد ( المرفق الثاني ) قم بعد فتح المرفق بالادخال في نطاق الخلايا الصفراء في العمود A ثم قم باغلاق الملف واعد فتحه مرة اخري وحاول الادخال في نفس الخلايا وعذرا فتم تجهيز الطلب ع السريع ( آخر الليل بقا وما فيش تركيز ) ولكنه بالفعل يحتاج لبعض التطوير ( فهي فكرة فقط ) وعلي سبيل المناقشة كما ذكرت انت ارجو ان يعجبك الملفات والطريقة ... وان شاء الله سوف اقدم لك فكرة اخري لتنفيذ ذلك !! عذرا للاطاله تقبل خالص تحياتي كود لتحديد عدد مرات استخدام البرنامج.rar 55الادخال في الخلية مرة واحدة فقط.rar

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

بارك الله فيك دائما أخي الحبيب /محمد 28 دبس يا حبيبى برحتك على قلبى زى العسل واتفضل يا غالى شرح الكود للطباعه بارك الله فيك يا صديقى ELFAR22.rar

السلام عليكم ورحمة الله وبركاته السلام على اخى وحبيبى الفاضل/محمد 28 اخى الفاضل فراس البزاز تفضل المرفق واخبرنى النتيجه shahada1.rar

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

جزاك الله خيرا وساقوم بتغيير الأسم إلى اللغة العربية

حلول رائعة ومتنوعة بارك الله في هذا الصرح العظيم وعمالقته

السلام عليكم الاخ الكريم / محمود_الشريف بارك الله فيك بالفعل كلماتك اخي الكريم اكثر من رااائعة وتشجع الجميع تقبل خالص تحياتي

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Name = Sheet1.Range("A1").Value End Sub اسم الشيت من محتوى خلية

اخى اسلام ضع هذا الكود فى حدث الورقه Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet1.Range("a1").Value = ActiveSheet.Name End Sub اتمنى ان يكون هذا هة المطلوب

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

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

قلت لك سابقا دون اذن حبيبي الغالى وصديقي العزيز /جمال الفار وبالفعل استفدت باضافتك واضافت لى الجديد

بارك الله فيك أخي /حمادة عمر على هذا العمل المميز جعله الله في ميزان حسناتك... ----------------------------- وحتى استفيد انا من الموضوع ويستقفيد اخواني ويكون هذا الموضوع مرجع لي في كتاباتي عند الحاجة اليه ما فهمته من العمل او طريقة عمل هذا الفورم 1 - عمل تصفية للعمود الذى نريد البحث فيه 2 - عمل تسمية نطاق لجزء من العمود وسنضع هذه التسمية في الكود والمشار اليها في الاسفل في نقطة رقم ( ج ) 3 - ادراج فورم بحث 4 - اما بالنسب للمتغيرات في الكود أ ) تغيير TextBox كلما اردنا ان نضيف تكست بوكس جديد بمعنى اننا لو اردنا ان نجعل صندوق ثاني سنضع كود جديد ونغير فيه رقم ال TextBox ليكون TextBox2 وهكذا .. ب ) رقم العمود الذي ستتم فيه العملية ج ) اسم النطاق الذي سنقوم بعمله والتي سنضعه في الكود ملف+2+ د.rar

ملفات مرفقة للكود الثاني ملف+1+ د.rar

واثراءا للموضوع يمكنك استخدام استبدال الاكواد الموجودة في الملف المرفق بالاكواد التالية Private Sub TextBox1_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox1 = "" Then Selection.AutoFilter Field:=3 Else Range("sama").AutoFilter , Field:=3, Criteria1:=CStr(TextBox1) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub '=========================================================== Private Sub TextBox2_Change() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TextBox2 = "" Then Selection.AutoFilter Field:=4 Else Range("sama1").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub وذلك لتنفيذ نفس المهمة او الوظيفة تقبل خالص تحياتي

تفضل اخي المرفقات ارجو ان تفي بطلبك ملف++ د.rar

السلام عليكم الاخ الكريم / MJDO بارك الله فيك علي حسب فهمي لطلبك استخدم الكود التالي لطباعة صفحة مخفية ويعمل الكود علي اظهارها وقت الطباعة فقط ثم اخفاؤها مرة اخري وطباعة النطاق المطلوب في الصفحة المقصودة ارجو ان يفي بطلبك Sub SAMA_PRINT_HIDE() Sheets("Sheet2").Visible = True Sheets("Sheet2").PageSetup.PrintArea = "A1:K30" Sheets("Sheet2").PrintOut Sheets("Sheet2").Visible = False End Sub ويجب عليك اخي الكريم عند كل سؤال او طلب ارفاق ملف كمثال لتوضيح الصورة اكثر للجميع في انتظار ردك .... تقبل خالص تحياتي طباعة شيت مخفي بزر في الرئيسية.rar

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

تم تعديل الأصدار وأضافة ( USER FORM ) لإخفاء ماتريدة من أوراق برنامج نتيجة الإمتحانات الأصدار الثانى.rar

تم الأجابة على هذا فى مرفقك الأول تقبل تحياتى

أخي الكريم الأستاذ// عصام عادل السلام عليكم ورحمة الله وبركاته بالنسبة لويندوز 8 ان كانت نواة الجهاز 64 بت لم يتم حتي الان حل لمشكلة اضافة بعض عناصر التحكم للمكتبات وجاري البحث لكن ان كان 32 بت استخدم نفس طريقة ويندوز 7 وان شاء الله جاري البحث اول ما اصل للحل ساوفيك به تقبل تحياتي

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

أخى الحبيب ( حسين ) عملك رائع ومجهوداتك لزملائك رائعة تقبل الله منا ومنكم صالح الأعمال وكل سنة وحضرتك طيب تقبل تحيات أخيك

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

أخى الحبيب ( عادل ) دائما منور كل مرفق بكلماتك الرائعة كل عام وحضرتك ، وكل زملائى الأعزاء على نفسى فى هذا الصرح بألف خير وسلام أخيك

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

بعد إذن أستاذى ومهندسى العبقرى ( طارق محمود ) وأستاذتنا المجتهدة ( أم عبد الله ) هذه طريقة لأخى لعلها تكون المطلوبة عدد مرات التكرار.rar

شكرا أخى الحبيب ( BLOOD ) على مرورك وكلماتك إللى كثيرة علية جدا وأتمنى أن يحقق المرفق طلب أخى ( JO11 ) ويكون المطلوب وهذا هو الهدف تقبل : تحياتى

بعد إذن أخى الحبيب إللى نور المنتدى بأعمالة وأبتسامتة وروحة الجميلة أستاذى ( جمال الفار ) أعتقد أن فهمت إللى محتاجة أخى الفاضل تفضل أخى ماتريد أعتقد هذا ماتريدة تقبل تحياتى البحث عن مدرسة.rar

جرب هذا أخى 2.rar

هذه بعض مميزات برنامج إدارة الموارد البشرية (HR) من برمجتنا أهم مميزات برنامج إدارة الموارد البشرية يدعم البرنامج اللغة العربية والإنجليزية في جميع النماذج والتقارير . يستوعب البرنامج عدد كبير جداَ من سجلات الموظفين . تم عمل البرنامج بناءً قوانين وزارة العمل السعودية في احتساب طريقة عمل إنذار والمجزءات المترتبة عليه . تم عمل طريقة احتساب رصيد إجازات الموظف بناءً على قانون العمل السعودي "21 يوم اجازة سنوية " يمكنك من خلال البرنامج من متابعة إدارة الموارد البشرية من تسجيل بيانات الأساسية للموظفين وتسجيل الرواتب والإثباتات الرسمية وطباعة الإنذارات والإجازات وغيرها وجعلها في ملف خاص لكل موظف. يمكننا البرنامج من معرفة المعلومات الأساسية للموظفين والأقسام الموجودين فيها , بالإضافة إلى تذكار بتواريخ انتهاء والوثائق الرسمية مثل الاقامات والبطاقات الشخصية ورخصة القيادة والتأشيرات وغيرها يمكنك من خلال البرنامج طباعة كشوفات الرواتب الشهرية والسنوية لموظف واحد أو للجميع . يمكنك البرنامج من متابعة الموظفين أصحاب الدوام الرسمي أو الجزئي وعن بعد . يقوم البرنامج بتذكير بالوثائق القريبة لموظفين والتي بقي عليها شهر تقريباً وطباعتها. إمكانية طباعة جميع التقارير على ورق رسمي "فورم جاهز" للمنشأة أو الشركة و طباعة التقارير من البرنامج مباشرة أو طباعتها على ورق رسمي من البرنامج . إمكانية عمل نسخة احتياطية للبرنامج كل فتره وفي كل مره يتم تقييدها بالتاريخ والوقت. إمكانية عمل البرنامج على جهاز واحد أو أكثر من جهاز بدون أي فقد في البيانات. شاشة دخول للمستخدم وكلمة المرور للتحكم بالدخول للبرنامج ومنع المستخدمين الغير مخولين باستخدام البرنامج. إمكانية إضافة صلاحيات لمستخدمي البرنامج والتحكم بصلاحياتهم بـ (الإضافة والحذف والتعديل). --------------------------------------------------------------------- تجدون البرنامج على الرابط التالي https://dl.dropboxusercontent.com/u/(يمنع عرض أرقام الهواتف بدون أذن الإدارة)/HR%20demo.rar اسم المستخدم/ثنائي التميز ,الباسوورد/ 123

السلام عليكم الاخ الكريم / صالح أبو أحمد بارك الله فيك مرور طيب وكريم من اخ كريم تقبل خالص تحياتي وسلامي للبحيرة كافة .. (( ومركز النجاح - قرية 29 خاصة )) جزاك الله خيرا

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

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

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

السلام عليكم الاخت الفاضلة / سما محمد فكرة الاخ الكريم / ابو محمد اشرف ممكنة وجاري العمل عليها وعند الانتهاء منها سأقوم بادارجها هنا ( ان شاء الله ) جزاك الله خيرا

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

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

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

السلام عليكم استاذي الفاضل / mahmoud-lee (((( عميد المعادلات )))) انت انت انت الاستاذ الكبير وانت عظيم ودائما استاذي ( التواضع من شيم العظماء امثالك ) وما اقدمه لسيادتكم ليس تشجيعاً انما شكر وتقدير وعرفان بالجميل الذي ادين به لك فانت الاستاذ فشكرا لك استاذي علي تشجيعك لي بكلماتك الرقيقة التي اسعدتني فعلا واللوم الوحيد لي عندك هو ( التأخر في الرد ) فقد كنت انتظره بفارغ الصبر كلما وجدت سيادتك في المنتدي ولكني اعلم انك كنت مشغولاً في مواضيع الاخوة الاعضاء وطبعاً فعلا اهم لحل مشاكلهم دائما جزاك الله خيرا استاذي

السلام عليكم الاخ العزيز والاستاذ الكريم / الشهابي ان كلمة تلميذكم اكبر مما يكون علي فبالفعل انت استاذ لي ولقد تعلمت من ردودك واستفدت منها كثيرا دون ان تدري فانا نقطة تكاد لا تري في بحر هذا الجمع من الخبراء والاساتذة وشرف لي مرورك ( حتي لو كان متأخراً !!!هههههه ) وبالنسبة للترقية استاذي ( انتم السابقون ونحن اللاحقون ) فمزيد من التقدم والرقي لكم ويبارك الله لك دائما في كل شي جزاك الله خيرا ... وجعله في ميزان حسناتكم

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

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

تسلم إيدك يا مايسترو حضرتك بتشتغل ايه؟؟؟؟ لو كان يضايقك إنك تقول بلااااااااااااااااااااش بصراحة دماغك عالية قوي ، وأنا بحب الدماغ العالية قوي!!!!!! :clapping: عاشق الإكسيل

مشكور بس الرابط لا يعمل الاثنين لا يعملوا مجرد صفحة التحميل اذا انا اردت تحمل ملف ارجو النظر فى الرابط ووضع رابط صحيح وشكرا