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

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

أحسنت أستاذ سليم بارك الله فيك

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

تفضل تم الحل والإجابة المطلوبة من قبل الأستاذ أبو نور ولاحظ التغيير فى الملف بنفسك إيصال قبض وسند صرف.xlsm

وعليكم السلام أين الملف ؟!!!!!!!!!!!!!!

لا يمكن افضل من هذا -فكان عليك من البداية ضبط الملف قبل رفعه بالمشاركة نظام البصمة2.xlsx

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

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

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

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

أخى الكريم MAAAS ,معادلة الأستاذ سليم رائعة وتعمل بكل دقة له منا كل المحبة والإحترام يمكن قد حدث معك مشكلة وخطأعند نقل المعادلة من ملف الى اخر ,فهذه معادلة مصفوفة وليس معادلة عادية اى لابد بعد كتابة المعادلة الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات فاذا كان هناك مشكلة أخرى غير هذا تحدث معك فعليك برفع صورة او الملف الذى به المشكلة لمعاينة المشكلة والعمل على حلها

وعليكم السلام 🙂 تفضل: الكود يأخذ الاسم ، ولا يهمه صيغة الملف/الصورة ، واذا عندك اكثر من ملف بنفس الاسم ، ولكن بصيغ مختلفة ، فهو يأخذ آخر ملف Private Sub Form_Current() Dim img_Path As String 'img_Path = FileName("C:\Photo\", Me.Worker) img_Path = FileName(Application.CurrentProject.Path & "\Photo\", Me.Worker) Me.img_Employee.Picture = img_Path End Sub Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر 1074.zip

جرب هذا الملف Mou3id.xlsx

كما اخبرك الأستاذ عمر بارك الله فيه وجزاه الله كل خير تفضل الملف بعد عمل المطلوب المبيعات اليوميه.xlsm

بارك الله فيك استاذ مجدى هذا رابط به شرح بالتفصيل لما تريد http://excel-egy.com/forum/t440&count=0#24704

ممتاز بارك الله فيك استاذ سليم وجعله فى ميزان حسناتك وزيادة فى اثراء الموضوع بعد اذن حضرتك طبعا استاذ سليم ,يمكن استخدام هذا الكود Sub NameSplit() Dim var As Variant Dim rw As Long With Worksheets("Salim") For rw = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If CBool(Len(.Cells(rw, "A").Value2)) Then var = Split(.Cells(rw, "A").Value2, Chr(32)) .Cells(rw, "B").Resize(1, UBound(var) + 1) = var End If Next rw End With End Sub

جرب هذا ... اجازات موظفين.accdb

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

هذا برنامج لنسخ قاعدة البيانات اكسس وليس SQL Server مشكور على المشاركة للرفع احتاج كود لعمل نسخة احتياطية لقاعدة بيانات SQL Server من لها

فورم لاظهار عمليات قسمة وضرب وطرح وجمع الفيديو الصور الملف اظهار نتيجة الطرح فى الفورم.rar

السلام عليكم ورحمة الله وبركاتة لا حرج اخي العزيز وبارك الله فيك ولك اضعاف ما دعوت لي 4 بنات دون متوسط + 1 بنت غائبة +2 متوسط + 2 جيد + 2 جيد جداً + 1 ممتاز =12 طالبة اين الطالبة 13 ستقول غائبة اقول لك تم احتسابها تحت فئة دون المستوى فيجب ان تكون الحسبة 5 بنات دون متوسط مع 1 بنت غائبة +2 متوسط + 2 جيد + 2 جيد جداً + 1 ممتاز =13 طالبة وهذا يتوافق مع عدد البنات المتقدمات فيكون المجموع الكلى للبنات حسب الفئات المستخرجة = عدد البنات المتقدمين و للامتحان وهو الصحيح حسب اعتقادي بمعنى ان 7 طالبات صحيح توزيعهم كما فعلت انت ولكن الخلاف فى فئة دون المستوي ارسم جدولا في صفحة اكسل واكتب فيه ما ذكرته انت ستجد ان عدد البنات الموزعات على الفئات لا يتطابق مع عدد البنات المتقدمات ستنقص واحدة راجع الملف جيدا ويسعدني من كل قلبى تقديم العون حسب قدرتي ولا تخجل من ابداء الملاحظات مهما كثرت تحياتي لك ولاحبابنا في المنصورة جعلها دائما عزيزة ومنصورة ولكل اهل مصر الملاحظة الثانية تجدها داخل الملف احصائيةالفصل الدراسى الأول 2019.xls

وعليكم السلام 🙂 تفضل ، هذا التعديل على الوجدة النمطية Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String FileName = iPath_In & "No.jpg" fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر

شكرا جزيلا على المعلومة 🙂

فورم للعمليات الحسابية قسمة وضرب وطرح وجمع الفيديو الصور الملف قسمة وضرب وطرح وجمع عمليات حسابية.rar

شكراً أستاذى @jjafferr جزاك الله خيراً سوف أكتفى بالوحدة النمطيه حل مشكلة عدم ظهور صورة jpeg

في مشكلة في صيغة jpeg ، يمكن لأنها 4 حروف ، ما ادري !! . . . جعفر 1074.1.Worker.mdb.zip

هل هذا يعمل معك سيدى ستخبرنى لاحقا واعرف بظهور رسالة تفيد انك لا تملك صلاحيات تشغيل هذا الملف ولن يفتح اصلا users lvl group By Access.zip والاستاذ @عبد اللطيف سلوم لو تكرمت فضلا وكرما اخبرنى انت ايضا بعد تجربتك ومحاولة فتح الملف بنفس الرسالة هذه المرة انت كذلك

للعمل بشكل جيد يجب 1-ازالة الخلايا المدمجة (عدو الاكواد) 2-ترتيب الييانات كما في الملف المرفق (صفحة Source) الكود اللازم Option Explicit Sub give_data_by_Order() Rem =====>> Created By Salim Hasbaya On 30/6/2019 Dim i#, r#, Fix_ro, t# Dim search_rg As Range Dim rg_to_copy As Range Dim m#: m = 2 Dim col As New Collection Dim last_row# last_row = Source_sh.Cells(Rows.Count, 1).End(3).Row For i = 1 To last_row On Error Resume Next If Source_sh.Range("e" & i) <> "" Then col.Add Source_sh.Range("e" & i).Value, Source_sh.Range("e" & i).Value End If Next On Error GoTo 0 Target_sh.Range("A:E").ClearContents For i = 1 To col.Count Set search_rg = Source_sh.Range("E:E").Find(col(i), after:=Source_sh.Cells(Rows.Count, "E")) r = search_rg.Row: Fix_ro = r If Not search_rg Is Nothing Then '=================== Do Set rg_to_copy = _ Source_sh.Range("a" & r + 1, Source_sh.Range("a" & r + 2).End(4).Resize(, 4)) Target_sh.Cells(m, 5) = search_rg.Value & " (" & t + 1 & ")" t = t + 1 rg_to_copy.Copy _ Target_sh.Cells(m, 1) m = m + rg_to_copy.Rows.Count + 1 Set search_rg = Source_sh.Range("E:E").FindNext(search_rg) r = search_rg.Row If r = Fix_ro Then Exit Do Loop '======================= End If t = 0 Next End Sub الملف مرفق Copy_Data_Please.xlsm

السلام عليكم اغلب الاختلاف المذكور اختلاف في الفهم في الصفحة 1 المقيد في الصف الاول 25 والمقيد في الصف الثاني 25 مجموعهما 50 في الصفحة 3 حسب الديباجة العليا مكتوب فيها مرسل لسيادتكم تحليل نتيجة امتحان الصف الأول والثانى الإعدادى - الفصل الدراسى الأول اي للصفين ومجموعهما 50 فلا يوجد اختلاف وهذا طبعا حسب فهمي لان حسب الديباجة فهمت ان الجدول للصفين الاول والثاني اما اذا كنت تقصد ان الجدول الاول خاص بالصف الاول فقط والجدول الذي تحته المشار اليه بالسهم الازرق خاص بالصف الثاني فاخبرني اخي العزيز حسب فهمي والذي طبقته على الجدول عندما يقال احسب عدد الطلاب الذين نسبتهم اقل من50% فيتم جمع الطلبة الذين تحصلوا على 49.999 الى اقل درجة وهي الصفرزعددهم في الجدول 5 للبنين عندما يقال احسب عدد الطلاب الذين نسبتهم اكثر من50% فيتم جمع الطلبة الذين تحصلو على 50% الى 100% وععدهم في الجدول 7 للبنين فيكون مجموع هذين الصنفين من الطلاب للبنين يمثل عدد حضور الطلبة وهو12 كم بالجدول وليس معها والأكثر من 65% والأكثر من 90% اما البنات فمجموعهما 13 فيكون المجموع 12+13 =25 طالب والحاضرون 24 والطالب الزائد غياب ويعتبر دون المستوي حسب جدول المستويات وهذا اتراه واضحا في الورقة 3 حيث يكون عدد الطلبة أكثر من 50 % مضافا اليه الطلبة دون المستوى ( اقل من50% ) مجموعهما يمثل العدد الكلي للطلبة ولا تجمع مغها اكثر من 65 واكثر من 90 لان اكثر من 50 تشملهما ونفس الشئ في الورقة4 الا اذا ا المقصود من اكثر من50% بمعني ان يجمع الطلبة اللذين تحصلوا على 50% واقل من 65% فهذا امر اخر ويمكن تعديل المعادلات ببساطة على كل حال سارفق لك الملفات الثلات راجع احداها وفي وجود عدم توافق لون الخانة واكتب القيمة الصحيحة اما الخانات الفارغة النسبة من الحاضر فلم افهم المعني اكتب انت النسبة الصحيحة في الخانات الفارغة وساكتب معادلتها باقي الصفحات كثيرة جعلتها ورقة واحدة لكل مادة اختر المستوي ثم اضغط على زر استدعاء لدقة الاحصائية يجب كتابة ارقام الجلوس وجنس الطالب وحضور الطالب اكتب لك هذه الكلمات من جهازي المحمول والذي قاربت بطاريته ان تنفذ منتظرا قدوم الكهرباء والتي لم تشرفنا منذ الساعة الثانية ظهرا والساعة الان الواحدة ليلا اي حوالي 11 ساعة بدون كهرباء ختى ارسل لك الملفات تحياتي احصائيةالفصل الدراسى الأول 2019.xls احصائيةالفصل الدراسى الثاني2019.xls احصائيةالفصل الدراسى الثاني2019الصف الثالت اعدادي.xls

ههههههه أهلا أخي ابو سليمان انتحار الملف يعني حذفه في الجهاز نهائيا أهلا أخي ابن الجنوب عملت لك هذا الكود ولكنه لن يحذف الملف (انتحار) بل سيتم أقفال البرنامج في الوقت الذي تحدده كلمة مرور الورقة هي 1223334 تقبل تحياتي المصنف8.xlsm

السلام عليكم 🙂 انا صادفت اكثر من 3 - 4 برامج ، المبرمج قافلها ، واصحاب العمل ما عارفين شو يعملون ، بعد ان تم عمل فورمات للكمبيوتر ، والمبرمج طالب المبلغ الفلاني لإعادة تنصيب البرنامج !! فرجاء ، رجاء ، اللي يريد ان يقفل برنامجه ، رجاء ان يضع برنامج او اي كود في برنامجه الحالي ، بحيث يقدر صاحب البرنامج ان يشتغل عليه من جديد ، وفي لابتوبات مافيها إلا البارتيشن C فقط . وهنا سؤال ، هل في اتفاق بينك المبرمج وبين صاحب البرنامج ، ان البرنامج لك ، او له !! فإذا مافي ، فمعناه ان البرنامج له ، وهو حر التصرف فيه !! جعفر

لا مشكلة في الحاق البيانات للجداول عن طريق جمل اس كيو ال لكن المشكلة هنا في ملفك هي ان بعض القيم والنتائج تعتمد على استعلام اعمار2 لاحظ الصورة في حال حذفت الاستعلام سيتم ارجاع القيمة الى صفر لعدم توفر المصدر اذا استطعت إيجاد القيم بعيدا عن اعمار2 فلا مشكلة وسيتم الحاق البيانات بجملة اس كيو ال أتمنى ان تكون قد فهمت مقصدي في المثال المرفق الالحاق يعمل بشكل سليم اذا وجد الاستعلام وفي حال حذفته سيرجع القيم الى صفر InsertTest.accdb

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

لتعلم طريقة كسر الحماية لطفا شاهد هذا الفيديو وطبق

تفضل program.xls

أخى الكريم تم عمل المطلوب ولكن ملفك مش عارف ليه ثقيل جدا وبه مشاكل كثيرة عليك بضبط الملف وتم عمل اجمالى صافى ساعات العمل للموظف في الخلية E1 نظام البصمة.xlsm

وعليكم السلام-تفضل تظليل تلقائى.xlsx

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

السلام عليكم جزء من المطلوب تم عمله في الملف المرفق (حساب عمود المتوسط لكل صفحة) أما الجزء الآخر يحتاج إلى الشرح أكثر (معدل عمود متوسط الجزء "20 صفحة")... بن علية حاجي تحصيل3.xlsx

وعليكم السلام يمكنك استخدام هذه المعادلة =IF(OR(A2="",B2=""),"",A2&"-"&B2) SEER.xlsx

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

تسلم ايديك بس أنا مش عارف ليك حضرتك كنت بادىء نطاق المعادلة من هنا ليه =INDEX(Copy!$U$2:$AZ$100,ROWS(C$1:C1),MATCH(C$2,Copy!$A$1:$AF$1,0)) قمت بتغيره إلى بداية النطاق فأصبح كالتالى لكى تقوم المعادلة بأداء المهمة صح =INDEX(Copy!$A$2:$AZ$100,ROWS(C$1:C1),MATCH(C$2,Copy!$A$1:$AF$1,0)) وشكرا جزيلا لك أستاذى الغالى وبارك الله فيك وفى أولادك

شكرا لك تم رفع الملف فى المشاركة الأولى

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة وأخص بالشكر للزميل الكريم أستاذنا العزيز بن علية حاجى فأرجو منه متابعة هذا التصحيح على نفس المعادلة بزيادة شرط أخر وهو: الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود D من صفحة Sources ,والموجود فى العمود O =البنود فى العمود Eمن ورقة Sources يكون الناتج فى هذه الحالة= H1*5+i1*3 from 01.12 till 15.12.2017.rar

بارك الله فيك وحفظك ورحم أمواتك طبعا ده مش غريب عليك أستاذنا الكبير وفعلا هو المطلوب دائما وأبدا فى تقدم

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود B من صفحة Sources ,والموجود فى العمود O =البنود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة= صفر أما عندما يكون البيانات فى العمود E لا تساوى الموجود فى العمود B من ورقة Sources والبيانات فى العمود O تساوى الموجود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة H 1*5+i1*3 from 01.12 till 15.12.2017.rar

تسلم ايديك وبارك الله فيك أخونا العزيز بن علية -نعم هو ده المطلوب فعلا يا رب دائما زخرا لنا وجعلك الله دائما لمساعدتنا

تفضل أخى جرب هذا جدولة الموظفين.rar

تفضل أخى هذا الملف عدم التكرار.rar

السلام عليكم لقد واجهت نفس المشكلة حيث كان الملف القاعدة معرض للحذف من أي شخص كان طالما أن المجلد يحمل صفة المشاركة. ولكني وجدت حل ليس جدري ولكن يقلل من أحتمال حذف الملف وحصر الملف على عدد معين من المستخدمين المخولين قصد من تم وضع الواجهة على اجهزتهم. الطريقة هي أولاً : بعمل مستخدم جديد على جهاز الخادم ( user ) وعمل كلمة سر ومن تم الدخول على خصائص المشاركة للمجلد وحدف كل مجموعات المصرح لها بستخدام هذا المجلد وأعطأ هذه الصلاحية للمستخدم الجديد الذي تم عمله. ثانياً : بتحديد عدد الاجهزة المسموح لها لوصول للمجلد بعدد من لديهم الواجهات للتطبيق ثالثاً : الذهاب إلى الاجهزة التي بها الواجهات وتنفيذ امر ( إدارة الجداول المترابطة ) وتحديد المسار الملف على جهاز الخادم وفي هذه المرة لن تستطيعي الوصول للملف وستظهر نافذة تسألك كتابة اسم المستخدم والباسورت وهنا ضعي بيانات المستخدم الذي تم عمله على الخادم مع الباسورت وضعي علامة صح على مربع حفظ اسم المستخدم والباسورت حتى لا يطلبها في اليوم التالي أو بعد تشغيل الجهاز في المرة القادمة. رابعاً : تفعيل خاصية اخفاء المجلد على الخادم والتأكد من وضع خاصية عدم اظهار الملفات المخفية على بقية الاجهزة خامساً : وهو الاهم قومي بشراء يو اس بي فلاش درايف بسعة مناسبة وقومي بعمل حفظ للقاعدة فيه يفضل يومي للحفاظ على اي طارئ من أي نوع. علماً بأنه من اساسيات النسخ الاحتياطي للملفات الاحتفاظ بنسخة خارجية ( Off shore ) أي ان لا تكون في نفس المكتب أو داخل نفس الجهاز تحسباً لأي حريق أو شي أخر لا قدر الله. مع تحياتي