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

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

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

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

تفضل تم الحل والإجابة المطلوبة من قبل الأستاذ أبو نور ولاحظ التغيير فى الملف بنفسك إيصال قبض وسند صرف.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

لو سمحت اخي الكريم ممكن مساعدة لو سمحت بحاجة الى معرفة الناجح والراسب في كل صف وشعبة وكيفية انتقال الناجح الى صف اعلى للرفع برنامج العلامات المدرسية (3).rar

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته اولا وقبل اى شئ لم يتم ترتيب اسماء اساتذتى الكرام الذين تم كتابة اسمائهم لسبب محدد فالترتيب لا يعنى اى شئ اطلاقا فجميعهم النجوم اللامعة بمن نقتضى منهم فى هذا الصرح نهتدى ان شاء الله كما خو الحال مع باقى الاساتذة الذين لم اكتب اسمهم فلا يعنى ذلك اى شئ كلهم فى مرتبة واحدة وكلهم معلمينا الافاضل لا غنى لنا عنهم عذا فقط مجرد مثال اسرد اليكم الشـرح سريعا لفكرتى قبل البدء قد يتفق معى من يتفق ويختلف من يختلف لذلك انتظر ارائكم ان شاء الله فيشيد بهذه الطريقه من يشيد و يعترض من يعترض فنخرج ان شاء الله بأطيب النتائج هنا ان شاء الله اتعامل مع جدول باسم tblMainData والذى يختوى على الحقول A,B,C ونموذج باسم يضم الحقول على الترتيب txtA , txtB, txtC هذا الكود حتى اهئ النموذج للتعامل مع اختصار المفاتيح من الكيبورد Private Sub Form_Load() Me.KeyPreview = True End Sub وهذا الجزء حتى اسند القيم التى احتاج لنسخها الى متغيرات وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub SpecialCopy() 'الاعلان عن المتغيرات Dim VarFildeA As Variant Dim VarFildeB As Variant Dim VarFildeC As Variant 'اسناد قيم مربعات النص الى المتغيرات VarFildeA = txtA VarFildeB = txtB VarFildeC = txtC DoCmd.GoToRecord , , acNewRec 'سجل جديد 'نسخ قيم المتغيرات الى مربعات النص في السجل الجديد txtA = VarFildeA txtB = VarFildeB txtC = VarFildeC 'تفريغ المتغيرات VarFildeA = Empty VarFildeB = Empty VarFildeC = Empty End Sub وهذا الجزء لاسناذ القيم من المتغيرات الى مربعات النص للسجل الجديد وكتبته هكذا ليسهل استدعاءه وقت الحاجة Private Sub DoCopy() DoCmd.RefreshRecord If DCount("[ID]", "tblMainData") = 0 Then DoCmd.RefreshRecord Exit Sub ElseIf DCount("[ID]", "tblMainData") >= 1 Then If NewRecord Then DoCmd.GoToRecord , , acLast Call SpecialCopy Else Call SpecialCopy End If End If End Sub طبعا هنا اتأكد اولا ان كان هذا السجل الاول فى الجدول ام لا قبل ان تتم عملية اسناد القيم التى اريدها واهيرا استدعاء الكود من هلال زر امر لتنفيذ عملية نسه السجل الاأهير وقت الحاجة Private Sub BtnDuplicate_Click() Call DoCopy End Sub وهذا الجزء كما يقولون عنه الـ Hot Key استدعاء الكود من خلال زر من الكيبورد عن الضغط عليه Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 117 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك Call DoCopy KeyCode = 0 Exit Sub End If End Sub تنويه ببعض الحيل ان اردنا نقوم بنسخ سجل محدد ان اردنا سجل بعينه تبعا لشرط او شروط محدده حسب ما تقتضى الحاجة واخيـــرا المرفق Duplicate Last Record.mdb

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

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

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

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

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

لا ا‘لم اذا كان هذا المطلوب بالضبط Text_Me.xlsx

للعمل بشكل جيد يجب 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

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

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

تفضل 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

حقيقه لا بد ان تقال ان جهودكم جباره يعطيكم الف عافيه لقد عملت المثال بشكل جيد وهو يعمل بالفعل يقال لا تطعمني السمك بل علمني كيف اصطاد والقصد اني قمت بالعمل بشكل نسخ ولصق ولكني اجهل الاليه المتبعه بشكلها العلمي او المنطقي لذلك طلبت الشرح للعمل كي اقف على اسس العمل نفسه ارفق اليكم مثال هو رائع يحتوي على كتابه متحركه اسفل نظام اكسس فارجوا ان تشرح لي طريقه تحريك الكتابه اسفل النظام 4ط§ظ„ط·ظ„ط§ط¨.rar

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