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

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

بارك الله فيكم إخواني .. إليكم الملف المرفق به مجموعة خطوط والتطبيق عليها Fonts Like Hand-Writing.rar

الأخت الفاضلة أم ريان أهلا بك في المنتدى بين إخوانك يمكن البدء من هذا الموضوع كبداية http://www.officena.net/ib/index.php?showtopic=56941 وإن شاء الله تتابعي موضوعات المنتدى والحلول التي تقدم من قبل الأعضاء لتستفيدي

استاذ mxfouad مرفق ملف خط حمله فى فولدر font فى control panel سوف يعمل معك فى اكسل انشاء الله font1.zip

عظيم الهمة لا يقنع بملأ أوقاته بالطاعات، إنما يفكر ألا تموت حسناته بموته. أسأل الله – تعالى – أن يبارك لك في وقتك، ويمدك بالصحة والعافية. وجزاك ربي خيراً، ونفع بك. وبإخواني في هذا المنتدى المبارك.

ممكن ترفق الملف وان شاء الله اي حد بيساعدك في فتحه

تم الحل للرائع ابو تراب

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

العنوان يدل على الموضوع جرب هذا الملف ولا تنسَ الدعوات....... واضغط اعجبني جمع في نفس الخلية.rar

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

ربنا مايحرمنى من تشجعيك ومرورك على مواضيعى احبك فى الله يااستاذى الحبيب ابو البراء ياسر خليل تقبل منى :fff: :fff: :fff: :gift2:

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

بارك الله فيك أخي الحبيب عمرو تم إضافة خطوطك إلى الملف ليكون جامع لكل الخطوط بالموضوع إن شاء الله Fonts Like Hand-Writing.rar

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

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

ومع الاستاذ جعفر بهذه الملاحظة ويمكن باستخدام فحص ان السجل جديد وباستخدام if me.newrecord then بالتوفيق

جرب الكود التالي Sub ClearIfFound() Dim Cell As Range Dim blFound As Boolean Application.ScreenUpdating = False For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row) blFound = Application.WorksheetFunction.CountIf(Range("L1:U5"), Cell.Value) If blFound = True Then Cell.EntireRow.ClearContents Next Cell Application.ScreenUpdating = True End Sub

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

بالتوفيق ان شاء الله

اخي ياسر جزاك الله خيرا

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

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

اتفضل عدم تفعيل الزر بعد الحفظ.rar

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

مشاركة مع الأستاذ جعفر اعمل استعلام جديد وباسم qr1 ومصدره الجملة التالية: select DISTINCT [AnimalsRecords].[EarNo] from [AnimalsRecords] UNION select DISTINCT [BornsRecords].[SeasonalNo] from [BornsRecords]; وهذا الكود : Private Sub Cmd0_DblClick(Cancel As Integer) BornNo = Nz(DMax("[EarNo]", "qr1"), 0) + 1 End Sub اخي ابوخليل : كذلك انت لم ترد وتناقش هنا http://www.officena.net/ib/index.php?showtopic=60209&hl= تحياتي

والله عمل ممتاز ورائع ومبهر حقا تستحق لقب خبير درجة اولى

السلام عليكم في شيت الأساسيين يوجد عمود لونه أخضر (U) ضع رقم 1 أمام البيانات التي تريد ترحيلها ثم اضغط ترحيل تحياتي كشوف توزيع#1.rar

وعليكم السلام أخي وائل انا فتشت في قوانين المنتدى ، بس للأسف الظاهر انهم تجاهلوا بعض الشروط ، لهذا ، فانا اضع بين يديك قانون جعفر: 1: ممنوع وضع مشاركات جديدة لها علاقة بالاكل ، إلا بعد الوجبات يعني تريدني ارد على سؤالك ، او ارد على بطني اللي يريد الزبيدي عُدنا للموضوع 1. انا غيرت مسمى الحقول الصفراء في النموذج الرئيسي الى: 2. في النموذج الفرعي ، في الحدث الحالي ، وضعت هذا الكود: يعني ، لازم تكون على السجل اللي تريد تعرف معلوماته ، وعليه بتحصل على النتيجة Private Sub Form_Current() On Error GoTo err_Form_Current Me.Parent.itemcode_count = 0 Me.Parent.itemcode_id = Me.itemcode Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For I = 0 To RC If Me.Parent.itemcode_id = rst!itemcode Then Me.Parent.itemcode_count = Me.Parent.itemcode_count + 1 End If rst.MoveNext Next I Exit Sub err_Form_Current: If Err.Number = 3021 Then 'no records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub بس الظاهر ان عندك حدث آخر يتدخل كل شوي ، فلازم تعالجه علشان هذا الكود يشتغل عدل جعفر 41.AA.mdb.zip

اخي ابو القبطان تم التعديل كما تريد تفتيش عن اسم 2003 معدل.rar

بارك الله فيك وفي علمك

السلام عليكم ورحمة الله وبركاته أخي كريمو الثاني وأستاذنا الفاضل محمد طاهر أسمحوا لي ان ادلوا بدلوي 1. القيت نظرة على كود النموذج Frm_kassem_months ، ولم استطع تفكيكه (في الواقع ما دوخت راسي في تفكيكه ) ، ولما رأيت ان المشكلة هي في إضافة مبالغ الاشهر المحذوفة ، رأيت ان الافضل ان اترك الكود كما هو ، وفي النهاية اجمع قيمة مبالغ الاشهر المحذوفة ، ثم اطرحها من المجاميع (رجاء المتابعة وملاحظة النتيجة في #4 في الاسفل) ، 2. أضفت حقل جديد للجدول tbl_Avoid_Dates ، اسميته DiscountPerMonth وهو الاقتطاع الشهري (حيث لاحظت ان كل استقطاع يكون له قيمته الخاصة) ، 3. فاصبح النموذج frm_Avoid_Dates يأخذ قيمة هذا الحقل من النموذج الفرعي FrmCridi_sub من الحقل DiscountPerMonth ، ثم يحفظه في الجدول tbl_Avoid_Dates ، في الحقل DiscountPerMonth. 4. (تابع من #1) في النموذج Frm_kassem_months ، في الحدث الحالي ، كتبت الكود لجمع مبالغ الاشهر المحذوفة ، وحساب عدد الاشهر المحذوفة (لا علاقة لها هنا ، ولكن قد يستفاد منها في مكان آخر) ، وثم طرح المجوعين لنحصل على المجموع الاصل (اي المجموع الذي لم يغيره الاشهر المحذوفة): 'lets check if this Employee have a void dates vTotal_Amounts = Nz(DSum("[DiscountPerMonth]", "tbl_Avoid_Dates", "[Name_ID]= " & Me.txtEmployeeID), 0) vTotal_Months = Nz(DCount("*", "tbl_Avoid_Dates", "[Name_ID]= " & Me.txtEmployeeID), 0) txtToalModan = SSS_Cridi + SSS_ElectroMeng + SSS_OtherDiscount - vTotal_Amounts txtBagi = Nz([txtToalModan], 0) - Nz(txtToalMonthsDiscount, 0) بعبارة أخرى ، من الصعب تغيير الكود الاصلي ، فنستطيع بواسطة حساب معلومات الاشهر المحذوفة من الجدول frm_Avoid_Dates ، واستعمالها في الاماكن التي تحتاج الى تضبيط قد لا تكون هذه الطريقة محبذة ، لأننا يجب ان نستعملها في التقارير كذلك ، ولكن ، اذا لم نستطع تغيير الكود الاصلي ، فنستطيع التحايل عليه جعفر

السلام عليكم المعادلة المستخدمة =SUMIF($I$3:$I$11;"*ثلج*";$H$3:$H$11) New Microsoft Excel Worksheet_3.rar

صديقي ابو القبطان مرفق نسخة عن الملف بصيغة 2003 لم اجربه لانني لا املك هذه الصيغة /حاول انت ان تجربه و اعطني النتيجة بالنسبة للاسماء يمكن ان تكتبها في العامود G ابتداء من G2 حتى g5000 كما يمكنك حذف اي اسم و استبداله باخر/ الارقام كما البيانات يمكن استعمالها تفتيش عن اسم 2003.rar

ألف ألف مبروك .. للأستاذ القدير طلعت محمد حسن

اللهم لا تحرم اساتذتنا في منتدانا هذا، في الدنيا السكينة وراحة البال؛ وفي الآخرة الجنة ومن اي الابواب شاءوا دخلوا ... يا رب العالمين...

تفضل و اعطني رأيك يمكنك استعمال هذا الماكرو ايضاً (لكن في ورقة اخرى من الالمصنف) Private Sub Worksheet_SelectionChange(ByVal Target As Range) FontSize = ActiveCell.Font.Size LargeSize = FontSize * 1.5 Cells.Font.Size = FontSize ActiveCell.Font.Size = LargeSize End Sub conditinal zoom.rar

أخي ابو حبيبة اليك الملف وان شاء الله يكون المطلوب تواريخ.rar

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

جزاك الله خيرا أخي الكريم أحمد الشيخ لابد أن يعطى كل ذي حق حقه .. فلا تغضب من مشاركتي التي أشرت إليك فيها إلى هذا الأمر

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

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

عفوا اخواني على التاخير مرفق الملف تعديل الكود بدل جديد خلية عمود V1.zip

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

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

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

اخي الفاضل / ابو تراب جزاك الله خيراً على المجهود الاكثر من رائع مشكور

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

اخي الفاضل ابو تراب جزاك الله خير على المجهود الرائع

ماشاء الله برنامج اكثر من رائع مشكور على المجهود العظيم برجاء المساعدة في عمل برنامج خاص بشؤون الموظفين

بسم الله الرحمن الرحيم مرفق الملف الذى تريده بعد التعديل السلام عليكم Time_02.rar