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

ولاثراء الموضوع مع ردود الاخوة الكبار الاخ الحبيب / إبراهيم ابوليله ... جزاه الله خيرا الاخت الفاضلة / أم عبد الله ... جزاه الله خيرا اليك كود بسيط ويؤدي نفس الغرض ... ولكن بالعكس ( اسم الشيت يساوي اسم الخلية ) ... مشاركة مني مع هذه الروح العالية لهذا الصرح العملاق بأعضاؤه الاجلاء 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

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

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

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

مية مية يأخ محمد28 لغاية هنا كل تمام فشكرأ

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

السلام عليكم شاهد المرفق 2003 فئات المبلغ.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 اتمنى ان يكون هذا هة المطلوب

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

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

الأستاذ / Messo09 السلام عليكم ورحمة الله وبركاته كما تفضل أستاذنا / أحمد النجار أن ترفق مثال للعمل عليه جزاه الله خيراً على مجهوداته الكبيرة . إليك ملف به مثال توضيحي لعله يفيدك. تخطيط مطاطي.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 وذلك لتنفيذ نفس المهمة او الوظيفة تقبل خالص تحياتي

السلام عليكم الاخ الكريم / 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 وان شاء الله جاري البحث اول ما اصل للحل ساوفيك به تقبل تحياتي

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

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

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

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

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

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

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

أليك أخى ماطلبت فصل أسم على عدد من الأعمدة.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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