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

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

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

أستاذى الحبيب / عبد الله باقشير سلمت يمينك وبعد اذن أستاذى الحبيب ولاثراء الموضوع هذا حل عن طريق كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub For i = 3 To 600 Step 10 If Not Intersect(Target, Cells(i, "H")) Is Nothing Then Range(Cells(i, "H"), Cells(i + 9, "H")) = Target Range("B3:B12").Copy Range(Cells(i, "G"), Cells(i + 9, "G")).PasteSpecial xlPasteValues End If Next Application.CutCopyMode = False End Sub نسخ _متكرر.rar

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

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

السلام عليكم اخي الحبيب رجب ........حفظك الله ائراءا للموضوع هذا نفس كودكم بطريقة اخرى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub For i = 3 To 600 Step 10 If Not Intersect(Target, Cells(i, "H")) Is Nothing Then Cells(i, "H").Resize(10, 1).Value = Target Cells(i, "G").Resize(10, 1).Value = Range("B3:B12").Value End If Next End Sub تحياتي

السلام عليكم تفضل أخى 2.rar

أخى الفاضل مرحبا بك أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثانيا : يفضل ارفاق ملف توضح به مثال لما تريد حتى يسهل العمل عليه تقبل تحياتى

السلام عليكم ضع المعادلة هذه في الخلية G3 =INDEX($B$3:$B$12;MOD(ROW()-3;10)+1) واسحبها الى اسفل رقم 3 في المعادلة هو رقم صف اول خلية تضع فيها المعادلة وهي الخلية G3 تحياتي

تفضل أخى مع تعديل بسيط فى الملف بفصل تاريخ الدرجة فى خانة منفصلة تسطيرة جديدة1.rar

المعادلة أخى تحقق ماتريد فقط كان المطلوب سحبها لأسفل إليك المطلوب منظومة بحث 2.rar

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

الأخ الكريم/ aaddeel السلام عليكم ورحمة الله وبركاته أهلا وسهلا بكم في منتدانا العامر لو تمكنت من تغيير أسم الظهور إلي العربية لكان أفضل للتواصل إستخدم Alt + T -> O -> Formulas ثم إلغاء إختيار R1C1 reference style تقبل تحياتي

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

أخى الفاضل يمكنك وضع المعادلة الآتية فى التحقق من الصحة =OR(A2<50;A2="غ") كما فى المثال التالى تحقق من الصحة.rar

ماشاء الله أخى الحبيب ( محمد ) فكرتها حلوه وبسيطة بارك الله فيك أحسنت

تفضل أخي طلبك واخبرني بالنتيجة شيت صف اول 2014م.rar

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

السلام عليكم تم استخدام النموذج الاخير الذي في الرابط التالي فورم ادخال و تعديل وبحث (باستخدام اسم نطاق للقائمة المنسدلة) وتم تنفيذ المقدور عليه من طلباتك شاهد المرفق 2010 فورم ادخال مرن.rar

هذا المرفق يعمل الذي تريده مارأيك

السلام عليكم تفضل أخى تحديد اسم المنتج فى خلايا متفرقة باختيار اسم العميل.rar

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

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

السلام عليكم =B2/100 التاريخ اليوم =VALUE(MID(D2;7;2)) الشهر =VALUE(MID(D2;5;2)) السنة =VALUE(MID(D2;1;4)) وهكذا تحياتي

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

السلام عليكم ورحمة الله وبركاتة أرجو من الأخوة الاعضاء التكرم وتوجيهي فى عمل برنامج خاص للمدرسة ووفقا لما نظرت اليه فى الطلبات البرامج من العضاء المبتدئين هو وضع الاليات المراد تنفيذ البرنامج على اساسها وهى كالتالي 1- صفحة لوضع اسماء الطلاب من الصف الأول وحتى السادس وتكون مثل صفحة موقع الوزارة فى ادخال تلاميذ الصف الأول 2- كشف سجل لكل صف على حدا ويشمل البيانات التالية : مسلسل - اسم التلميذ - التاريخ القومى - التاريخ مفرغ لثلاث خانات - عنوان التلميذ 3- كشف لعمل درجات الانجاز للفصلين الدراسي الأول والثاني وفقا للقرار 313 4- عمل كشف لدرجات الانجاز مجمع للصف بكامله ويضم فيه ( مسلسل - اسم التلميذ - المادة وتشمل (اشطة - نصف تيرم - نصف العام - المجموع) وتكون المادة للفصلين الدراسين وفقا لتصميم شيت الكنترول 5- صفحة شيت كنترول وتكون وفقا للقرار 313 6- عمل صفحة تجميعية للشيت 7- ملحوظة ان الكثافة لدى كبيرة تصل الى 130 تلميذ وارجو المراعاة عند الطبع من البرنامج يكون الصفحة بها عدد تلاميذ تصل الى 30 تلميذ فى كشف الانجاز للصفوف الرابع والخامس والسادس 8- اما فى السجل المدرسي وصفحة شيت الكنترول فحسب المعدل الطبيعي وهو 20 تلميذ فى الصفحة الواحدة عند الطبع وتكون مكتملة البيانات 9- صفحة تضم شهادتين لآخر العام وتكون بياناتها مرحلة من الشيت رأسا 10- أرجو المعذرة فى طلبى هذا ولكن الذى شجعنى على القدوم بهذا الطلب هو الله عزوجل حيث استشعرت الراحة عند عمل هذا الطلب وبمشيئة الله سوف أجد من يساعدنى فى تنفيذه وافادة كل من يطلب الاستفادة من البرنامج بعد عمله بإذن الله ومن يريد مراسلتى ومساعدتى فهذا البريد الالكترونى الخاص بي (Wella_ortega@yahoo.com) أو من خلال الفيس بوك (wella_ortega@hotmail.com)

اريد برنامج لادارة صالات الجيم

أستحدم أخى هذه المعادلة ثم إسحبها لأسفل =IF(AND(D6<>"";SUM(D6*25/100)>=50);50;IF(AND(D6<>"";SUM(D6*25/100)<50);SUM(D6*25/100);""))

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

السلام عليكم ورحمه الله وبركاته،،، ارجو مساعدتي في ايجاد برنامج لشئون الموظفين والمخازن والمشتريات والرواتب وشكرا جزيلا

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

السلام عليكم و رحمة الله تعالى وبركاته انا احتاج الى برنامج لادارة بيع الكتب في المكاتب او معرض الكتب من فضلكم احتاجه ضروري وشكرا