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

السلام عليكم الاخوة الكرام الاعزاء هذا الموضوع مخالف اخواني الكرام لقواعد المشاركات احتراما لحقوق صاحب الملف المغلق وموضوع فتح ملف اكسيل مغلق برقم سري اعرف انه ليس بالصعب عليكم اعضاء المنتدي الكرام ولكن هذه بينكم وبين ربكم والاخ / 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

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

ماشاء الله ربنا يبارك في حضرتك انا حبيت ال VBA بسببك

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

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

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

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

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

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

جرب الكود التالي .. Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("A8").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.SpecialCells(xlCellTypeFormulas).ClearContents End With End Sub ويا حبذا لما ترفق ملف يكون بدون حماية

مشاركة مع الأستاذ جعفر اعمل استعلام جديد وباسم 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

السلام عليكم أخي الفاضل جرب الملف التالي وإن شاء الله يفي بالغرض ولا تنسى أن تختار المشاركة التي تعجبك كأفضل إجابة تقبل تحياتي Copy Filtered Data From Closed Workbook.rar

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

اخي ابو القبطان تم التعديل كما تريد تفتيش عن اسم 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

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

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

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

أخي الحبيب سليم وأخي الغالي خزاني اسمحا لي بتقديم هذا الحل إثراءاً للموضوع ..هنا الحل لا يعتمد على ورقة أخرى لتخزين القيم التي يتم إدخالها ، كما أنه مقتصر على الأرقام فقط دون النصوص Cell Counter YasserKhalil.rar

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

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

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

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

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

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

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

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

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

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

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

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