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

السلام عليكم لعل إخوتي في منتدى الإكسيل يشتغلون به عن الأحداث التي جرى تسجيلها في منتديات أخرى كالمنتدى الاجتماعي وهذا ليس نابعاً من قلة اكتراث - حاشى وكلا - ولكن الحياة مشاغل أوجه عنايتكم إلى واجب تعزية أخينا ياسر فتحي البنا بوفاة ابنته داعين لها أن يجعلها الله فرطاً وذخراً لوالديها ولكم الأجر والثواب إن شاء الله تعالى فعن النبي صلى الله عليهوسلم أنه قال: (( مَثَلُ المؤمنين في تَوَادِّهم وتراحُمهم وتعاطُفهم: مثلُ الجسد، إِذا اشتكى منه عضو: تَدَاعَى له سائرُ الجسد بالسَّهَرِ والحُمِّى )) [أخرجه البخاري ومسلم عن النعمان بن بشير] والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله تم بمعية عمود إضافي في الملف المرفق... بن علية معادلة لحساب عدد كل جنسية مع اهمال التكرار من خلال استخدام Student ID.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: فقد بلغني نبأ وفاة ابنة أخينا الحبيب ياسر فتحي البنا ...وبما أننا نؤمن بالقضاء والقدر خيره وشره وأن (كل نفس ذائقة الموت) و (كل من عليها فان) نتوجه إلى أخينا ياسر بأحر التعازي ونقول له : " اللهم اجعلها ذخرا لوالديها وفرطا وأجرا وشفيعا مجابا، اللهم ثقل بها موازينهم، أو أعظم بها أجورهم، أو ألحقها بصالح سلف المؤمنين واجعلها في كفالة إبراهيم وقها برحمتك عذاب الجحيم". ونذكره بأن كلّ حي مصيره الموت فلا يبقى ولا يدوم إلا وجه الله تعالى الحي القيوم ..فلتصبر ولتحتسب ولتشد أزر أسرتك الكريمة ولتخفف عنهم فأنت نحسبك على خير والله حسيبك - وانظر إلى رؤيا الرسول صلى الله عليه وسلم: " في حديث طويل في رؤيا رآها النبي -صلى الله عليه وسلم- قال: ورأيت رجلا من أمتي خف ميزانه فجاءه أفراطه فثقلوا ميزانه فلذلك يقال: اللهم ثقل به موازينهما، وأعظم به أجورهما، وألحقه بصالح سلف المؤمنين، واجعله في كفالة إبراهيم في حديث الرؤيا حديث سمرة أنه -صلى الله عليه وسلم- قال: ثم أتينا على رجل طويل تحت ظل شجرة وحوله أولاد كثير وفسره أنه إبراهيم وأن الذين حوله أولاد المسلمين، يعني أطفالهم الذين ماتوا صغارا، فهكذا يدعى لهذا الطفل. نعم. ولكم في رسول الله أسوة حسنة...توفي معظم أولاده حال حياته وبشر فاطمة بأنها تلحق به ...فتأسّ بسيد الخلق صلى الله عليه وسلم. إنّا لله وإنا إليه راجعون والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين.

أخي الكريم سامح جرب الكود التالي Sub LoopThroughClosedWBs() Dim WBK As Workbook Dim FolderPath As String Dim FileName As String Dim Counter As Double Dim Sh As Worksheet 'ضع المصنف الذي يحتوي الكود في نفس مسار الملفات المراد العمل عليها FolderPath = ThisWorkbook.Path & "\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" If FileName <> ThisWorkbook.Name Then Application.Calculation = xlManual Set WBK = Workbooks.Open(FolderPath & FileName) With WBK.Sheets("Sheet1") .Range("E1").Formula = "=SUM(A1:B1)" End With Application.Calculation = xlAutomatic WBK.Close SaveChanges:=True End If FileName = Dir() Loop Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Finished ...", 64 End Sub في السطر قبل حفظ وإغلاق المصنف يتم وضع السطر التالي Application.Calculation = xlAutomatic تقبل تحياتي

يمكن ان تجرب هذا النلف معادلة لحساب عدد كل جنسية مع اهمال التكرار من خلال استخدام Student ID.rar

اخى م/ياسر فتحى إنا لله وإنا إليه راجعون لله ماأخذ وله ماأعطى،وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب

إنا لله وإنا إليه راجعون , لله ما أخذ وله ما أعطى ، وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب أخى الفاضل ياسر فتحى البنا

السلام عليكم أخي الحبيب ياسر أبو أسيل: نصيحة أخ أكبر منك أن لا تغوص كثيراً في الفلسفة لأن الفلسفة هي علم الكلام إليك بعض الأبيات تبين فضل علم الحساب ووجوب طلبه وذمّ علم الكلام"الفلسفة": وعليك بالفقه المبين شرعنا ... وفرائض الميراث والقرآن علم الحساب وعلم شرع محمد ... علمان مطلوبان متبعان لولا الفرائض ضاع ميراث الورى ... وجرى خصام الولد والشيبان لولا الحساب وضربه وكسوره ... لم ينقسم سهم ولا سهمان لا تلتمس علم الكلام فإنه ... يدعو إلى التعطيل والهيمان لا يصحب البدعي إلا مثله ... تحت الدخان تأجج النيران علم الكلام وعلم شرع محمد ... يتغايران وليس يشتبهان اخذوا الكلام عن الفلاسفة الألى ... جحدوا الشرائع غرة وأمان حملوا الأمور على قياس عقولهم ... فتبلدوا كتبلد الحيران من سقراط هذا أمام كلام الله وسنة نبيه؟! ...فإن كان في قوله حكمة فالإسلام كله حكمة :(ومن يؤتَ الحكمة فقد أوتي خيراً كثيراً)... أرجو أن لا تؤاخذني بما كتبت فأنت أخ حبيب وصديق مقرّب لكنني أرى أن كلمة الحق يجب أن تقال والسلام عليكم.

البقاء لله إنا لله وإنا إليه راجعون \

بعض روائع ماكتب عن العقل والتفاعل البشرى التى ممكن الاستفادة منها فى حياتنا الأسرية والعملية والاجتماعية منها : 1-لا يوجد شيء يستطيع اضطرابك سوى أفكارك أنت .وأنت لديك القوة على رفض كل الأفكار التى داخلك 2-تكوين نماذج العادة فى عقلك بتكرارها فكرا وعملا 3-إذا كان لديك رغبة حقيقية للتخلص من أى عادة مدمرة ..فإنك قد شفيت بالفعل 4-إذا أردت الحكمة بقدر ما أردت الهواء -¬عندما كنت غارقا فى الماء -فإنك ستحصل عليها (سقراط) 5-إن الحياة لاتعاقبك ..أنت تفعل ذلك لنفسك بأفكارك السلبية 6-الحب والتسامح,هو ان تتمنى للآخرين السعادة والسرور والسلام,حتى لو لم تكن تحبهم أو تتعاون معهم 7-إذا كنت تتحبب للحيوان . فلن تهاجمك أبدا فما بالك بالإنسان 8-إن ما تحكم به على الآخرين يحكمون به عليك 9-إنك لا تستطيع أن تشترى السعادة بكل أموال العالم ..إن مملكة السعادة موجودة فى فكرك ومشاعرك 10-إن قوة الخيال المدعم تحقق معجزات عقلك الباطن ..لذا تخيل أقصى رغبة لديك وأنها تحققت ..ستحصل على النتائج التى تصبو إليها 11-عندما يكون عقلك مسترخيا وأنت تقبل فكرة ,فإن عقلك البطن يعمل على تنفيذ الفكرة 12-العقل الباطن قادر على السيطرة الكاملة على وظائف وأحاسيس وأحوال الجسد بالكامل 13-إن العقل هو الذي يجعلك سليما أو مريضا أو تعيسا أو سعيدا أو غنيا أو فقيرا 14-ارفع من قدر نفسك بالحديث إليها ايجابيا 15-إن الشخص الذي يبالغ في التمسك بآرائه لا يجد من يتفق معه 16-من لم يفشل لن ينجح

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

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

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

انا لله وانا اليه راجعون ولا حول ولا قوة الايالله اللهم اجعل الفقيدة شفيعا لوالديها يوم القيامة الهم صبر والديها وكل محبيها واربط على قلوبهم يا ارحم الراحمين اللهم عوض والدى الفقيدة عنها خير عاجلا لا آجلا يارب العالمين

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر ...إنما المؤمنون إخوة وهذا حق المسلم على المسلم كما أحيي أخي الحبيب محمد أبو صهيب وأشكره على هذه الكلمات الطيبة وأقول له السلام عليكم ورحمة الله وبركاته أسأل الله العظيم رب العرش الكريم أن يشفيك . وادعو لنا أن يرحمنا في ليلتنا هذه لأنني أحس أن خيمنا المتواضعة ستطير من فوق رؤوسنا أو ستصبح ركاما فوقنا ...اللهم سلم سلم والسلام عليكم ورحمة الله وبركاته

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

أخي الكريم ماجد ماجد أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل لا داعي للعناوين البراقة (التحدي وخلافه) ، فكلنا هنا نسعى للتعلم بجد وليس من باب التحدي .. وإذا كان الباب هو التحدي فمن الأجدر أن يكون لديك حل للمسألة .. كأن تكتب في العنوان لغز أو خلافه ، أما التحدي في موضوع تطلب فيه مسألة معينة فغير مقبول (على الأقل بالنسبة لي) عموماً حتى لا ندخل في نقاشات لا جدوى منها .. إليك الجزء الأول من طلبك ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Recalc End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) EndTime End Sub وضع الكود التالي في موديول جديد Dim SchedRecalc As Date Sub Recalc() Range("A1").Value = Format(Time, "hh:mm:ss AM/PM") Call StartTime End Sub Sub StartTime() SchedRecalc = Now + TimeValue("00:00:01") Application.OnTime SchedRecalc, "Recalc" End Sub Sub EndTime() On Error Resume Next Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False End Sub إليك الملف المرفق فيه تطبيق الكود ** ملحوظة هامة : قمت بتنفيذ الجزء الأول مع عدم اقتناعي بفكر تحديث الوقت كل ثانية لأن ذلك سيكون إرهاق على الملف نظراً لأن التحديث سيكون كل ثانية .. أعتقد يمكن تنفيذ الجزء الثاني بدون تحديث الوقت في الخلية A1 ... ولكن تم تنفيذ الجزء الأول من باب التحدي تقبل تحياتي Update Timer Every Second In Cell YasserKhalil.rar *********************************** بعدما اطلعت على الجزء الثاني من طلبك فقد اتضح لي أنه يمكن التعديل على الكود السابق بسهولة ليؤدي الغرض ويقوم بعملية الترحيل كل ثانية كما طلبت قم بتعديل الكود Sub Recalc() Range("A2").Value = Format(Time, "hh:mm:ss AM/PM") Range("C" & Cells(Rows.Count, "C").End(xlUp).Row + 1).Value = Range("B2").Value Call StartTime End Sub وإليك الملف المرفق الثاني بعد التعديل تقبل تحياتي Update Timer Every Second In Cell YasserKhalil V2.rar

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله .. بصراحة أعجز عن البداية في هذا الموضوع نظراً لكثرة المعلومات في هذا الموضوع وتشعب الموضوع بشكل كبير ، ويرجع هذا التشعب إلى أهمية الموضوع لأن العمل بالمصفوفات يجعل الأكواد تكون أسرع بكثير من التعامل بالأكواد العادية خصوصاً مع البيانات الكثيرة .. الموضوع سيكون مستمر بإذن الله .. فأنا أؤمن بالحكمة التي تقول : قليل دائم خير من كثير منقطع .. سنبدأ في تناول الموضوع جزء جزء لكي نستطيع أن نهضم سوياً الموضوع ، ونستفيد من هذا الموضوع أقصى استفادة ممكنة نبطل رغي ونبدأ في المهم يعني ايه مصفوفة Array ؟ قبل ما نتعرف على المصفوفة .. عرفنا في دورة افتح الباب وادخل لعالم البرمجة "المتغير Variable" وقلنا إن المتغير وظيفته إنه بيخزن قيمة (سواء القيمة دي نص أو رقم أو تاريخ أو أي نوع من أنواع البيانات) .. بس المتغير بيخزن قيمة واحدة مثال : لو عايز أخزن القيمة النصية Officena Forums في متغير كنا بنعمل ايه ..؟! بنعلن عن المتغير من النوع النصي في سطر وفي السطر التالي بنقوم بتعيين قيمة للمتغير .. Sub StringVariable() Dim str As String str = "Officena Forums" End Sub طيب عشان نتأكد إن شغلنا مضبوط عايزين نعرف المتغير دا تم تخزين القيمة النصية فيه ولا لا .. ممكن نستخدم طريقة من اتنين : الطريقة الأولى باستخدام MsgBox لإظهار رسالة للمستخدم بقيمة المتغير .. MsgBox str الطريقة التانية ودي مهمة جداً لأننا هنستخدمها أثناء شرح المصفوفات لمتابعة تنفيذ أسطر الكود .. الطريقة باستخدام Debug.Print Debug.Print str طيب الطريقة دي هتظهر لنا إزاي : هتظهر النتائج في نافذة اسمها النافذة الفورية Immediate Window (طيب دي أجيبها منين وإزاي؟!) روح للقائمة الموجودة في محرر الأكواد وانقر على View هتلاقي Immediate Window أو باختصار من لوحة المفاتيح اضغط على Ctrl + G .. هتظهر النافذة الفورية في أسفل محرر الأكواد .. جرب الكود بالشكل الكامل بهذا الشكل Sub StringVariable() Dim str As String str = "Officena Forums" MsgBox str Debug.Print str End Sub طيب لما نحب ننفذ الكود يا ريت لا يتم التنفيذ مرة واحدة من خلال الأمر Run .... عايز التنفيذ يتم واحدة واحدة وسطر بسطر عشان تتعلموا إزاي تتابعوا عمل الكود .. عشان ننفذ الكود سطر بسطر ونتابع عايزين نظهر نافذة تانية كمان اسمها Local Window وبردو من نفس القائمة View وحاول تظبط النافذتين بحيث يكونوا بجانب بعضهم البعض كما في الصورة بحيث تتابع التنفيذ خلينا عمليين ونطبق أول بأول : روح لمحرر الأكود وأدرج موديول وانسخ الكود وأظهر نافذة Local Window والنافذة الفورية وضع مؤشر الماوس داخل الكود في اي سطر واستعد للانطلاق (على السادة المبرمجين ربط الأحزمة وشحذ الهمة والتركيز) اضغط F8 من لوحة المفاتيح هتلاقي أول سطر Sub StringVariable اتلون باللون الأصفر .. هنا بيتم الإعلان عن المتغيرات (بص في نافذة اللوكال) هتلاقي اسم المتغير str في عمود اسمه Expression ، وقيمته "" في عمود اسمه Value (طبعاً لسه فراغ لأن لسه مخزناش فيه حاجة) ، ونوعه String في عمود Type .. يعني ببساطة عرفنا تاريخ حياته في اللحظة دي ..عرفنا اسمه وقيمته ونوعه (الكلام دا رغم إنه ملوش علاقة بموضوع المصفوفات لكنه مهم جداً عشان نفهم إزاي نتعامل مع محرر الأكواد بشكل احترافي ونعلم نفسنا إزاي الكود بيتم تنفيذه) نضغط F8 تاني (هنا مفيش حاجة حصلت) السطر الأصفر انتقل للسطر ده str = "Officena Forums" ولكن محصلش أي تغيير في نافذة اللوكال ..دا لأن التغيير بيحصل لما بخرج من السطر الأصفر .. اضغط F8 للمرة التالتة وشوف نافذة اللوكال ولاحظ قيمة المتغير .. اتغيرت القيمة من فراغ إلى النص Officena Forums اضغط F8 للمرة الرابعة هتظهر لك رسالة فيها قيمة النص اضغط F8 للمرة الخامسة هيظهر قيمة المتغير في النافذة الفورية اضغط F8 للمرة السادسة والأخيرة على سطر End Sub لإنهاء الإجراء الفرعي بكدا نكون عرفنا إزاي هنتعامل مع تنفيذ الكود أثناء الدورة ... طولت في النقطة اللي فاتت شويتين بس كان لازم منها عشان ننتقل إلى مرحلة الاحترافية في التعامل مع الأكواد *************** طيب سؤال ايه علاقة المتغير بالمصفوفة؟ الإجابة إن المصفوفة متغير بس مش بيخزن قيمة واحدة (دا بيخزن مجموعة من المتغيرات دفعة واحدة) مثال عملي لفهم المصفوفة بشكل أعمق ::: نفترض أن لدينا 5 طلاب وليهم درجات ..نروح لورقة العمل ونكتب 5 أسماء بدرجاتهم كما بالشكل التالي نروح لمحرر الأكودا وننفذ الكود التالي ..الكود مش محتاج شرح الكود بسيط جداً Sub StudentMarks() With ThisWorkbook.Worksheets("Sheet1") 'الإعلان عن متغير لكل طالب Dim Student1 As Integer Dim Student2 As Integer Dim Student3 As Integer Dim Student4 As Integer Dim Student5 As Integer 'تعيين قيم المتغيرات من الخلايا المشار إليها Student1 = .Range("B1").Offset(1) Student2 = .Range("B1").Offset(2) Student3 = .Range("B1").Offset(3) Student4 = .Range("B1").Offset(4) Student5 = .Range("B1").Offset(5) 'طباعة الدرجات في النافذة الفورية Debug.Print "درجات الطلاب" Debug.Print Student1 Debug.Print Student2 Debug.Print Student3 Debug.Print Student4 Debug.Print Student5 End With End Sub أول سطر في الكود عشان نتعامل مع المصنف الحالي الذي يحتوي الكود .. والتعامل هيكون مع ورقة العمل Sheet1 ... الجزء الأول بيتم الإعلان عن المتغيرات لدرجات الطلاب من النوع Integer أي عدد صحيح (طبعاً دا مجرد مثال .. لأن الدرجات من المفترض إنها تكون Double لأن أكيد بيكون فيه كسور)>>المهم الجزء التاني بيتم تعيين قيم للمتغيرات (الدرجات) انطلاقاً من الخلية B1 ... بإزاحة بمقدار صف واحد لأسفل هيجيب قيمة الخلية B1 ... بإزاحة بمقدار صفين هيجيب الخلية B3 وهكذا الجزء التالت هيطبع درجات الطلاب في النافذة الفورية لتكون النافذة الفورية بهذا الشكل طيب المثال اللي فات 5 طلاب ..طيب لو عندي 100 طالب .. 500 طالب .. 1000 طالب .. 10000 طالب (هل سيكون التعامل مع طالب طالب ..؟؟ دا أكيد انتحار ) من هنا تأتي أهمية المصفوفة لتخزين جميع القيم في متغير واحد فقط .. يعني المصفوفة هتخليني أخزن القيم (درجات الطلاب) في متغير واحد فقط Sub StudentMarksArr() With ThisWorkbook.Worksheets("Sheet1") 'الإعلان عن متغير من النوع مصفوفة وأبعاد المصفوفة 5 عناصر 'لأن عدد الطلاب 5 طلاب والمطلوب تخزين درجاتهم في المصوفة Dim Students(1 To 5) As Integer 'قراءة درجات الطلاب من ورقة العمل Dim I As Integer For I = 1 To 5 Students(I) = .Range("B1").Offset(I) Next I 'طباعة الدرجات من المصفوفة في النافذة الفورية Debug.Print "درجات الطلاب" For I = LBound(Students) To UBound(Students) Debug.Print Students(I) Next I End With End Sub تم الإعلان عن اسم المتغير Students وطالما وضعنا أقواس بعد المتغير ..محرر الأكواد بيفهم إن دي مصفوفة .. طيب ايه الأرقام اللي ما بين الأقواس 1 إلى 5 دا اسم البعد الأول للمصفوفة (لأن المصفوفة دي عبارة عن عمود واحد اللي هو عمود الدرجات ودي بيسموها مصفوفة ذات بعد واحد (أحادية الأبعاد) وإن شاء الله هنتكلم عنها بالتفصيل نضع المؤشر داخل الكود ونضغط F8 ونبص في اللوكال ... ركز يا مان وشوف المتغير اللي اسمه Students في نافذة اللوكال هتلاقي علامة زائد انقر عليها زي ما إحنا شايفين اللوكال قالت كل حاجة ..قالت الأبعاد وقالت لنا على عناصر المصفوفة ورقم الفهرس لكل عنصر (الرقم اللي بين أقواس بعد اسم المصفوفة دي رقم الفهرس ) طبعاً لسه الكود في بدايتة فالقيم كلها ما زالت صفر .. ابدأ في التنقل باستخدام F8 كما تعلمنا وارجع بعد شوية .... لاحظت في الحلقة التكرارية اللي بدأت من 1 إلى 5 إن القيم الموجودة بدأت تتغير من أصفار إلى قيم (درجات الطلاب) لمزيد حول الحلقة التكرارية للمصفوفة راجع الموضوع التالي من هنا نيجي لآخر جزئية وهي طباعة الدرجات في النافذة الفورية ... هنا تم استخدام الحلقات التكرارية من بداية المصفوفة باستخدام كلمة LBound يليها اسم المصفوفة ، إلى نهاية المصفوفة باستخدام كلمة UBound يليها اسم المصفوفة .. ببساطة الكلمتين دول بيجيبوا الحد الأدنى للمصفوفة (1 كما في المثال) والحد الأعلى للمصفوفة (5 كما في المثال) قم بالضغط على F8 واحدة واحدة وشوف التغيرات اللي بتحصل في نافذة اللوكال والنافذة الفورية عشان تقدر تستوعب عمل الكود بشكل جيد إلى هنا حانت لحظة النوم وبدأ النوم يداعب جفوني ، ألتقي بكم على خير إن شاء الله وإلى لقاء آخر وموضوع متجدد بإذن الله دمتم على طاعة الله والسلام عليكم ورحمة الله وبركاته

من المواضيع المتجددة والمفيدة في الحياة العملية وخاصة لأصحاب العقارات، وقد تم طرحه سابقاً، وهي كيفية معرفة العقود التي قاربت على الانتهاء خلال 30 يوماً من خلال الفورم.. تحيـــــــــــــــــــــــاتي القلبيــــــــــــــــــــــة تذكير بتاريخ الانتهاء.rar

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

اتفضل بعد توسيع المدى بالتوفيق اخى 20.rar

اتفضل اخى الفاضل غير المعادله فى الشيت 2 فى الخليه c6 =SUMIFS(Sheet1!$G$5:$G$20;العملاء;B6) واسحب لتحت ثم ضيف اى عميل فى الشيت الاول فى الصف 20 وهو اخر المدى ممكن توسعه انت بقا زى ما انت عاوز اذا قمت بتغيير المدى الخاص بالعملاء بالشيت الاول متنساش تغيره بالمعادله دى برضه بالتوفيق

نعم ولكنها تكتب بتلك الطريقة Is Null وهذا رابط من موقع مايكروسوفت يوضح امثله للمعاير بانواعها https://support.office.com/ar-sa/article/%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D9%85%D8%B9%D8%A7%D9%8A%D9%8A%D8%B1-%D8%A7%D9%84%D8%A7%D8%B3%D8%AA%D8%B9%D9%84%D8%A7%D9%85-3197228c-8684-4552-ac03-aba746fb29d8

فكرة جميله يعني Null = غير موجود في الاكسس ؟

الحمد لله سبحانه وتعالى الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل الحمد لله الذى تتم بنعمته الصالحات احبكم فى الله ☺

الاخ ابو مريم وعليكم السلام ورحمة الله وبركاتة رابط لفلاشات لساعات http://www.matsclock.com/index.html فك ضغط الملف تشغيل الوقت.rar

اجعل مصدر التقرير هو استعلام واكتب هذا المعيار فى حقل الاسم Not Is Null وده مثال كده حضرتهولك على السريع Not Is Null.rar

وعليكم السلام برنامجي: يقوم بربط الصور من الاسكانر ، في مجلد تابع لمجلد البرنامج ، و ربط الصور بدون حقول في الجدول. جربه ، وانقله بين مجلدات الكمبيوتر وسترى انه يعمل بكفائة ولاحظ طريقة تسمية الصور ، فبالتالي تستطيع ان يكون عندك أي عدد من الصور للسجل الواحد جعفر

اجرب نفسي فى التطبيق وارد على حضرتك كل الشكر والتقدير استاذ karrar sabry

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

أخي الكريم أبو عبد الرحمن في ورقة البحث قم بوضع الكود التالي .. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("J3:J" & Rows.Count)) Is Nothing Then Application.EnableEvents = False If IsError(Application.Match(Target.Value, Sheet1.Columns(1), 0)) Then Range("B3").Value = "" Else Range("B3").Value = Target.Value End If If IsError(Application.Match(Target.Value, Sheet2.Columns(1), 0)) Then Range("E3").Value = "" Else Range("E3").Value = Target.Value End If If IsError(Application.Match(Target.Value, Sheet3.Columns(1), 0)) Then Range("H3").Value = "" Else Range("H3").Value = Target.Value End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim myVAL As String, LR As Long, NR As Long, ws As Worksheet If Target.Cells.Count > 1 Then Exit Sub If Target.Address = "$K$2" Then Application.EnableEvents = False Application.ScreenUpdating = False Range("J3:K" & Rows.Count).ClearContents NR = 3 myVAL = Target.Value For Each ws In Sheets(Array("الأسماء المرسلة", "أخطاء القاعدة", "أخطاء البطاقة")) With ws .AutoFilterMode = False .Rows(1).AutoFilter 2, "*" & myVAL & "*" LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then .Range("A2:B" & LR).SpecialCells(xlVisible).Copy Range("J" & NR).PasteSpecial xlPasteValues NR = Range("J" & Rows.Count).End(xlUp).Row + 1 End If .AutoFilterMode = False End With Next ws Target.Activate Application.CutCopyMode = False Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub أفضل أن تنسخ البيانات من ملفك إلى الملف الذي سأقوم بإرفاقه إن شاء الله لكي يعمل الكود بشكل صحيح .. بعدها قم بتنسيق المصنف كما يحلو لك ، وأعتذر عن أنني اقوم بالتنسيق بأسلوبي فهذا يريحني ويجعلني أستطيع التعامل مع الملف بشكل أوضح وإليك الملف المرفق تقبل تحياتي Search Process In Specific Multiple Sheets For Specific String YasserKhalil.rar

البقاء لله إنا لله وإنا إليه راجعون

جزاك الله خيرا ابويوسف على إبلاغنا بحالة الوفاه اللهم ارحم امواتنا واموات المسلمين اجمعين برحمتك ياارحم الرحمين

السلام عليكم رحمة الله عليها إلى جنان الخلد

شكرا احسنت استاذي

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

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

نعم جربتها وأعددت لك مثال لتجربه تختار فيه طريقة عرض الأرقام جرب المرفق ووافني بالنتيجة Test Number Ar-En 2003.rar

اتفضل هذا تطبيقى على نقل التركيز ويتم نقل التركيز من نموذج فرعى الى نموذج رئيسى ثم الى نموذج فرعى ثانى ثم الى النموذج الفرعى الاول نقل التركيز.rar

حياك الله اخ هادي لا حظ التغيير في جميع الجداول ولا حظ التغيير في العلاقات لاحظ التغيير في حدث عند التحميل للتقرير rep1 بالتوفيق trackingNew.rar

أخي الكريم أقترح طرح موضوع جديد بطلبك حتى تجد استجابة اسرع من إخوانك تقبل تحياتي

وعليكم السلام اعطيك طريقتين: مطوّله بعدة اسطر لسهولة فهمها : If (RET * Rate) <= 500 Then If J15 > 0 Then A = N15 * L15 * 0.35 * 0.3 Else A = 0 End If Else If J15 > 0 Then A = N15 * L15 * 0.35 * 0.25 Else A = 0 End If End If بسطر واحد: A = IIf(RET * Rate <= 500, IIf(J15 > 0, N15 * L15 * 0.35 * 0.3, 0), IIf(J15 > 0, N15 * L15 * 0.35 * 0.25, 0)) جعفر

شكرا جزيلا على هذا الإطراء ماشاء الله عليك نفخت ونفخت فيني ، والآن اصبحت زي البالونه المهم ، هل عملت معاك الطريقة؟ جعفر

جزاك الله خيرا يا ابو البراء جميله يامحى بالتوفيق ارتحت ياعربى جالك ابو البراء اهو يامعلم ههههههههههههه بالتوفيق

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

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

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