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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

جرب الكود التالي 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

وعليكم السلام أخي وائل انا فتشت في قوانين المنتدى ، بس للأسف الظاهر انهم تجاهلوا بعض الشروط ، لهذا ، فانا اضع بين يديك قانون جعفر: 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

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

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

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

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

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

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

ان شاء الله تكون المعادلة المطلوبة أستاذ mohamed.m if.rar

وده رابط الموضوع http://www.officena.net/ib/index.php?showtopic=57923&hl=

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

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

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

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

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

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

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

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

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