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

أهلا بكم.. جملة الاستعلام السابقة تقوم بعمل استعلام بأسماء الطلاب من ملف أكسل STUDENTS.XLXS ؛ ومن ورقة البيانات STUDENT هذا الملف موجود في الدليل الاقتراضي لقاعدة البيانات.. ولكي تصل إلى الدليل الافتراضي لهذه القاعدة، ولجميع قواعد البيانات الأخرى؛ غير الدليل الافتراضي لمجلد قاعدة البيانات إلى النقطة الفارزة (.) كما في الصورة.. إذا غيرت الدليل الافتراضي إلى ماهو موضح في الصورة، لن تحتاج إلى استخدم (CurrentProject.Path) في قاعدة البيانات الإ في حالات خاصة. بمعنى أنك تشير إلى اسم الملف مباشرة دون كتابة المسار! لكي نجعل جملة الاستعلام السابقة تقوم بإنشاء جدول بأسماء الطلاب نستبدلها بالجملة التالية.. SELECT DISTINCT F25 AS STID, F24 AS STNAME INTO TBL_STUDENTS FROM [SCHEDULE$B17:END] AS STUDENTS IN 'SCHEDULES.XLSX' [EXCEL 12.0;HDR=NO] WHERE (NOT ISNULL(F25)); بما أننا سنقوم في الغالب بتنفيذ جمل عن طريق الشفرة؛ فسوف يكون المرفق التالي مساعدك الأول في إنشاء جمل الاستعلام وتسميتها وحفظها.. وتنفيذها! لا يلزم كتابتة الجملة في سطر واحد.. لتنفيذ الاستعلام إضغط زر الأمر (RUN QUERY).. Noor Data Processing.zip

وتكملة للموضوع ، بعض الاوقات نكون محتاجين ان ننادي الحدث من حدث آخر ، سواء من النموذج او خارجه ، فعادة نكتب الحدث بهذه الطريقة (لا داعي له لما ننادي الحدث من نفس النموذج ، ولكن نحتاج له اذا ناديناه من نموذج آخر) : 1. Public Sub Form_Load() 2. Public Sub Form_BeforeUpdate(Cancel As Integer) فإذا اردنا ان نناديهم ، يمكننا ان نناديهم هكذا (لاحظ للأمر رقم 2 ، اننا استعملنا صفر (0) ، لأننا يجب ان نضع متغير لهذا الحدث ، وإلا فأننا نحصل على رسالة خطأ 🙂 ) : 1. Form_Load او Call Form_Load 2. Form_BeforeUpdate (0) او Call Form_BeforeUpdate(0) جعفر

اتفضل KeyNumber (V. 1).mdb

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

مافي داعي لهذه الجزئية ،وتابع معنا التعليق التالي 🙂 لتوضيح هذه المعلومة ، فينبغي عليك النظر الى الحدث ، سواء للنموذج او التقرير : . المجموعة رقم 2 ، الاحداث يوجد بها كلمة Cancel ، لذا يمكننا ان نستخدم الامر Cancel = True ، والبرنامج يقبله وينفذه ، بينما في المجموعة رقم 1 ، فالاحداث لا يوجد بها كلمة Cancel ، لهذا السبب الامر Cancel = True لن يعمل 🙂 وهذا يسري على الوحدات النمطية كذلك 🙂 جعفر

معالجة بيانات جدول الحصص في المشاركة السابقة لم أفعل شيء لمعالجة البيانات سوى أني قمت بإلة التنسيق المطبق على ورقة البيانات.. أما عن استخلاص البيانات من ورقة البيانات؛ فهذا يخضع للمتطلبات التي يحددها المبرمج.. وكمثال على ورقة بيانات: __ الطلب الأول استخلاص أسماء الطلاب وأرقامهم الأكاديمية.. في هذه الحالة لدينا خيارين: _ الأول استخلاص البيانات وعمل جدول جديد بتلك البيانات. _ الثاني استخلاص البيانات وإرسالها إلى جدول موجود مسبقا. __ الإشكالية التي تواجهنا بهذا الخصوص هي الاستطر الفارغة تحت كل اسم.. من واقع ورقة البيانات نعلم أن الأسطر الفارغة هي بيانات تكرارية لنفس الطالب أعلى الفرغات.. لحل هذا الاشكال ننشي استعلام مع حذف الفراغات، أما إذا كان هنالك بيانات متكررة فإننا نستخدم مع سبق عبارة DISTINCT __ التطبيق يمكن عن طريق معالج الاستعلامات، وأيضا عن طريق الشفرة وفي كلا الحالتين نستخدم جملة الاستعلام التالية SELECT DISTINCT F25 AS STID,F24 AS STNAME FROM [SCHEDULE$B16:END]AS STUDENTS IN 'schedules.xlsx'[EXCEL 12.0;] WHERE (NOT ISNULL(F25)) سوف أقوم بالشرح في المشاركة التالية Noor Data Processing.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته اولا واخرا وقبل كل شئ سبحانك لا علم لنا الا ما علمتنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك الحمد لله الذى هدانا وما كنا لنهتدى لولا أن هدانا الله عزوجل أحبابى واخوانى الكرام أضع بين اياديكم تلك الهدية البسيطة المتواضعة راجيا من الله عزوجل تنال اعجابكم ورضاكم MultiSelectInContinuousForms (V2).mdb

نم التعديل على الكود لتظهر أسماء الشيتات حيث الاسم موجود Ihab_ALL_new.xlsm

استاذي الفاضل @husamwahab شكرا على المتابعة وجاري عمل المطلوب كل الشكر والتقدير استاذنا ....

طيب استنى انا راح اجهز لك مرفق بالاكواد اللازمة فقط

وعليكم السلام-تم تغيير المعادلة بمعادلة أخرى أخفف منها وليست مصفوفة -تفضل =IFERROR(INDEX($A$2:$A$14,AGGREGATE(15,6,ROW($A$1:$A$14)/(MATCH($A$2:$A$14&$B$2:$B$14,$A$2:$A$14&$B$2:$B$14,0)=ROW($A$1:$A$14)),ROWS($2:2))),"") ترتيب التاريخ1.xlsx

جرب هذا الملف 1- يمكن ان تختار اسم واحد أو كل الاسماء 2- الجمع يتم على الأعمدة E و F و I و J من كل صفحة (تم عمل حساب تكرار الاسم في الصفحة الواحدة) 3- يالنسبة للاسم الواحد Sub Data_Sum_1() Dim Res As Worksheet Dim Sh As Worksheet Dim ro1%, ro2%, K% Dim F_rg As Range Dim Ar Set Res = Sheets("Result") Ar = Array(0, 0, 0, 0) If Res.Range("A1").CurrentRegion.Rows.Count > 2 Then Res.Range("A1").CurrentRegion.Offset(2). _ Resize(Res.Range("A1").CurrentRegion.Rows.Count - 2).Clear End If If Res.Cells(2, "H") = vbNullString Then Exit Sub For Each Sh In Sheets If Sh.Name <> "Result" Then Sh.Range("A3:J1000"). _ Interior.ColorIndex = xlNone Set F_rg = Sh.Range("B:B"). _ Find(Res.Cells(2, "H"), lookat:=1) If Not F_rg Is Nothing Then ro1 = F_rg.Row: ro2 = ro1 Do Sh.Cells(ro2, 1).Resize(, 10). _ Interior.ColorIndex = 35 Ar(0) = Ar(0) + Val(Sh.Cells(ro2, 5)) Ar(1) = Ar(1) + Val(Sh.Cells(ro2, 6)) Ar(2) = Ar(2) + Val(Sh.Cells(ro2, 9)) Ar(3) = Ar(3) + Val(Sh.Cells(ro2, 10)) Set F_rg = Sh.Range("B:B").FindNext(F_rg) ro2 = F_rg.Row If ro1 = ro2 Then Exit Do Loop End If End If Next Sh With Res.Cells(3, 1) .Value = 1 .Offset(, 1) = Res.Cells(2, "H") .Offset(, 2).Resize(, UBound(Ar) + 1) = Ar With .Resize(, UBound(Ar) + 3) .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .InsertIndent 1 .Interior.ColorIndex = 35 End With End With End Sub بالنسبة لكل الاسماء Sub Data_Sum_ALL() Dim Res As Worksheet Dim Sh As Worksheet Dim ro1%, ro2%, K% Dim F_rg As Range Dim Ar Dim OBJ As Object, ky Dim m%, t% Set OBJ = CreateObject("Scripting.Dictionary") Set Res = Sheets("Result") If Res.Range("A1").CurrentRegion.Rows.Count > 2 Then Res.Range("A1").CurrentRegion.Offset(2). _ Resize(Res.Range("A1").CurrentRegion.Rows.Count - 2).Clear End If For Each Sh In Sheets If Sh.Name <> "Result" Then m = 3 Do Until Sh.Cells(m, 2) = vbNullString OBJ(Sh.Cells(m, 2).Value) = vbNullString m = m + 1 Loop End If Next Sh Ar = Array(0, 0, 0, 0) If OBJ.Count Then t = 3 For Each ky In OBJ.keys For Each Sh In Sheets If Sh.Name <> "Result" Then Set F_rg = Sh.Range("B:B").Find(ky, lookat:=1) If Not F_rg Is Nothing Then '+++++++++++++++++++++++ ro1 = F_rg.Row: ro2 = ro1 Do Ar(0) = Ar(0) + Val(Sh.Cells(ro2, 5)) Ar(1) = Ar(1) + Val(Sh.Cells(ro2, 6)) Ar(2) = Ar(2) + Val(Sh.Cells(ro2, 9)) Ar(3) = Ar(3) + Val(Sh.Cells(ro2, 10)) Set F_rg = Sh.Range("B:B").FindNext(F_rg) ro2 = F_rg.Row If ro1 = ro2 Then Exit Do Loop '++++++++++++++++++++++++++ End If 'F_rg End If 'Sh Next Sh Res.Cells(t, 2) = ky Res.Cells(t, 3).Resize(, UBound(Ar) + 1) = Ar Ar = Array(0, 0, 0, 0) t = t + 1 Next ky With Res.Range("A3").Resize(t - 3, 6) .Columns(1).Value = _ Evaluate("Row(1:" & t - 3 & ")") .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .InsertIndent 1 .Interior.ColorIndex = 35 End With End If 'dic.count End Sub الملف مرفق Ihab_ALL.xlsm

وهاي مشاركتي 🙂 . جعفر Exams.zip

السلام عليكم المعادلة المكتوبة في الملف صحيحة (يمكن اختصارها) ولا خلل فيها... بالنسبة للحساب بالآلة الحاسبة لا يمكن أن نعرف كيف قمت بذلك (وأعتقد أن الخظأ في طريقة الحساب)... أما النتيجة فلا يمكن أن تكون سالبة مهما كانت القيم التي اخترتها لأن كلا من الجذر التربيعي (بشرط أن تكون قيمة S أكبر تماما من الصفر) وقيمة العدد النيبيري (e) موجبان دوما.... راجع حساباتك بالآلة الحاسبة مع مراعاة أولية العمليات...

ماشي 😏

السلام عليكم تفضلوا اساتذتي هذا المثال _من سنين مضت _ كان عمله لي استاذنا القدير عبدالله باقشير اتمنى تجدوا فيه الفائدة استيراد وتصدير اكسل اكسس.rar

عندي يعمل 100/100 ربما اسماء الشيتات هي سبب ذلك حاول نسخ اسم كل شيت والصقه مكان الاخر في الشيت

انا لم انتبه الى هذه الجزئية من قبل فعلا استااذى القدير ومعلمى الجليل و والدى الحبيب استاذ @jjafferr دائما نقف عاجزين عن تقديم الشكر اليكم كما ينبغى شكر الله لكم واحسن اليكم ورزقكم الخيـر كله

جرب الملف ده ملف.xlsm

لا تحكم على شيء دون ان تتأكد لا حظ عبد الكريم سلام (عدد الساعات لا تتم حسابها) لانك لم تضعها في الجدول في الصفحة Result في الصفحة الأولى : 1- من C7 الى J7 في كل خلية 1 2- من C10 الى J10 في كل خلية 1 في الصفحة الثّانية : 1- من C6 الى J6 في كل خلية 1 2- من C10 الى J10 في كل خلية 1 3- من C13 الى J13 في كل خلية 1 المحموع العام في كل حلية 5 وهذا ما تجده في الصفحة Result Ihab_summation_1.xlsm

ليش ما تنقل عملك كاملا الى الاكسس ؟ اعطنا البيانات ، واخبرنا شو اللي تريد عمله ، ليس بالكود ، وانما بسرد المطلوب ، وياريت من واقع البيانات اللي بترفقها 🙂 جعفر

السلام عليكم ورحمة الله وبركاته بعد اذن اخوي العزيز .. سليم .. تم وضع معادلة .. Ihab_summation.xlsm

استاذ عبدالله الله يبارك فيك ويحفظك يا طيب جدا ممنون منك نعم هذا هو المطلوب استفدت كثيرا من الفيديو التعليمي شكرا جزيلا لك مرة ثانية

عليكم السلام ورحمة الله بركاته ليس لدي اكسل 2003 على جهازي فيديو توضيحي https://www.youtube.com/watch?v=nfNBYQjbs2c كما يمكنك من ادراج ثم صورة وربطها بماكرو كما يمكنك من خانة ادراج تم اشكال واختيار الشكل المناسب ربطه بماكرو Book1.xls الاكواد Sub Macro1() Sheets("الامتيازات").Select End Sub Sub Macro2() Sheets("الراتب").Select End Sub Sub Macro3() Sheets("الرئيسية").Select End Sub

وهذا تطبيق Test TimeToLettre.mdb هات مرفق لنرى لانى مش فاهم فانا قليل الفهم

ان شاء الله هو المطلوب

كنت اريد الدرس تطبيقي جزاك الله خيرا

اتفضل نفس الأكواد التى تفضل بها الاستاذ الكريم @الجموعي جزاه الله خيـــر مع بعض التعديلات التى تماسب طلبك تماما Test TimeToLettre.mdb

ممكن تجرب المرفق ومبدئيا تم حساب كمية الطلب في الشيت بناء على إن المبيعات تكون أعلى من 50% وإن التالف يكون أقل من أو يساوي 8% غير كده مش هيطلب حاجة ( وده حسب مافهمت ) . وياريت حضرتك تحدد عمود يحسب نسبة المبيعات ونسبة التالف . لكن علشان تحدد كمية الطلب النهائية لازم تحسب شوية حجات أساسية ( مجرد إقتراح ) - فترة دوران المخزون ( ده علشان لو المبيعات تمت في وقت قليل ده معناه إن الصنف سريع الدوران و أقدر أجيب كمية أكبر لكن لو المبيعات تمت في فترة كبيرة ده معناه معدل دروان بطئ للصنف وبالتالي مش هطلب كمية كبيرة علشان المخزون عندي ما يطولش . مع الأخذ في الإعتبار وجود عرض على الصنف من عدمه وفترة العرض . - أقل كمية طلب ( وده علشان لو الصنف كان بطئ الدوران ساعتها يكون عندي أقل كمية ممكن أطلبها والمورد يقدر يوردهالي ) . - حد الطلب ( وده تمام حضرتك عامل حسابه لكن خلي بالك حد الطلب متغير مش سابت وماينفعش يكون بديل عن أقل كمية طلب إنما لو إنت عايز تثبته وفقاً لنظام شغلك مافيش مانع . - أكبر كمية للطلب ( وده علشان يكون عندي تحكم في أكبر كمية ممكن أطلبها والطلب مايتعداش الكمية دي ) .... الخ .PO.xlsx

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

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

هذه المعادلة في A2 مع (Ctrl+Shift+Enter) =IFERROR(INDEX($H$5:$Q$5,SMALL(IF(INDEX($H$6:$Q$11,MATCH(A$1,$G$6:$G$11,0),)<>0,COLUMN($H$5:$Q$5)-COLUMN($H$5)+1),ROWS(A$2:A2))),"") الملف مرفق Moustfa.xlsx

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

ايه ده هو انت ما اخدت بالك ان علامة الصح اصلا اللى بتظهر وتختفى فى مربع النص ياللى تحت زر الامر المخفى بتعتمد على التنسيق الشرطى ؟! لا سحر ولا شعوذه ... هاد تنسيق شرطى بس

تفضل أستاذ في المثال دالتان معرفتان الدالة الأولى لتفقيط الوقت الدالة الثانية لتفقيط مجموع الوقت دالة تفقيط الوقت.xls

هولولولولولو وي (انا ازغرد ) الحمدلله 🙂 بس طلب الآن ، بما انك عرفت المشكلة ، فرجاء تجرب بقية البرامج ، لأننا جميعا بذلنا الوقت والجهد ، ونستحق ان نعرف اذا برامجنا اشتغلت (اعتبرها ضريبة وعليك دفعها 🙂 ) جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !! وشكرا اخوي kanory على إحسانك وتفضلك 🙂 جعفر

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