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

وعليكم السلام ورحمة الله تعالى وبركاته جرب هذا مع تغيير أسماء الأعمدة بما يناسبك =SUMPRODUCT(--(B2:B12<>"")*(B2:B12<>"غ")*(B2:B12<>"غياب")*(B2:B12<>"تخلف")) المصنف1.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا هل يشتغل معك عند محاولة الدخول لورقة 1 TEST.xlsb

ابشركم قبضت عليه .. المشكلة انه امامنا ولكن لم ننتبه له عثرت عليه بعد ان تم حذفه .. حزورة فزورة .. في آخر الخطوات سوف اخبركم كيف العثور عليه اولا هذا الكود يستخرج قائمة كاملة بأسماء قوائم أكسس وهي كثيرة جدا .. وواضحة من مسمياتيها ( تسمية عامة تحمل الصفة) .. وانما انا ابحث عن اسم خاص Sub ListCustomCommandBarControls() Dim x For Each bar In CommandBars x = bar.Name Debug.Print x Next End Sub وطبعا عثرت على ثلاثة : 1- طباعة 2- (print) 3- (prscs ) والثالث هذا هو المطلوب ادخلت الاسم الثالث هذا في امر الحذف هذا : Private Sub Command1_Click() Application.CommandBars("prscs").Delete End Sub فطار من غير رجعة .. الآن نرجع .. كيف وجدته بعد حذفه ؟ لما حذفته اعدت تشغيل المثال فخرجت لي رسالة خطأ بان القائمة prscs غير موجودة هنا ذهبت الى خصائص قاعدة البيانات من ملف فوجدت صاحبنا متربع في الحقل مع اختصار أخر بجانبه يستأنس به انظروا الصورة طبعا بدلته الى الافتراضي ثم موافق فاختفى هو وأثره للأبد TNDT2.mdb

ما شاء الله ، تحديث سليم لمشكلة التوسيط بعد التصغير .. ، وأيضاً مشكلة عدم وجود الأيقونة في المجلد

لن نكون بحاجة الى موضوع مستقل وهذا العمل معلوم للكل بالضرورة مثلا اذا عندي 5 قوائم تحت كل قائمة 5 ازرار القائمة : ptn_a وتحتها الازرار : a1 ، a2 ، a3 ، a4 ، a5 والقائمة : ptn_b وتحتها ازرارها b1 b2 ......... وهكذا لجميع القوائم يصبح أمامنا 25 زر اكتب هذا الكود والصقه 25 مرة Private Sub a1_Click() On Error GoTo err_Handeler Dim stDocName As String Dim stLinkCriteria As String stDocName = "yourForm" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_err_Handeler: Exit Sub err_Handeler: MsgBox err.Description Resume Exit_err_Handeler End Sub ثم اغير فقط اسم الزر واسم النموذج الذي سيتم فتحه stLinkCriteria المعيار كما تعلمون يكون جاهز ، فقد تحتاج اليه بعض النماذج عند الفتح ، حينها يتم تعريفه بسطر وسلامتكم ،،،

السلام عليكم ورحمة الله تعالى وبركاته تم تلافى الكثير من المشاكل وتم تحديث النسخة اليوم اليكم الاصدار الجديد ان شاء الله فى رأس الموضوع أو يمكنكم تحميل التعديل الاخيــر من >>---> تحميل التحديث للإصدار الأخير

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

ناسف ع التاخير غير المقصود ضغط العمل نسال الله دوام التوفيق و السداد للجميع العمل سيكون مقسم الي جزئين الجزاء الاول :- تصدير فاتوره المبيعات , مردوداتها الي ملف xml الحاله :- قريبا جدا بيكون جاهز الجزاء الثاني :- و هو الاهم و الاصعب ربط الحل التقني مع هيئه الزكاه و الدخل الحاله :- جاهز تنويه :- ممكن اي احد شغال ع vb.net او c# او اي لغه برجمه ياخد طريقه العمل ويطبقها بلغه البرمجه الخاصه بيه و هيشتغل معاه ان شاء الله رابط الملفات المستخدمه للعمل ملف الاكسس + البرامج المساعده https://drive.google.com/file/d/1vrIMbKFfU6_HgWipo3L8CLAOGwjvdTvj/view?usp=drive_link رابط ملف الاكسس فقط https://drive.google.com/file/d/1YY5an9X-NYjAx2ZSL6ipr_dQcihcLrCD/view?usp=drive_link رابط الشروحات (الموضوع طويل وفيه تفاصيل كثيره وحاولت ان اختصر قدر المستطاع ) للتواصل :- ايميل :- act32add.nm@gmail.com واتساب :- 00966597465617

السلام عليكم ورحمة الله تعالى وبركاته الكود المقترح من الأستاد @حسونة حسين يشتغل بشكل جيد وينفد المطلوب مجرد اقتراح حاول وضع السطر التالي في حدث ورقة مبيعات الشهر مع ادخال بعض البيانات على اوراق العمل Private Sub Worksheet_Activate() Test End Sub في حالة الرغبة باستخدام الاكواد بدل الصيغ الموجودة على جميع اوراق العملاء ضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lr As Long, n As Double, i As Long Dim totalD As Double, totalE As Double Dim WS As Worksheet: Set WS = Sh If InStr(1, WS.name, "عميل") = 0 Then Exit Sub If Not Intersect(Target, WS.Columns("D:E")) Is Nothing Or Not Intersect(Target, WS.Range("G6")) Is Nothing Then lr = Application.WorksheetFunction.Min(42, _ Application.WorksheetFunction.Max(WS.Cells(WS.Rows.Count, "D").End(xlUp).Row, _ WS.Cells(WS.Rows.Count, "E").End(xlUp).Row)) WS.Range("F9:F42").ClearContents n = WS.Range("G6").Value For i = 9 To lr If WS.Cells(i, "D").Value > 0 Or WS.Cells(i, "E").Value > 0 Then n = n + WS.Cells(i, "D").Value - WS.Cells(i, "E").Value WS.Cells(i, "F").Value = n End If Next i totalD = Application.WorksheetFunction.Sum(WS.Range("D9:D42")) totalE = Application.WorksheetFunction.Sum(WS.Range("E9:E42")) WS.Range("C44").Value = totalD WS.Range("C45").Value = totalE WS.Range("C46").Value = WS.Range("G6").Value + (totalD - totalE) End If End Sub واظافة الاسطر التالية اسفل كود الاستاد حسونة لحساب مجموع الاعمدة على ورقة مبيعات الشهر Dim totals(1 To 3) As Double Sh.[A1].Value = "قائمة تعاملات عملاء 6 أكتوبر حتى يوم: " & Format(Date, "dd/mm/yyyy") For i = 1 To 3 totals(i) = Application.WorksheetFunction.Sum(Sh.Range(Cells(3, i + 2), Cells(152, i + 2))) Sh.Cells(153, i + 2).Value = totals(i) Next i Customers-Project-02.xlsb

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

أخي أزهر .. حسب تصوري للموضوع أنك تريد نظام لمعرفة السجلات المضافة من قبل المستخدمين الآخرين وهل تم قرائتها من قبلك أم لا .. إن كان هذا هو مطلبك .. فستحتاج أن تضيف حقلين نصيين في الجدول .. الأول ( أضيف بواسطة ) : .. وفيه يتم تسجيل أسم المستخدم الذي أضاف السجل ... ويوضع في حدث قبل الإدراج. الثاني (قُرِئِت) : ... وفيه يتم إضافة اسماء المستخدمين الذين فتحو هذا السجل .. ويوضع في حدث عند الحالي وتعمل استعلام يقوم بحصر السجلات الغير مقروءة من قبلك .. فإن كان عددها أكبر من 1 تظهر لك الرسالة التنبيهية التي تريدها .. وسلامتك 🙂🖐 تم إضافة جميع ما سبق إلى ملفك : mr.accdb

واو

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

مرفق ملف للترجمه بواسطه السيلينيوم * لابد من تصطيب السيلينيوم ويمكنك تحميله من هذا الرابط * وتحديث درايفر الكروم من هذا الرابط Translator.xlsm

الله ينور عليك يا مايسترو ايه الابداع ده

فن .. وعمل يفتح النفس الف شكر لجهودكما ولهذا الإبداع

هذا المرفق به الثلاث طرق الأصل بعد التصحيح و فكرتي للاختبار لإيصال الفكرة الصحيحة للسائل وكود السائل الأخير. آخر مشاركة لي فلن أرد على مشاركة إضافية من الجميع وشكرا لكم. Stock123_03.xlsm

سيتم التطرق بهذا الجزء بعض النقاط الأساسية عند البدء بالتخطيط لإعداد للاستراتيجية لمؤسسية، ابتداءً من سبب الحاجة لوجود استراتيجية. ومن ثم الخطوات الرئيسية للتخطيط، والنتائج المتوقعة منها. نقاط يجب أخذها بالاعتبار عند التخطيط للاستراتيجيات للتأكد من تكامل الخطوات ووضح أهداف التخطيط وإعداد للاستراتيجية المؤسسية: 1- تحديد سبب القيام بالتخطيط أو إعادة دراسة للاستراتيجية الحالية 2- تحديد العمليات وتعريفها التي يتم من خلالها تحليل للاستراتيجية ، وتحديد المعنيين في المؤسسة بهدف معرفة المهام والمسؤوليات وأولويات تنفيذ الاستراتيجية 3- معايير الجودة: الهدف من هذه الخطوة التأكد من تحقيق متطلبات تنفيذ الاستراتيجية بحسب الأهداف ومؤشرات الأداء. 4- الحوكمة: يهدف هذا الجزء إلى الاستمرارية والتحسين المستمر في الأداء وعدم التوقف عن التطوير المؤسسي بما يلبي تطلعات المؤسسة بتحقيق أهدافها الاستراتيجية. عند الإعداد لاستراتيجية المؤسسة، من الضروري في البداية على التأكيد بأن الإدارة العليا وأصحاب المؤسسة يوجد لديهم تصور عن طبيعة ونطاق عمل المؤسسي، وبالتالي هناك تصور مبدئي عن هوية الشركة ورؤيتها، وما هو العنصر/ الاستراتيجية التنافسية Competitive strategy للمؤسسة في سوق الأعمال. وعليه توضح الخطوات التالية مراحل إعداد والتخطيط الاستراتيجي بشكل مستمر للوصول للشكل النهائي. ونؤكد هنا بأن التخطيط الاستراتيجي أو التخطيط للاستراتيجيات يكون على شكل حلقات تتكرر بهدف التحسين والتطوير للوصول لإطار عام متميز في مجال عمل المؤسسة. المخرجات المتوقعة/ صفات الاستراتيجية المؤسسية: 1- يجب أن تكون متميزة ومنفردة حتى تستطيع المنافسة في سوق الأعمال 2- الأهداف المنبثقة عنها واضحة ودقيقة، ومرتبطة بمؤشرات أداء لقياس مدى الالتزام، ومدى مساهمتها بتحقيق رؤية المؤسسة 3- المرونة المؤسسية لمواكبة التغيير والتطوير لضمان التحسن المستمر. ولا يعني بالضرورة تغيير الاستراتيجية بشكل كلي، ولكن الأهداف الاستراتيجية المنبثقة عنها قد يطرأ تعديل عليها أو في أولويات تنفيذها. 4- ارتباط المؤسسة بشكل عامودي بتنفيذ وتحقيق الاستراتيجية والتي يتم ترجمتها على مستوى الأقسام في المؤسسة على شكل مهام ومسؤوليات. وللتوضيح فإن الاستراتيجية والأهداف التابعة لها يتم دراستها ضمن فترات زمنية بحسب تغير سوق العمل، والمتطلبات، والتحديات ولا يوجد وحدة زمنية ثابتة لتنفيذ ذلك. وللحديث بقية في الجزء القادم.

وجدت هذا الملف منشور على النت يبدو لي من النظرة المبدئية أن الملف سهل ممتنع ، يقوم بحساب و رسم الشبكة بطريقة المسار الحرج بناء على التقدير ثلاثي النطاق و يمكن عدم تطبيق التقدير ثلاثي النقاط بوضح الزمن مباشرة فى عمود زمن النشاط (L) بدلا من المعادلة التي تحسبه يناء على التقدير المتشاءم و المتفائل و الاكثر توقعها critical-path-method.xlsx المصدر

السلام عليكم الاستاذ الكريم سليم حاصبيا اولا اشكر لك اهتمامك المعهود ... جزاك الله خير الفكرة هي ان ممكن تكون كلمات الجملة مكونة من اكثر من لون مثال: The cat is under the table. فلو اردنا ان نلغي تحرير under مع الابقاء على باقي الكلمات كما هي فتصبح The cat is under the table. لذلك عملت زر الغاء تحرير كلمة واحدة مع ترك بقية الكلمات كما هي اعجبني الكود الجديد بما فيه من اختصارات فنية رائعة فركبته مع إضافة إمكانية التبديل بيع الغاء تحرير الكل او الغاء تحرير كلمة واحدة أشكرك جزيل الشكر على اهتمامك ... بارك الله لك في علمك Extra_Search1.xlsm

السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحيم أتمنى من الله أن تكونوا جميعا بألف خير وصحة وصيامكم خفيف ومقبول إن شاء الله موضوع اليوم هو تجميعة للأكواد الخاصة بحفظ الإكسل كـ PDF سواء الصفحات أو النطاقات أو ملفات الإكسل كاملة مع إمكانية إرسالها عن طريق الأوت لوك Outlook الملف المرفق بيه كل الأكواد المستخدمه يمكنك التعديل عليها بما يتناسب مع إحتياجك يحتوي الملف على أكواد تقوم بعمل التالي بإذن الله سيتم قريبا طرح موضوع عن إرسال الـ PDF من الإكسل عن طريق الإيميل ولكن ليس بواسطة Outlook ولكن بعد الـ Mail Clients الأخرى أو حتى بدون برنامج للإيميلات ==== رابط للإخوة الزائرين http://www.up-00.com/?4Jrg ودمتم في رعاية الله PDF and EMIL.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أحاول دائماً أن آتي إليكم بما هو مفيد وجديد ، في عالم الإكسيل ، اللامتناهي ، والممتد أقدم لكم اليوم دالة معرفة .. تقوم الدالة باستخراج البريد الإلكتروني أو الايميل Email من داخل النصوص ... قد تفيد أحد ما في وقت ما .. أترككم مع الدالة ومع الملف المرفق .. تقبلوا تحياتي Extract Email Address.rar

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة ارسال بريد الكتروني من خلال الاكسل لهذا الغرض عملت دلة صغيرة لارسال االايميل بلخيارات الاساسية التي ستحتاجها و سأحاول ان اعرضها اليكم بطريقة بسيطه مع توضيح كيفية عملها و الشروط التي يجب ان تتوافر قبل استخدامها سنفترض التالي البريد المرسل هو : send@gmail.com البريد المستلم هو : emp01@gmail.com تطبيق الدالة عنوان الرسالة ياتي قبل نصها ... ولكن بسبب تنسيق الكود في المنتدى فمعظم الاكواد تظهر نص الرسالة قبل العنوان 1 - ارسال رسالة بعنوان: اختبار و نص الرسالة: هذا اختبار ارسال رسالة SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","هذا اختبار ارسال رسالة" 2 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com" 3 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com و نسخة كربونية (BCC) لـ send@gmail.com يفضل دائما ان تحتفظ بنسخة من الرسائل التي ارسلتها. SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com","send@gmail.com" 4 - ارسال رسالة وارفاق ملف واحد SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,"c:\work\pic1.jpg" 5 - ارسال رسالة وارفاق اكثر من ملف SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,Array("c:\work\pic1.jpg","c:\work\pic2.jpg") 6 - ارسال رسالة لاكثر من مرسل اليه SendEMail "send@gmail.com", Array("emp01@gmail.com","emp02@gmail.com"), "اختبار","اختبار ارسال رسالة" 7 - ارسال رسالة لاكثر من نسخة (CC) SendEMail "send@gmail.com","emp01@gmail.com","اختبار" ,"اختبار ارسال رسالة", Array("manager01@gmail.com","manager02@gmail.com") 8 - ارسال رسالة بتنسيق HTML SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار", "<B>نص الرسال</B>", , , , True شروط استخدام الدالة و افتراضات 1- الدلة تستخدم ملقم SMTP تبع ال GMail ولهذا يجب ان يكن لديك حساب في القوقل ... تم الافتراض هنا ان الحساب هو send@gmail.com (يجب ان تستخدم حساب حقيقي) 2- افترضنا كلمة السر هى password (غير كلمة السر للكلمة الحقيقية ) غير القيم كما في الصورة هذا فقط ما يجب عليك فعله لبدء استخدام الدالة الا ان هناك ملاحظة مهمة شركة قوقل في شهر 7 الماضي رفعت متطلبات الامن لديها و لهذا فان ارسال الايميل عبر ملقمها smtp.gmail.com لن يتم الا اذا خفضنا درجة الامان. ولهذا انصح ان تنشئ بريد الكتروني جديد لاتستخدمة الا في ارسال البريد عبر الاكسل لتخفيض درجة الامن لحساب قوقل اتبع الخطوات التالية: - ادخل على حسابك و اختر Account - في القسم Account Settings و اختر Access for less secure Apps - اختر Enable يمكنك تحميل الدالة من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال كود ارسال بيريد الكتروني.zip

للمتخصصين فقط مثالين الأول سنوي ، و تصلح فيه الدالة للاستنتاج مباشرة ، بالاضافة الي الماكرو الذي يقوم بعمل خاصية ال Goal Seek و الثاني باليوم ، و لا يصلح الا بالماكرو فقط و كل منهما فى ورقة عمل منفصلة IRR.zip