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

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

مرفق ملف يشتمل على : - ميعاد حضور الموظف او العامل وميعاد الانصراف - ميعاد الوردية من- الى حتى لو تجاوزة منتصف الليل - فترة التاخير المسموح بها بالدقائق 15 دقيقة مثلا -لائحة جزاءات بعد 15 دقيقةتاخير خصم ربع يوم - 30 دقيقة خصم نص يوم - 60 دقيقة خصم 1 يوم ويمكن التعديل فيها من المربعات الحمراء - حساب ساعات العمل - ساعات التاخير عن ميعاد الحضور - ساعات الانصراف المبكر عن ميعاد الانصراف والكثير لعل يكون مفيد نهائىhr - Copy.rar

وعليكم السلام أخي الكريم يرجى أن يكون الموضوع لطلب واحد فقط لكي تجد استجابة أفضل تفضل الكود التالي عله يفي بالغرض إن شاء الله Sub TotalsInAllSheets() Dim ws As Worksheet Dim lr As Long Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 2 With ws .Rows(lr).Clear .Range("H" & lr).Value = "Total :" .Range("I" & lr & ":M" & lr).Formula = "=SUBTOTAL(9,I8:I" & lr - 2 & ")" With .Range("H" & lr & ":M" & lr) .Font.Size = 10 .Font.Bold = True .Font.Color = vbRed .NumberFormat = "#,##0.00_);-#,##0.00" End With .Range("K" & lr).Clear End With Next ws Application.ScreenUpdating = True End Sub

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

قم بنسخ المعادلة وبعد وضعها اضغط على Ctrl + Shift +Enter لأنها معادلة صفيف

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

و عليكم السلام راجع الرابط التالي https://www.officena.net/ib/topic/57813-تحديد-صف-وعمود-الخلية-النشطة-تلوين-العمود-والصف-باستخدام-التنسيق-الشرطي/ للأستاذ الفاضل و القدير ابو البراء جزاه الله كل خير

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

يوجد الدالة SEARCH وهي تعمل نفس عمل الدالة FINDولكن هي اوسع من ناحية التحسس لحالة الأحرف يمكن تجاهل الهمزة مثلا لحرف الألف =========================== كما ذكرت في المثال السابق الدالة SEARCH لافرق لديها بين كبتال او سمال

و عليكم السلام بعد تفعيل الماكرو اضغط زر تحديث اعلى ورقة الخلاصة تظهر لك البيانات Sub ALKULASAH() Sheets("ÊÌãíÚ ÇáÝæÇÊíÑ").Range("A2:B5555"). _ AdvancedFilter Action:=xlFilterCopy, CriteriaRange _ :=Range("A2:B2"), CopyToRange:=Range("A2:B5555"), Unique:=True End Sub الخلاصةaz - تعديل.rar

السلام عليكم ورحمة الله اخى الكريم عذرا لم اكن اتوقع نقل المعادلة من خلية الى اخرى اليك الملف مرة اخرى استعلام1.rar

السلام عليكم ورحمة الله اليك الملف تفضل استعلام1.rar

السلام عليكم جرب الكود التالي .. النتائج ستظهر في ورقة 2 Sub DataBetweenTwoDatesUsingArrays() Dim ws As Worksheet Dim sh As Worksheet Dim startDate As Date Dim endDate As Date Dim arr As Variant Dim temp As Variant Dim i As Long Dim p As Long Set ws = Sheets("ورقة1"): Set sh = Sheets("ورقة2") arr = ws.Range("C16:H" & ws.Cells(Rows.Count, "C").End(xlUp).Row).Value startDate = ws.Range("J3").Value2: endDate = ws.Range("L3").Value2 ReDim temp(1 To UBound(arr, 1), 1 To 2) For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) >= startDate And arr(i, 1) <= endDate Then p = p + 1 temp(p, 1) = CLng(arr(i, 1)) temp(p, 2) = arr(i, 6) End If Next i With sh .Range("A1").Resize(, 2).Value = Array("التاريخ", "العداد") .Range("A2").Resize(p, UBound(temp, 2)).Value = temp .Columns.AutoFit End With End Sub

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

و عليكم السلام ورحمة الله وبركاته لرفع الملف اضغط الملف ببرنامج RAR او ZIP ثم ارفعه في المشاركة

وعليكم السلام و رحمة الله وبركاته شاهد الحل المرفق آمل ان يكون هو المطلوب تمت اضافة عمود = متوسط سعر الشراء الخلاصةaz.rar

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

السلام عليكم الاخ الجليل ياسر خليل نعم المقصود ان يتم التعامل من الشهر السابق أياً كان الشهر وتم الامر شكل ممتاز جزاك الله كل الخير والتقدير

بارك الله فيك أخي الكريم زياد والحمد لله أن تم المطلوب على خير

انطر هدا https://www.officena.net/ib/topic/54561-بدء-الترقيم-من-الصفحة-الثالثة/#comment-344660

وعليكم السلام ورحمة الله وبركاته ممكن الطريقة الأولى : ممكن نستخدم متغير عام ونسند له قيمة الباسورد بعد ما نتأكد من انها تتطابق مع الموجود في جدول tblPassord وبعدها نستخدم هذا المتغير في شرط عند فتح النموذج المراد الطريقة الثانية: ننشأ جدول لتخزين الباسورد عندما يسجل أحد ما الدخول ونتأكد انها متطابقة مع الموجودين في جدول tblPassord ونستفيد منه عند بداية فتح النماذج الأخر. وإذا أحد الخبراء عند حل أفضل ممكن نستفيد جرب ملفك بعد التعديل وان شاء الله يكون مفيد Multi-Users.zip

شكرا أخي مشكلة هذا السطر إنه مجرد إختيار الخلية ييقوم باللصق فيها مباشرة وإذا إخترت الخلية اللي بعدها بيلصق فيها يعني بدون إستخدما أيقونة اللصق

وعليكم السلام إذا كان الشرط لشهر 7 فقط كما فهمت من موضوعك فجرب التالي ... Dim mMonth As Integer mMonth = IIf(Month(Date) = 7, 6, Month(Date)) myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf" أما إذا كنت تقصد أن يتم التعامل مع الشهر السابق أياً كان الشهر فجرب التالي Dim mMonth As Integer mMonth = Month(Date) - 1 myName = "D:\بدلات المقاولين\بدلات الخفراء والعمالة الغير فنية_" & Format(mMonth, "00") & "-" & Format(Date, "yyyy") & ".pdf"

السلام عليكم أخي الكريم إليك الملف التالي فيه شرح بالصور لما يجب القيام به للتخلص من المشكلة .. لا تنسانا بدعوة بظهر الغيب رابط الملف المرفق من هنا

السلام عليكم ورحمة الله اكتب المعادلة الاولى فى الخلية J4 والمعادلة الثانية فى الخلية L4 و لا تنسى ازالة دمج هذه الخلايا لان معادلات الصفيف لا يمكن تمكينها فى الخلايا المدمجة كما يجب الضغط Crtl + Alt + Shift =VLOOKUP(MIN(IF($C$16:$C$144>=$J$3;$C$16:$C$144;""));$C$16:$H$144;6;0) =VLOOKUP(MAX(IF($C$16:$C$144<=L3;$C$16:$C$144;""));$C$16:$H$144;6;0)

اعمل ديفيلوت فاليو لحقل التاريخ = DATE() بلى يحتسب .. لكن يحتسب فقط السجلات اللي تاريخهم هو تاريخ اليوم المرفق اللي في مشاركتي السابقة مضبوطة وبيشتغل تمام

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

السلام عليكم و رحمة الله ملف أعجبني فأحببت أن أفيدكم به ،، للأمانة منقول اكثر شيت اكسل مدهشة ومذهله في العالم كله . ستجد فيه خصائص و خيارات و مزيا عديدة . اكثر ما اعجبني هي الرزنامة و أنتم ما الذي أعجبكم ؟ غيرو من الصفحات كما في الأسهم و اترك لنا تعليق و أبشركم عن قريب سأقدم لكم شيتات خرافية و خارقة للتحميل في الاسفل و شارك المنشور حتى يعم الخير للجميع https://www.file-upload.com/9oz60595hz0o

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة فوم ادخال بحث تعديل حذف وفلترة للبيانات تم ارفاق كود الحل من الفاضل / basem said و لا تنسونا من صالح الدعاء سريع (1).rar

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

اطلب كيفية إلغاء تقريب الرقم العشري على سبيل المثال عندى رقم مثلا (5.569) المطلوب ظهور رقمين بعد العلامة العشرية ودون تقريب الرقم الثاني المطلوب ظهور (5.56) بدلا من (5.57)

أخوتي الأعزاء في هذا المنتدى الحبيب : أرفق لكم اليوم مجموعة جديدة من الأمثلة البرمجية و التي آمل أن تنال إعجابكم . بإنتظار ردودكم و ملاحظاتكم أخوكم ابو سليم ChangingColorFields.zip CharacterScramble.zip CleanFileHTML97.zip ConvertStringStuff.zip CSVtoFixed.zip CurrentTab.zip DataEntryMask.zip UpdateDirectFixed.zip

الأخ بسمة ألمـ : بحثت في مكتبة الأمثلة و البرامج لدي و وجدت أن لدي البرنامج التالي المرفق . آمل أن ينال إعجابكم و بإنتظار ردود الأعضاء LIBRARY.rar

أخوتي الأعزاء في منتدانا الطيب هذا : أرفق لكم اليوم مجموعة من الأمثلة البرمجية التي أجد فيها الكثير من المعلومات المفيدة لكم راجياً الله تعالى أن تنال إعجابكم بإنتظار ردودكم ComboChoosesRecord.zip CreateQueryFields.zip CopyObjectsFromBE.zip ContinuousFormNewRecordOnTop.zip DeleteTablesAtStart.zip

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

أخوتي الاعزاء : إليكم الأمثلة التي أخترتها لكم اليوم ، على أمل أن تنال إعجابكم جميعاً بإنتظار ردودكم ، ، ، مع الشكر ، ،، BoilerPlate.zip ChangingColorFields.zip CleanFileHTML97.zip CharacterScramble.zip ComboChoosesRecord.zip

شكراً لكم أخوتي على ردودكم الجميلة ، ، ، و كما عودتكم ، في كل يوم إنشاء الله يوجد المزيد المزيد سأضع بين أيديكم أكثر من 3000 مثال عملي آمل أن تنال إعجابكم جميعاً ، و بإنتظار ردودكم ، ، ، DataEntryMask.zip DataScramble.zip DateStuff.zip

أخوتي الأعزاء : في البداية اود أن اشكركم على هذه الردود الجميلة و أرفق لكم المزيد من الأمثلة البرمجية التي آمل ان تنال إعجابكم . بإنتظار ردودكم ، ، ، مع جزيل الشكر ، ، ، Animation.zip AutonumberProblem.zip DAO.zip

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

شكراً لك اخي morsy على هذا الرد الجميل ، و أسأل الله القوة و المعونة لطرح المزيد المزيد من الأعمال و التي أرجو الله أن يتقبلها مني و أن يكون فيها الخير للجميع إنشاء الله . أما اليوم أخوتي الأعزاء في هذا المنتدى العزيز ، فقد قمت بإضافة العديد من الأمثلة التي تساعدكم إنشاء الله في موضوع الـ Combo بإنتظار ردودكم جميعاً . . . CascadingComboBoxes.zip CascadingComboInSubform.zip ComboChoosesRecord.zip

أخوتي الأعزاء : ارفق لكم اليوم مجموعة من الأمثلة التي تتعلق بالتقارير بإنتظار ردودكم و إستفساراتكم جميعاً ChooseReportFields.zip ChooseReportFieldsRows.zip ChooseReportFromList.zip ChooseReportFromList2.zip CrossTabReport.zip