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

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

تفضل المرفق وهو بطريقة دوال المجال ! تم انشاء استعلامين query4 and query5 وشف المعادلات في التقرير ترا اغلبها نسخ ولصق وتغيير المعيار فقط والله شكلك لازم تستخدم البخور ووو ! فلما يوجد بلاغ وليس له حالات هذه طلعت اسهل من بين الاخريات ! شوف المرفق ولك اجمل التحايا تحياتي Database11.rar

السلام عليكم مرحبا بكم فى هذا الفيديو الجديد من فيديوهات شرح أكسيس يتناول هذا الفيديو شرح استعلام الإلحاق لجدول آخر حل مشكلة رسالة الخطأ فى استعلام الإلحاق تعرض بسيط للاستعلام الفرعى نفعكم الله به elhaqy1 -t.rar

مرحبا أخي الكلمة تعني نطاق سمي بهذه التسمية و هو : A2 : I500 و لمعرفة هذا النطاق هناك طريقتان - 1 - من مربع الاسم الموجود في اليسار ( في الافيس العربي) مقابل شريط الصيغة تجد سهم صغير اضغط عليه تجد الكلمة ، اضغط على الكلمة يحدد لك النطاق - 2 - من شريط القوائم نذهب الى : صيغ ------> ادارة الاسماء ، تجد الكلمة اضغط عليها يظهر لك النطاق الخاص بهذه الكلمة ملاحظة لتعيين نطاق معين نحدده مثلا ( A1:D20 ) ثم في مربع الاسم نكتب أي اسم و نضعط على أنتر

جزاكم الله خيرا

مرحبا الملف يحتوي على ما طلبت تسجيل بيانات15.rar

مثل ما اختي أم خلود قالت ، يُفضل ان ترفق برنامجك ، وتخبرنا متى (عند ضغط اي زر) يحصل هذا. ما كنت اعنيه: المرفق في الرابط التالي يخفي خلفية اكسس: http://www.officena.net/ib/topic/66410-ارغب-في-اخفاء-اطار-اكسس-عنوان-معدل/?do=findComment&comment=431836 اسم المستخدم وكلمة السر 123 فاذا كان برنامجك فيه الكود ليعمل هذا ، فيجب ازالت الكود او تضبيطه جعفر

تفضل مطلوبك هنا

ما شاء الله جزاك الله خيرا أخي عبد الفتاح شرح ممتاز

اخى الكريمkhalidalotaibi الرجاء الأطلاع على تعليمات المنتدى بتغيير اسم الظهور الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض abo_abary_مثال الانتدابات.rar

السلام عليكم جزاك الله خير جزاء المحسنين

السلام عليكم . أخي جرب هذا المثال استعلام الحاق.rar

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم جلال محمد طالت غيبتك عن المنتدى ولا نراك إلا نادراً .. هل تحب الصيد أم تفضل السمك جاهز ؟ العمل على ملفك قد يستغرق بعض الوقت ففكرت أن أهديك طريقة الحل وليس الحل بالكامل وإن شاء الله ستتمكن من تكملة المشوار بنفسك .. سنأخذ مثال واحد فقط ونطبق عليه الكود : في ورقة الإحصاء في العمود الأول المطلوب إحصاء الذكور فالمعادلة التي يمكن استخدامها ببساطة باستخدام الدالة SUMPRODUCT ستكون بالشكل التالي =SUMPRODUCT(--(Total!$CJ$13:$CJ$146="ذكر")) سنقوم بوضع الكود التالي في موديول وسأشرح لك الأجزاء المهمة لتستطيع تنفيذ المهمة (شفت الجناس التام بين كلمة المهمة الأولى وكلمة المهمة الثانية ..مش موضوعنا) Sub Ehsaa_Using_VBA() Dim Ws As Worksheet Dim Sh As Worksheet Dim LR As Long Set Ws = Sheets("Total") Set Sh = Sheets("احصاء بالكود") 'متغير لمعرفة آخر صف فيه بيانات في ورقة العمل الأساسية LR = Ws.Range("C" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False With Sh.Range("C9:C24") .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""ذكر""))" .Value = .Value End With Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub الكود في أوله شوية متغيرات وبعدين بنرمز لورقة العمل الأساسية بالرمز Ws وورقة العمل إحصاء بالرمز أو المتغير Sh .. بنحدد آخر صف فيه بيانات من خلال الكود .. ودا الفرق بين المعادلة والكود .. في المعادلة بنحدد آخر النطاق بأنفسنا لكن هنا في الكود هنخلي الإكسيل هو اللي يحدد آخر صف ودا هيكون بناءً على عمود الأسماء اللي هو العمود C أو العمود الثالث نيجي بقا للجزء المهم اللي من خلاله هنقدر نتعامل مع النطاق C9:C24 (العمود الأول في الإحصاء) كل الفكرة إننا هنضع المعادلة بس في الكود وبعدين نحول المعادلة لقيمة للتخلص من المعادلة والإبقاء على القيمة (ودا بيخفف من حجم الملف) With Sh.Range("C9:C24") .Formula = "=SUMPRODUCT(--(Total!$CJ$13:$CJ" & LR & "=""ذكر""))" .Value = .Value End With إزاي نتعامل .. أولاً بنحدد النطاق في السطر الأول اللي هنضع فيه المعادلات ودي أمرها بسيط النقطة الأهم إزاي نعدل المعادلة في الكود .. فيه شوية حاجات لازم تاخد بالك منها أول حاجة الفاصلة المنقوطة في المعادلة بتحولها لفاصلة عادية .. تاني حاجة المعادلة كلها توضع بين أقواس تنصيص بعد علامة يساوي اللي بعد كلمة Formula النصوص بتوضع بين أقواس تنصيص مرتين .. يعني مثلا كلمة ذكر في المعادلة وضعنا قوس تنصيص قبلها وقوس تنصيص بعدها ، أما داخل الكود هنخلي أقواس التنصيص مرتين قبلها ومرتين بعدها آخر حاجة بنعملها إننا بنشيل رقم آخر صف اللي هو في المعادلة الرقم 146 ونضع مكانه المتغير LR (اللي بيمثل رقم آخر صف داخل الكود) يعني شيل الرقم 146 من المعادلة وضع مكانها " & LR & " .... قم بتكرار نفس الأسطر الأربعة المشروحة لك مع بقية المعادلات مع تغيير النطاق وتغيير المعادلات وغير ما يلزم .. أرجو أن تكون الصورة واضحة لك .. وإن شاء الله تفلح في تكملة الحل .. واعذرني لأنني لا أقدم الحلول جاهزة كبقية الأخوة في المنتدى (هذا في رأيي الشخصي أفضل وأوفر للوقت والجهد ..) تقبل تحياتي

وعليكم السلام اخوي رمهان 1. حياك الله ، ولك مثل ما دعوت لي وزيادة ان شاء الله 2. كلامك صحيح ، هذا لأن الاخ محمود سعيد اخبرني ان الموضوع كله متعلق بالجدول Blagh ، فلهذا السبب شغلي كله كان عليه ، مع اني شفت الجدولين الثانيين ، ولكني لم اربط بينهما ، ولكن وبعد ملاحظتك ، قمت بتعديل البرنامج ، بحيث اصبح يأخذ من الجداول الثلاثة: Blagh والمصابين والوفيات ، ومرفق نسخة منه ، 3. لا تستطيع ان تستغني عن حقلي المصابين والوفيات في الجدول Blagh ، وذلك لأنه في حالات يوجد بلاغ ولا يوجد مصابين ولا وفيات ، ولا يوجد جدول مستقل لحالات البلاغ ، وقد عملت البرنامج على حساب هذين الحقلين في الجدول شكرا على المتابعة وعليكم السلام اخي محمود لوسمحت المرات الجاية ، لوسمحت لا تضع ملف تجريبي ، لأن العمل يصير مرتين استعمل احد برامج الضغط مثل winzip او winrar ، وارفق ملفك في الموضوع ، فانا لا املك حساب في الموقع الذي رفعت فيه الملف. جعفر 411.Database11.accdb.zip

الله يسلمك اخوي محمد اذا تلاحظ ، مافي كود في العملية كلها في طريقة ثانية عن طريق الكود ، بس تحتاج نكتب في جدول مؤقت ، بحيث يأخذ التقرير بياناته من هذا الجدول المؤقت ، وانا اتفادى الجداول المؤقته ، لأنها تُكبّر من جحم البرنامج ، ويجب عليك الضغط والاصلاح لتصغير البرنامج جعفر

واحد من الاسطر ادناه يفي بالغرض او استخدمهما جميعا fchld.LinkChildFields = "" fchld.LinkMasterFields = "" ولا تنسى التحديث fchld.Requery باعتبار fchld هو اسم عنصر تحكم النموذج الفرعي ولاعادة الربط استخدم العبارة نفسها وبدلا من علامتي التنصيص الفارغتين : ضع اسم الحقل بينهما

وعليكم السلام ورحمة الله وبركاته السؤال ظاهرا سهل ، ولكني لم اجد طريقة سهلة لحلّه اليك خطوات عملي: الجدول الذي نأخذ منه البيانات: . والنموذج الذي يجب ان نحتار التاريخين فيه: . استعلام المجاميع Totals لجمع البيانات حسب الحالات المتشابهة بين تاريخي النموذج: . ونتيجته: . وفي الواقع ، كل العمل التالي هو لجعل معلومات الاستعلام اعلاه تدور 90 درجة الاى اليمين ، ليصبح: . لعمل الدوران لكل حالة ، نحن محتاجين نعمل استعلام جدولي Crosstab Query ، وفي حالتنا عندنا 3 حالات ، عدد البلاغات ، عدد المصابين ، عدد الوفيات: . والنتيجة لكل حالة: . ولكن الاستعلام الجدولي محتاج تضبيط قبل ان يشتغل بالطريقة الصحيحة: اولا: بإدخال جميع الحالات الموجودة ، حتى تظهر لنا في التقرير (وإن لم يكن فيها قيمة للفترة بين تاريخين): . ثانيا: بتعريف المعايير التي تم استخدامها في استعلام المجاميع سابقا: . الآن لدينا 3 استعلامات جدولية ، وفي كل واحد منها قيمة ، ولكننا نريد القيم الثلاث ، لذا يجب ان نعمل استعلام تجميع Union query لهذه الاستعلامات الثلاث: . والنتيجة: . ولكن الاستعلام اعلاه جدا حساس ، واذا غيّرت شئ ، فلن يعمل الاستعلام!! ولكننا بحاجة الى عمل مجموع للقيم !! لذا ، سنأخذ الاستعلام السابق ، ونعمل منه استعلام جديد عادي Select ، بحيث نجمع القيم في الحقل Total ، كمل عملنا حقل للملاحظات (طبعا انت يجب ان تربطه بجدول): . والنتيجة: . بس انت ولا يهمك كل الكلام اعلاه ، فقط اضغط في النموذج على زر معاينة التقرير ، علشان تحصل على نتيجة جميع الاستعلامات اعلاه: سهله هاه جعفر 411.Database11.accdb.zip

مرحبا وضعت لك دالة معرفة لكن كما طلبت رغم انني لم اقتنع بكتابتك لبعض الارقام مثل الأول مائة و الاول الاول مائة و الثاني و هكذا لم استصغ كتابة كلمة الاول في كل مرة التسلسل كتابة 3.rar

دورة برنامج Excel فيديو وصوت ( عربي )

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

السلام عليكم اعداد تقرير من نطاق معين اتوماتيكيا عن طريق فورم لاختيار رؤوس الاعمدة التي تريده في التقرير ما عليك سوى تغيير اسم الورقة والعمود الذي يعين آخر صف في النطاق والنطاق هنا: Private Sub kh_MyRngSet() Dim Last As Long '======================== ' تعيين النطاق ويشمل رؤوس الاعمدة With Sheets("قاعدة البيانات") Last = .Range("C" & .Rows.Count).End(xlUp).Row Set MyRng = .Range("A2:Z" & Last) End With '======================== Num = MyRng.Columns.Count End Sub وتعيين اول صف في ورقة التقرير هنا: '======================== ' اول صف للتقرير Const iRow As Integer = 3 '======================== خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا.rar