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

أخي/ mola123 مكتوب في المعادلة =SUM(J10:J38) والناتج الظاهر = 06:22 وعليه قم بتغيير تنسيق الخلية إلي مخصص ثم أكتب التالي [h]:mm يصبح الناتج = 30:22 تقبل تحياتي

السلام عليكم على افتراض ان النطاق المطلوب B4:B100 جرب الكود التالي: Sub kh_Replace() Dim ch With Range("B4:B100") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" End With End Sub المرفق 2003 حذف الهمزة والتاء المربوطه.rar

أخى ابراهيم جزاك الله كل خير جرب هذه الفكرة Private Sub CommandButton1_Click() x = Val(InputBox("أدخل عدد النسخ المراد طباعتها")) For i = 1 To x Me.PrintForm Next Unload Me End Sub

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

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

لقد طرح أخي ومعلمي الجليل الأستاذ // عبدالله باقشير "حفظه الله " وجزاه عنا خير الجزاء , في ابداع سابق له (( قــوائم مخصصة علي الفورم باستخدام - CommanBars)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=44506 وعمله الذي فتح بوابة كبيرة امام استخدمات الاكسيل وتمكنه من التحكم بالاكواد وتطويعها جزاه الله خيرا وجعل كل اعماله في ميزان حسناته وارجوا منه السماحة انني استخدمت عمله وطبقته علي موضوع شئون الموظفين الاصدار الثاني - النسخة التجريبية لوجود اخطاء بالنسخة الاولي فاهدي عملي المتواضع كلمة المرور 2300 جعل الله جميــــــع اعمالنا خالصة لوجه الكريم والله ولي التوفيق شئـون الموظفيين الاصدار الثاني نسخة تجريبية.rar

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

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

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

وتعاونوا على البر والتقوى ولا تعاونوا على الإثم والعدوان واتقوا الله إن الله شديد العقاب

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

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

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

اتمنى ان يكون هذا المطلوب اخى الكريم جرد-اسلام الشيمي.rar

أخى الحبيب / محمد ابو البراء أشكركم على مشاعركم الطيبة

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

الأخ الغالى سلام الله عليكم لن يتأثر بالحد الأدنى للمرتبات إلا صغار الذين لم يحصلوا على الكادر وبعض العمال

الأستاذ الفاضل/ إبراهيم ابوليله السلام عليكم ورحمة الله وبركاته علي إفتراض أنه تريد طباعة الصفحة رقم 1 عدد 3 نسخ Sheet1.PrintOut Copies:=3 تقبل تحياتي

أخى ابراهيم هذه هى الفكرة لتحديد عدد النسخ من المستخدم x = Val(InputBox("أدخل عدد النسخ المراد طباعتها")) ActiveWindow.SelectedSheets.PrintOut Copies:=x, Collate:=True

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

انت بحاجة الى اظهار مربع حوار الطابعة لتختار ما تريد من النسخ وهذا السطر هو المسؤول عن ذلك : DoCmd.RunCommand acCmdPrint print N2.rar

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

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

ولا يهمك يا حبيب نحن في خدمتك جميعا 1 ) ارسل لي شكل الشهادة التي تريدها في الصف الاول الثانوي واهم ما فيها من بينات بالاضافة الى درجة النهاية الصغرى للمجموع وانا في خدمتك خلال اليوم ستصلك 2 ) باذن الله ارسل لي تصوراتك عن الشيت وما تريده في الشيت وانا في خدمتك .

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

صحيح لو زاد عن الثلاث سنوات تعطي النتيجة 4 والحل هو ان تستخرج الايام ثم تقسمها على 360 مثال : =Round(DateDiff("d";[Date1];[Date2])/360;2) Round لتقريب الكسر واخترنا 2 للتقريب الى عددين عشريين ويمكنك استخدام هذه الدالة لاستخراج الايام والشهور والسنين : Function BetwnDate(Date1 As Date, date2 As Date) Dim sYears As Integer, sMonths As Integer, sDays As Integer sMonths = DateDiff("m", Date1, date2) sDays = DateDiff("d", DateAdd("m", sMonths, Date1), date2) If sDays < 0 Then sMonths = sMonths - 1 sDays = DateDiff("d", DateAdd("m", sMonths, ), date2) End If sYears = sMonths \ 12 sMonths = sMonths Mod 12 BetwnDate = sYears & "سنة, " & sMonths & "شهر, " & sDays & "يوم" End Function تلصقها في وحدة نمطية عامة ثم تستخدمها هكذا داحل مربع النص: =BetwnDate([Date1] ;[date2])

السلام عليكم في المرفقات ملف به شيت المخازن والمبيعات والزبائن قد يشتري الزبون سلعة لكن لا يدفع المبلغ أو يدفع جزء منه لذك قمت بعمل فورم لذلك وهو موضح في الصورة التالية والمطلوب هو بعد ملأ الفورم بالمعلومات اللازمة يقوم بالترحيل إلى شيت الـClients لكن هناك بعض المعلومات في الفورم يتم استدعؤها من شيت Stocks وهم Désignation التي تمثل السلع في الخزون و P.Achat الذي يظهر عند اختيار السلعة. في حين يجب أن تبقى خانات Tran 1 /2/3 غير مفعلة إلا بعد الضغد على زر Modifier وهي خاصة بالمبلغ الذي يدفعه الزبون فقد يكون على مرحلة أو اثنين أو ثلاثة. وفي كل مرة بعد التسجيل في أي خانة من خانات الدفع فلا يمكن التعديل بل يذهب للتي بعدها. وبعد أن يقوم الزبون بدفع المبلغ كاملا أي أن الخانة Réste تصبح تساوي الصفر يقوم ترحيل العملية إلى شيت الـVente مع مراعاة تاريخ الادراج أي أنه فقد يكون هناك عملية بتاريخ 03/01/2014 مثلا والعميل قام بتسديد كامل المبلغ بتاريخ 02/01/2014 هنا يتم ادراج العملية حسب التاريخ بالتسلسل. وفي نفس الوقت يقوم بحذف المعلومات المسجلة في شيت الـClients الخاصة بهذا الزبون. مشكورين مقدما 2n2014_5.rar

اشكرك اخي عبد الله غلى مداخلتك وبعد لايوجد في المكتبة زر تحميل المرفق

جمعت لكم دروس الاستاذ زياد على فى ملف ورد حتى نراجعها لحين استكمال الدروس معالم على طريق البرمجة.rar