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

بعد اذن اخي بن علية ثلاث حلول في 3 صفحات (تم تغيير الاسماء واختصار البيانات للتدقيق في صحة المعادلات) هناك حسب ما اعتقد حل رابع لم استطع معالجته لضيق الوقت اختر ما يناسبك Takrir.xlsx

السلام عليكم تم استعمال الدوال SUMPRODUCT وOFFSET وMATCH... أرجو أن تفي الغرض المطلوب... بن علية حاجي تقرير.xlsx

نعم ممكن ولكن : لا انصح الشخص المبتدئ الذي ليس لدية فكرة بكيفية عمل الريجستري استخدامه كتجارب ( اقصد المبرمج ) لأنه يؤدي لأنهيار النظام أما المستخدم للبرنامج فلا ضرر ...... ضع هذا الكود داخل مديول : Private Function RegWrite(Key1, SValue As String) Set WSHShell = CreateObject("WScript.Shell") WSHShell.RegWrite Key1, SValue End Function ثم من النموذج الرئيسي استدعيه عن طريق حدث عند التحميل بهذه الطريقة : RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\kan.mdb", " C:\Kan.mdb لكن يجب ايقاف برامج مكافحة الفيروسات وبرامج الحماية لكي يعمل الكود .......

تفضل تم عمل المطلوب project1.xlsx

على الرغم انك لم تقم الا برفع ملف خالى من البيانات ولم تقوم بشرح المطلوب عليه, الا وقد تم عمل المطلوب كما تريد , تفضل project.xlsx

=Nz(DSum("[المبلغ المسحوب]";"[سحب مبالغ العمال]";"[det sat]Between [من] And [إلى] and [رقم العامل]= [Forms]![صرف الراتب]![aa] ");"0") ونصيحه ابعد عن التسميات العربيه في الجداول والنماذج والى اخر مثلا سحب اعملها sahb المهم تكون تجليزي ليس ضروري معنها بالانجليزي النمهم مكتوبه بالانجليزي اتفضل اتمنى يكون المطلوب سحب مبالغ مالية للعمال (1).rar

تفضل أخي محمد علما بان الصورة No.jpg ضع في فولدر (123) فقط لا داعي وضع تلك الصورة في جميع مجلدات Worker (4).rar

الحل الرابع بواسطة هذه المعادلة (Ctrl+Shift+Enter) =IF($A2="","",SUM(INDEX(G_H!$D$2:$N$200,0,MATCH(D$1,G_H!$D$1:$N$1,0))*(G_H!$A$2:$A$200=$A2))) Or =IF($A2="";"";SUM(INDEX(G_H!$D$2:$N$200;0;MATCH(D$1;G_H!$D$1:$N$1;0))*(G_H!$A$2:$A$200=$A2))) اختر فاصلة أو فاصلة منقوطة للمعادلة حسب اعدادات الـــ Office عندك

تفضل هذا الفيديو فبه ما تطلب وترغب https://www.youtube.com/watch?v=mX6JOfgb2hc ولكن فى نهاية الفيديو عند الضغط على Finish & Merge يمكنك الضغط على Edit Individual Documents بدلا من Print Document وذلك للحصول على الملف بالوورد وليس بتنسيق أخر وليس هناك طريقة سوى هذه وهذا هو ملف الوورد المطلوب المرتبات.docx

يدويا : عن طريق المهام المجدولة .... انظر ......

أذا كانت هناك نسخة احتياطية فحاول الرجوع اليها

القاعدة ليس فيها بيانات ولا جداول أنظر ...

الأمر في غاية البساطة كليك يمين على عمود الأرقام مثلا ثم اختيار Format Cells ثم اختيار Number ثم Ok كما بالصورة

أحسنت استاذنا الكريم عمل رائع بارك الله فيك وزادك الله من فضله

نزولا عن رغبة الاحبة بتزويده ببرنامج محاسبة شركات شامل اضع بين ايديكم هذا العمل المتواضع User Name : admin Password : 1 أي رقم سري يواجهكم خلال استخدام البرنامج استعمل 12345 أي سؤال ان اجاهز Accounting Prog.rar

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

اخي الكريم ماذا لو يتم اصدار تقرير مباشر الى pdf المثال accessReportToPdf.accdb

مع ان الاستفسار غير واضح ولكن لحساب عدد الكلمات في الحقل توجد عدة طرق الاولى طريق استاذنا الفاضل ابو خليل وباستخدام دالتين Me.نص9 = Len([اسم]) - Len(Replace([اسم], " ", "")) + 1 والطريقة الثانية للمعلم الفاضل استاذنا رمهان ويتم استخدام اربع دوال Me.نص17 = UBound(Split(Trim(Replace(اسم.Text, Chr(13) & Chr(10), " ")) & " ", " ")) الطريقة الثالثة وهي من اسهل الطرق Dim k() As String k = Split(اسم, " ") Me.نص19 = UBound(k) + 1 وفي المرفقات نموذج للطرق الثلاث علما بانه في هذة الكرق قد يحصل عدد غير صحيح مع الاسماء المركبة مثل عبد الله بسبب المسافة Database21.accdb

اخي الكريم شكراً لمجهودك وبارك الله فيك هو فعلاً المطلوب ولك كزيل الشكر والتقدير

اقترح باستخدام طريقة الترصيد https://www.officena.net/ib/topic/65136-حساب-الرصيد-من-مدين-ودائن/

هذا الماكرو Option Explicit Sub Date_To_Text() Range("c1").CurrentRegion.ClearContents Dim cel As Range Range("a1").CurrentRegion.Offset(, 2) _ .Formula = "=TEXT(A1,""yyy/m/d"")" For Each cel In Range("c1").CurrentRegion cel.Value = "'" & cel.Value Next End Sub الملف مرفق Text_date.xlsm

ممكن ارفاق الملف بعد التعديل الاخير

بارك الله فيك استاذ عبد اللطيف

اهلا بك في المنتدى بالتأكيد هذا كلام غير مضبوط فليس هناك اى غنى عن الإكسيل فالإكسيل من اهم البرامج التي تستطيع تطويعها في شتى المجالات وهذا ما يقصده هذا النظام نظام ال ERP) Enterprise Resource planning) أو تخطيط موارد الشركة هو مجموعة من الأنظمة تعمل سوية لأتمتة العمليات الخاصة بالشركة أو المؤسسة وربطها بشكل موحد ومتكامل , فمهما كانت طبيعة العمل (خيري , تجاري …إلخ) يمكن تطبيقه , كما ويغنيها عن استعمال أنظمة وبرمجيات مختلفة من عدة شركات. ويتطلب تطبيقه إلى إعادة هندسة العمليات الخاصة بالمؤسسة أو ما يسمى ب (Business Processing Engineering (BPE فيتم تغير آلية العمل بما يوافق النظام الجديد , ونظرا لدرجة تعقيد النظام فإنه يحتاج إلى وقت كافي لتطبيقه والحصول على فوائده , كما وأن تطويره يحتاج دمج كامل بين الإدارة والتقنية فلا يمكن تطويره بالإعتماد على التقنيين وإنما يتطلب فهم عميق للجانب الإداري وطبيعة العمل أهمية ال ERP – تقليل التكلفة والوقت اللازم في العمليات – سرعة إكتشاف الأخطاء وإصلاحها – سهولة تغيير آلية العمل للشركة وتوسعها بسرعه وتحويرها لدخول أسواق جديده – أخذ قرارات أكثر حكمة بالإعتماد على الأرقام والحسابات – زيادة كفاءة الخدمات والسمعة أشهر الأنظمة الرئيسية < تكون أن يمكن التي الأنظمة أشهر نذكر وهنا ERP ال لتمثل جميعا ربطها يتم ولكن مستقل بشكل يعمل نظام كل من مجموعة> – إدارة الموارد البشرية (Human Resource Management(HRM: نظام لتطوير التخطيط لإحتياجات العمل من الوظائف وكل ما يخص ذلك من تفاصيل , وتطبيق كل القوانين والعمليات الخاصة بالموظفين , كذلك تطوير الكادر – إدارة الحسابات المالية : ويتضمن جميع العمليات المحاسبية من القيود المحاسبية , حسابات الموردين , الشيكات , حسابات العملاء .. إلخ – إدارة سلسلة الإمدادات (Supply Chain Management (SCM : وهو نظام لدعم وإدارة الربط بين الموردين والعملاء وشركاء العمل , ليمثل سلسلة من العمليات المترابطه من قبل التوريد إلى نهاية وصول المنتجات إلى العملاء. – إدارة العلاقات مع العملاء (Customer RelationShip Management(CRM: وهو نظام يدير العلاقات مع العملاء وقد تحدثت عنه مسبقا بشكل تفصيلي في موضوع “لمن يؤمن بإرضاء العملاء كأفضل وسيلة للربح … نظام ال CRM” – إدارة المبيعات وطلبات المخازن : جميع عمليات المخازن من توريد وتصدير وحركات داخلية بين المخازن وهناك أنظمة كثيرة يمكن أن تنتمي للمجموعة مثل التصنيع (manufacturing) , و تخطيط الإنتاج والكثير من الأنظمة المختلفة نصيحة نظام ال ERP نظام يعتمد بشكل رئيسي على طبيعة عمل المؤسسة لذلك ينصح بتطويره بشكل خاص للمؤسسة وعدم الإعتماد على المصادر المفتوحة العامة إلا بتخصصيها كما وفي ذات الوقت يحتاج تطوير ال ERP إلى الصبر وذلك لما يتطلبه من جهد تقني وإداري في تغيير العمليات وآلية العمل الموجودة وحقيقة تطبيق ال ERP داخل الشركات الناشئة أسهل من تطبيقه في شركة تعقدت عملياتها , ولكن هل الشركة التي تعقدت عملياتها وأصبحت كبيرة ليس لها فرصة ! هناك العديد من الشركات الضخمة التي استطاعت تحويل كل عملياتها ومجاراة الواقع مثل IBM وهنا يمكن أن نضيف شيئا قد يساعد هذه الشركات 1- عدم التحويل المفاجيء وإعتماد سياسة متوازية من تحويل بعض الأجزاء شيئا فشيئا لأنظمة وربطها لاحقا لتعمل كنظام ERP متكامل 2- تحفيز الموظفين من خلال المكافآت لمن يتعامل مع الأنظمة الحديثة 3- عمل برامج صغيرة لقياس مدى فاعلية تطبيقها 4- الإستعانة بالخبراء والمستشارين 5- إحضار متدربين محترفين لتدريب الكادر أسباب قد تؤدي إلى فشل الERP 1- عدم تقدير تعقيد النظام , معرفة المتطلبات بشكل جيد 2- عدم دخول الموظفين بشكل حقيقي بالنظام 3- الإعتماد على شركات البرمجة والمستشارين بشكل كلي 4- تحميل البرنامج فوق المحتمل وتوقع النتائج سريعا 5- عدم الإستعانة بالمستشارين وأصحاب الخبرة

اكتب في الخلية هذه المعادلة (لاحاجة للكود) =TEXT(A1,"yyy/mm/dd") or =TEXT(A1;"yyy/mm/dd")

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

المرفق الجديد Worker (4).rar

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

هلا وغلا

بارك الله فيك أخي @kaser906 >>>> موفق للخير .

ممكن ان تعمل protect على الخلايا التي تحتوي معادلات فقط وباقي الخلايا تتركها غير محمية هذا الملف مثال على ذلك (الحماية فقط في النطاق الاخضر ) اما باقي الخلايا ان كانت فيها معادلات اولا غير محمية) من خلال الكود يمكنك تغيير حجم النطاق الى ما تريد Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Me.Unprotect Me.Cells.Locked = False Dim My_SELECT As Range Dim CEL As Range Set My_SELECT = Intersect(Range("A1:F7"), Selection) If My_SELECT Is Nothing Then GoTo End_me With Me For Each CEL In My_SELECT If CEL.HasFormula Then With CEL .Locked = True .FormulaHidden = True .Interior.ColorIndex = 6 End With End If Next End With End_me: Me.Protect Application.EnableEvents = True End Sub الملف مرفق Protect_formula.xlsm

جرب هذا الماكرو Option Explicit Sub my_sum_By_Chosen_Sheets() Dim s#, k%, t1%, t2% On Error GoTo Leave_me_Out t1 = Sheets(Sheets("mn").Range("a15").Value).Index t2 = Sheets(Sheets("mn").Range("b15").Value).Index For k = Application.Min(t1, t2) _ To Application.Max(t1, t2) s = s + IIf(IsNumeric(Sheets(k).Range(Sheets("mn").Range("C15"))), _ Sheets(k).Range(Sheets("mn").Range("C15")), 0) Next Sheets("mn").Range("d15") = s Exit Sub Leave_me_Out: MsgBox "Check Please the Addrees And The Sheet's Names" & Chr(10) & _ "In The Range(A15:C15)" End Sub الملف للمعاينة مرفق sum_from_multy_sheet.xlsm

وعليكم السلام-اهلا بك في المنتدى كان عليك استخدام خاصية البحث في المنتدى تفضل هذا الرابط : https://www.officena.net/ib/topic/91673-برنامج-لتسجيل-الخطابات-وحفظها-مع-إمكانية-فتحها-صادر-وارد/?tab=comments#comment-574880 وهذا فيديو لشرح طريقة وبرنامج اخر https://www.youtube.com/watch?v=8zCrmBIs_aY

بارك الله فيك وجزاك الله كل خير

أحسنت أستاذ مجدى بارك الله فيك واجمل التهانى لكل أبنائنا الناجحين والمتفوقين ويارب دائما بالنجاح والتوفيق

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

برنامج_مخازن_جديد.xlsm

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

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

تجميع لمساهمات الاعضاء Sub zezo.rar ودة رابط كمان http://www.excelexperts.com/VBA-Tips-Finding-things-using-VBA مساهمه صغيرة على منى

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الأغر ... هل ....؟ سؤال موجه لكم وليس لي هل .....؟ والإجابة على السؤال بهل إما بـ "نعم" أو بـ "لا" هل قمت يوماً ما بتحميل مصحف كامل لأحد القراء المحببين إليك؟ إذا كانت الإجابة بنعم انتقل للسؤال الثاني وإذا كانت الإجابة بـ "لا" .. مش عيب عليك تحمل أفلام ومسلسلات وألعاب وناسي كتاب الله السؤال الثاني : هل بعد عملية التحميل وجدت أن المجلد الذي يحتوي على السور مرقمة من 001 و 002 إلى 114 بدون أسماء السور؟ إذا كانت الإجابة بـ "نعم" فإليك الحل السحري مع الإكسل .. الحل هو دمج أسماء السور مع الاحتفاظ بالرقم أيضاً من أجل ترتيب السور ، لتصبح في النهاية بهذا الشكل 001 - الفاتحة ، 002 - البقرة وهكذا!! خطوات العمل : ************** قم بنسخ المصنف الذي سأقوم بإرفاقه في نفس مسار المجلد الذي يحتوي على السور القرآنية .. افتح المصنف .. اضغط زر الأمر .. وشكراً لكم على حسن تعاونكم معنا أترككم مع الملف :fff: Rename Quran Files.rar

السلام عليكم ورحمة الله أخي الكريم، هذه الرموز {} (الحاضنتين) التي تظهر في بداية المعادلة (قبل رمز =) والأخرى في نهاية المعادلة هما رمز "دوال الصفيف أو المصفوفات" ولا يجب إضافتهما يدويا بل يجب إضافتهما بعد الانتهاء من كتابة المعادلة وبدلا من الضغط على مفتاح ENTER (كما تعودنا في المعادلات) يجب الضغط على 3 مفاتيح في آن واحد وهي : CTRL+SHIFT+ENTER (من اليسار إلى اليمين: الأولى CTRL و الثانية SHIFT والثالثة ENTER) وعند هذا التأكيد تظهر العلامات السابقة تلقائيا.... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، الدالة VLOOKUP2ALL غير ضرورية في ملفك لأنك تستعمل العمود الأول من النطاق كعمود بحث في الدالة، وهذه تقوم بها الدالة VLOOKUP العادية، فهي إذا كافية... وإذا كان عمود البحث غير العمود الأول فيمكن استبدال الدالة VLOOKUP2ALL بدوال أخرى تقوم مقامها مثل الدالتين INDEX و MATCH أو غيرها.... بن علية

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

هذه محاولة جربها أخي تأمينات.rar