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

هذا الموقع به العديد من الايقونات والازار التي قد تفيدكم في تصميم شاشات وأزرار البرامج https://icons8.com/icons تحياتي

الأخ mohamedamrawy تفضل اخي عمل لوحة اوامر بالضغط علي الزر الأيمن الماوس وايضا عمل لوحة اوامر بالضغط علي الزر الأيسر من الماوس !_Right&Left_Mouse_Click_On_UserForm.xls

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

اخى الحبيب اتفضل الملف بعد التعديل من طلبية الاصناف للمطاعم.xlsx

السلام عليكم اخي العزيز السبب هو استخدامك ل like * في الاستعلام ومعناه اضهر لي اي عدد يبد بالرقم واحد او اي يبدا باي رقم موجود في الكومبوبوكس هذه محاولة وهي حيلة للالتفاف على البرنامج ارجو ان يكون فيها طلبك qqq.rar

وعليكم السلام-لك ما طلبت Data Entry.xlsm

أخي الكريم جرب حل أخونا حسين أولا ، جزاه الله كل الخير

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

السلام عليكم ياحبايب جمعتكم مباركة ان شاء الله عندي برنامج كاشير ع الاكسس احتاج احد مستعد يطور لي البرنامج ونشوف ايش ممكن يحتاج البرنامج عشان احتاج اطبقة في مشروعي الخاص وعليكم السلام أستاذي العزيز هذا رابط لتحميل البرنامج و إن شاء الله ألقى من يساعدني اسم المستخدم : bill كلمة السر : 123 Cashier.accdb

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

الموقع يساعدك في تحديد الوان الخلفيات بصيغ مختلفة hex على ان تقوم بنسخ الكود لتبويب التصميم في عرض تصميم النموذج rgb وذلك بنسخ الارقام لكود تصميم الوان الخلفيات او النماذج ويكون من مكون من 3 ارقام وهذا مثال للون الاخضر بكل درجاته http://www.flatuicolorpicker.com/green-hex-color-model تحياتي

موقع تحويل الالوان من HEX to RGB والعكس https://www.rapidtables.com/convert/color/index.html تحياتي ..

بالخدمة اخي الكريم

اسم المستخدم: user2 الرقم السرى: 2 مع العلم أن صلاحيات المستخدمين لا يدخلها غير من له صلاحية الاشراف وهى متاحه لهذا المستخدم

في النموذج في حدث بعد للتحديث لحقل مربع السرد والحوار الذي يضم أسماء المكاتب ضع الكود التالي: Me.Id = dcount("*";"YourTableName";"[YourCombobox]='"&[Yourcombobox]&"') & "\" &"2020" مع ضرورة جعل العمود الأول لمصدر صف مربع السرد والحوار هو أسماء المكاتب وليس المعرف التلقائي. هذه إحدى الطرق الممكنة.

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

تفضل اخي العزيز ارجو ان يكون طلبك aaa.rar

شكرا اخي واستادنا الغالي Ali Mohamed Ali لك مني الف تحية اخلاص

اسأل الله العظيم رب العرش العظيم ان يشفيه ويعافية ويشفي جميع مرضانا ومرضى المسلمين

بارك الله فيك فعلا موقع ممتاز

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

السلام عليكم اجعل النوع في الحقل مزدوج.

الموضوع ليس بالسهل او الهين فهو صعب تنفيذه

أ.مازن الحسيني من فضلك ارفق نسخة بدون كلمة سر لمحرر الكود

حمل الملف لوضع اليد على الخطأ وتصحيحه

اتفضل الملف لعله يفى بالغرض نسخة من طلبية الاصناف للمطاعم.xlsx

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

برنامج رائع جدا هو حضرتك اللي منفذه؟

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

انا عدلت على اخر تعديل ليا فوق شوف التعديل واخبرنى بالتوفيق Relation2(1).accdb

الاجابة في النطاق الاصفر من هذا الملف Spec_Char.xlsx

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

فى حل بسيط وسهل اجعل Order_No و Date_Issue مفتاحى اساسى واحد وبكده تنتهى المشكله باذن الله فك المفتاح ثم علم على الحقلين معا واجعلهم مفتاح اساسى للجدول مع بعض بالتوفيق ان شاء الله

السلام عليكم تغضل اخي الكريم ملفك بعد التعديل اتمنى يكون المطلوب Database4.rar

بعد اذن استاد طارق محمود ولاثراء الموضوع جرب المرفق 1 انسخ المجلد المسمى mydata في :d 2 افتح الملف المسمى main واضغط زر استعلام سيأتي ببيانات حسب الرقم في العمود A ملاحظة تم تغيير اسماء الشيتات ليعمل الكود بكفاءة ارجو ان يكون ما تريد my data.rar

لمن يعاني من ترتيب المخزن وجرده ويريد برمجه بسيطه تنظم مخزنه هذا هو الحل برنامج إدارة مخازن بسيط جداً معتمد علي الأكسيل وقد جمع كم هائل من المعادلات المعده مسبقاً حتي يكفي الغرض منه فهو يحتوي علي صفحة الأصناف والكميات وصفحة لحركة المخزن ككل .وفواتير المبيعات وكتابة الفواتير وتصديرها لصفحة فواتير المبيعات شرح مبسط للبرنامج 1. بعد تحميل البرنامج وفك الضغط عنه بستخدام أي برنامج فك ضغط نجد ملف به البرنامج وملف به باسورد البرنامج عند فتح البرنامج أول مره بيطلب تفعيل ميزة الماكرو ** تنبيه: الماكرو تفعيله لا يضر الجهاز طالما الملف من مكان موثوق .واذا لم تفعله لاتقلق فسوف يعمل البرنامج بشكل طبيعي غير أنه سوف تجد صعوبه في استخدام بعض مزايا البرنامج صورة توضيحية: 2. بعد تفعيل الماكرو يغلق برنامج الاكسيل ويفتح مره اخرى علي صفحة حماية البرنامج ويتم فيها ادخال كلمة السر المدرجة مع .ملف البرنامج صورة توضيحية: 3. بعد كتابة كلمة السر والدخول علي البرنامج بتظهر الصفحة الرئيسية اللي بتتكون من عده أقسام 1. الأصناف والكميات 2. حركة المخزن 3. المبيعات (فواتير المبيعات بعد ادخالها) 4. كتابة الفواتير 5. الخروج من البرنامج شرح الأقسام القسم الأول: الأصناف والكميات: يتضمن هذا القسم الأصناف حيث يتم تكويد الصنف ووضع اسم الصنف في الخانة التالية ليه وسعر بيع الصنف وباقي الصفحة يعمل اتوماتيك مع عمليات الادخال التي تقوم بها صورة توضيحية: *** نجد في الاعلي ازارا التنقل داخل البرنامج احصائيات حول الاصناف كمية الأصناف من كمية الوارد والمنصرف داخل المخزن تنبيه: هناك فلتر علي الصنف واسم الصنف حتي نتمكن من تحديد صنف معين ومعرفة الوارد والمنصرف من ذلك الصنف وكلمة سر فك الضغط هي f7men Stores_Management_V3.1-برنامج_اكسيل_إدارة_المخازن_الإصدار_3.1.rar

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

المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device

العفو استاذي @jo_2010 واذا كنت مازلت ترغب في التصفية عن طريق امر لكل مدينة مع ان الفكرة غير عملية حاليا لديك 3 مدن وربما غدا 10 مدن او اكثر فلا توجد مشكلة ممكن عملها لكل زر امر نضع الكود التالي مع تغيير اسم المدينة Dim myfilter As String myfilter = "[city]='" & "الرياض" & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True ولعرض الكل Me.tbl1.Form.FilterOn = False ولكن اعيد ان هذه الطريقة ليست عمليه المثال في المرفق بحث3.accdb استاذنا الفاضل @أحمد الفلاحجى جزاك الله خير

من كل تطبيق مثل الوورد مثلا يمكنك معرفة مكان الملفات من File options save auto-recover file location و الذهاب للمجلد و حذف الملفات

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

قبل اول كلمة Dim في الماكرو اكتب هذا السطر و بذلك يقوم الماكرو بعمله حتى ولو كانت الورقة محمية ActiveSheet.Protect "123", UserInterfaceOnly:=1 ليصبح الماكرو بهذا الشكل Option Explicit Sub get_my_studiants() Application.ScreenUpdating = False '++++++++++++++++++++++++++++++++++++++++++++++++++++++ ActiveSheet.Protect "123", UserInterfaceOnly:=1 '++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim A As Worksheet Dim B As Worksheet Set A = Sheets("ALL_STD") Set B = Sheets("B") Dim col%, r, x, LB LB = B.Cells(Rows.Count, "B").End(3).Row If LB < 5 Then LB = 5 B.Range("a5").Resize(LB - 4, 6).Clear Dim my_clas$: my_clas = B.Range("e2") Dim my_mad$: my_mad = B.Range("K2").Value If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub col = A.Rows(1).Find(my_clas, lookat:=1).Column r = A.Columns(1).Find(my_mad, lookat:=1).Row x = Application.CountIf(A.Columns(1), my_mad) B.Range("b5").Resize(x).Value = _ A.Cells(r, 2).Resize(x).Value B.Range("c5").Resize(x, 3).Value = _ A.Cells(r, col).Resize(x, 3).Value With B.Range("A5").Resize(LB - 4, 6) .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)" .Columns(1).Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)" .Value = .Value .Font.Size = 26 .Font.Bold = True End With Exit_Sub: Application.ScreenUpdating = True End Sub الملف مرفق My_students_Protected.xlsm

بعد إذن أستاذنا الفاضل سليم لحماية المعادلات من العبث ممكن تضع هذا الكود في حدث ورقة العمل لمنع المستخدم من الوقوف على الخلية التي بها معادلة وبدون رقم سري جرب هذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End If End Sub My_students (1).xlsm

يمكن للجميع الان اضافة الاسم الحقيقي فى البروفايل دون تغيير اسم الدخول و المشاركة و ذلك لسهولة التواصل و هذا عن طريق اعادة استخدام خاصية الرتبة السابقة ، و التي لم نعد نستخدمها حاليا فى الموقع و الخطوات كالتالي ا- اذهب الي الملف الشخصي من اعلى يسار صفحة المنتدى 2- اختار تعديل الملف الشخصي 3- قم بتعديل الاسم فيظهر الاسم الفعلي فى صفحة الروفايل كما يلي و بالتالي ستظهر فوق الصورة فى كل المشاركات مثال:

حرب هذا الماكرو Option Explicit Sub get_my_studiants() Application.ScreenUpdating = False Dim A As Worksheet Dim B As Worksheet Set A = Sheets("ALL_STD") Set B = Sheets("B") Dim col%, r, x, LB LB = B.Cells(Rows.Count, "B").End(3).Row If LB < 5 Then LB = 5 B.Range("a5").Resize(LB - 4, 6).Clear Dim my_clas$: my_clas = B.Range("e2") Dim my_mad$: my_mad = B.Range("K2").Value If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub col = A.Rows(1).Find(my_clas, lookat:=1).Column r = A.Columns(1).Find(my_mad, lookat:=1).Row x = Application.CountIf(A.Columns(1), my_mad) B.Range("b5").Resize(x).Value = _ A.Cells(r, 2).Resize(x).Value B.Range("c5").Resize(x, 3).Value = _ A.Cells(r, col).Resize(x, 3).Value With B.Range("A5").Resize(LB - 4, 6) .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)" .Columns(1).Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)" .Value = .Value .Font.Size = 26 .Font.Bold = True .InsertIndent 1 End With Exit_Sub: Application.ScreenUpdating = True End Sub الملف مرفق My_students.xlsm

السلام عليكم ورحمة الله وبركاته تانية طريقة هنشرحها باذن الله هى طريقة .. شرح تصدير البيانات من الاكسس الى ملف ورد معد مسبقا عن طريق الاشارة المرجعية الفيديو https://youtu.be/VtPEat0Qkqo MS_Export data to Word file.rar

الاخ الفاضل جرب هذا الحل اعمار الديون (1).7z

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

وعليكم السلام ورحمة الله وبركاته بارك الله فيكم اخى الكريم اولا: بالنسبة لموضوع الخمس السنوات بالنسبه للميزانيه 4للدخل و4 سنوات للتدفقات النقديه السبب فيه اننا لابد ومن وضع بياناتات سنه سابقة فى الميزانيه فمن المعلوم ان التدفقات يتم استخراج نتائجها من رصيد بداية اول مده وهو رصيد اخر العام السابق ورصيد اخر المده اخر اعام المقارنه وهكذا حتى يتم تدوير الارصده بشكل سليم واذا اردت ان تجعل التدفقات والدخل 5 سنوات لابد من مقارنة 6 سنوات او فترات فى الميزانيه وهكذا .... ثانيا : بالنسبة لموضوع الحمايه فقد تم حماية الصيغ والمعادلات فقط للمحافظه عليها من التلف ثالثا :اليك الملف بدون اى حمايه تقبل منى خالص التحيه نشر.rar