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

تستدبل قيم الــ Array بالأسماء (ما ليس رقماً داخل اقواس " " اما الأرقام بدون اقواس) هكذا مثلا arr = Array("سعيد", "أكرم", 3, 4, "Amine", "سليم")

اتفضل حسب طلبك New Microsoft Access قاعدة بيانات (1).accdb

تفضل كود حماية الخلايا 123تقسيط.xlsx

تم التغيير في تصميم الأوراق لانها كانت تحتوى على خلايا مدمجة تعيق عمل الكود

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

لدي تقرير لابد من ان اعملة ولا اعرف كيف فقررت ان افكر معكم وبالله عليكوا لو تقدروا تساعدونا يبقي جزاكم الله خيراً باختصار مطلوب مني عمل الرواتب كتحويلات علاي البنك لدي كل موظف في حسابة وهناك طلب مني البنك ان اقوم بعمل ملف نوت باد مكتوب بة البيانات التالية من العمود 1 الي العمود 3 مثلا الاختصار الوظيفي ثم من عمود 4 الي عمود 13 الاسم ومن العمود 14 الي العمود 20 الراتب ولا بد من تعبئة خانات الراتب الستة فمثلا لو كان الراتب 3000 ريال يكون الشكل 0003000 وهذة ملحوظة وهكذا حتي لا اطيل عليكم ففكرت في عمل ذلك علي ملف اكسل حتي اتمكن من الرقابة علي الداتا اللي انا دخلتها ولسهولة التعامل مع الاكسل بالنسبة لي فلو كان من الممكن فعل ذلك يا ريت الطريقة ارجو التواصل جزاكم الله خيراً والله موضوع مهم بالنسبة لي لان لدي 140 صف في حوالي 60 عمود لابد من ادخالهم فالوقت كتير والاخطاء ستكون كثيرة لو استخدمت النوت باد هذا فلو امكن ايضا علي اكسس ايضا اي طريقة جزاكم الله خيرا

نعم استعمل 2007 شكرا جزيلا و بورك فيك جزاك الله خيرا

1- من ايت يأتي لك الاكسل بالورقة رياضيات وهي ليست موجودة ضمن الأوراق 2-يظهر انك تستعمل اصدار قديم من اكسل ليس فيه العامود MM 3- في هذه الحالة يمكن الاستعانة بأي عامود غير MM مثلاُ Z لاحظ الصورة فيصبح الكود بهذا الشكل Option Explicit Sub My_Ad_filter() Dim Rg As Range Dim Cret_rg As Range Dim arr, itm Application.ScreenUpdating = False arr = Array("عربية", "فيزياء", "فرنسية") Set Rg = Sheets("g").Range("A14").CurrentRegion For Each itm In arr With Sheets(itm) .Range("A14").CurrentRegion.ClearContents .Range("Z1") = "المادة" .Range("Z2") = itm Set Cret_rg = .Range("Z1:Z2") Rg.AdvancedFilter 2, Cret_rg, .Range("A14") Cret_rg.ClearContents End With Next Application.ScreenUpdating = True End Sub الملف مرفق H_2611 -2.xls

جزاك الله خير الجزاء استاذنا الكريم 👍👍

اتفضل اعتقد هذا طلبك بالضبط رساله تذكير بمعاد الدفع.accdb

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

اذا كانت العناصر في الـــ Array نصوصاً لا لزوم للأقواس في السطر حيث الخطأ (الأ صفر) (حتى وان وضعتها لا مشكلة) كما عليك وضع اسماء الصحفات الـــ Array وليس اي اسماء تخطر على بالك اما مكان الــ Itm في يقية اسطر الكود (بعد سطر الخطأ) تضع الشيء الذي تريد ان تفلتر على اساسه بين قوسين اذا كان نصاً

اخي الكريم بالحقيقة لم اجربه على قوقل درايف لكن لا اظن انه يوجد فرق بينهما

هذا بالكود البرمجي لعله يساعدك تفضل Sub osama() Dim data, i As Long, fnd As Range With Range("B27:C" & Cells(Rows.Count, 3).End(xlUp).Row) data = .Value For i = LBound(data, 1) To UBound(data, 1) Set fnd = Range("C3:R21").Find(data(i, 2), , xlValues, xlWhole) If Not fnd Is Nothing Then data(i, 1) = Cells(fnd.Row, 2) Next i .Value = data End With End Sub جلب اسماء.xlsm

ماشاء الله روعه استاذ @ابو ياسين المشولي

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

السلام عليكم وهذه الطريقة الثانية التي اخبرتك عنها يمكنك اضافة اي اعاقة في جدول الاعاقة وستجد ظهورها مباشرة في الاستعلام الرئيسي Root50.rar

حل رائع أستاذ salimhebboul

اتفضل New Microsoft Access قاعدة بيانات.accdb

جرب هذا الكود Option Explicit Sub My_Ad_filter() Dim Rg As Range Dim Cret_rg As Range Dim arr, itm Application.ScreenUpdating = False arr = Array(1, 2, 3, 4) Set Rg = Sheets("g").Range("A14").CurrentRegion For Each itm In arr With Sheets(itm & "") .Range("A14").CurrentRegion.ClearContents .Range("MM1") = "القسم" .Range("MM2") = itm Set Cret_rg = .Range("MM1:MM2") Rg.AdvancedFilter 2, Cret_rg, .Range("A14") Cret_rg.ClearContents End With Next Application.ScreenUpdating = True End Sub الملف مرفق H_2610.xlsm

تفصيل اكثر

لا ضرورة لهذه الأكواد المعقدة للفورم (انظر الى الكود داخل اليوزر) 3 أكواد بسيطة جداً يكفي اكواد بسيطة وسلسلة كما في هذا الملف 1-اضغط على الزر الازرق يطهر لك اليورز 2- أحتر اسم الورقة من الكومبوبوكس 3-اضغط الزر المناسب Jamal.xlsm

السلام عليكم طريقة الاعلان عن متغيير يكون بالطريقة التالية Dim اسم المتغير As نوع المتغير Dim a As String وان اردت عدم الاعلان عن المتغيير وكتابته مباشرة فاحذف السطر التالي من الوحدة النمطية او النموذج الذي تعمل عليه Option Explicit ويمكن استخدام set مباشرة اذا لم نعلن عن المتغير وحذفنا سطر Option Explicit كما اتفقنا تخياتي

توكل وابدأ على بركة الله

تفضل لا حاجة للوحدة النمطية القديمة جرب ووافني بالنتيجة :: تحياتي Horizontal-waz.accdb

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

السلام عليكم تصحيح ليس ممكن 32 مراقب مع الإستثناءات فلنتكلم مثلا عن اليوم الأول - الفترة الأولي فقط الكود سيوزع 16 مراقب في الصف الرابع ثم يذهب للصف الخامس (اليوم الأول - الفترة الأولي ) يجد أن مقابل ال 32 مراقب ، منهم 16 بيراقبوا في الصف الرابع + 2 مثلا إستثناءات = 18 ، الباقي 14 من ال 32 يعني مش ممكن يوفي المطلوب (16) إذا زودت عدد الملاحظيين إلي 34 لتغطية الإستثناءات يكون الحل ممكن وكلما زادت الإستثناءات كلما وجب عليك تزويد الملاحظيين تفضل هذا الملف به الكود الجديد للورقة الثانية (الجديد) به حل للإستثناءات ولكل مشاكلك إن شاء الله لكن إذا قللت عدد الملاحظيين عن 34 فلن يستطيع الكود إيجاد الحل التعديل على الكود توزيع اللجان على الملاحظين (2).xlsm

وعليكم السلام احسنت بارك الله فيك

جرب هذا الملف بمجرد كتابة الحرف الأول والثانى مثلا ثم اضغط على انتر يتم كتابة الإسم كاملا Search.xlsm

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

وعليكم السلام بالتأكيد كالعادة استاذنا الكبير ابراهيم كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

تفضل استاذى الكريم الملف غير محمى مراقبة الاقساط.xlsx

بارك الله فيك وجزاك الله كل خير

وعليكم السلام تفضل لك ما طلبت سداد المصروفات.xlsm

تفضل التعديل الخامس (2) (2) (1).xlsm

تفضل برفعه على موقع خارجى كهذا : https://www.mediafire.com/

اهلا بك اخى الكريم فى المنتدى تفضل هذان برنامجان مهمان بارك الله فيك ArabicBudgetPlanner.xls برنامج المصروفات الاصدار الثالث 2015.xlsm

تفضل اخى الكريم بعد عمل فولدر بإسم نعم واخر بإسم لا جرب الكود الموجود بالملف واعمل حفظ فى المكان الذى تحدده من الفولدرات التى قمت بعملها بارك الله فيك Backup.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل الملف بدون حماية FindAll.xlsm

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

وعليكم السلام اهلا بك اخى الكريم أحمد فى المنتدى-كان عليك استخدام خاصية البحث فى المنتدى فهناك موضوعات مشابهة لموضوعك ومنها : https://www.officena.net/ib/topic/51238-ادخال-بيانات-في-ورقة-اكسل-من-اكثر-من-شخص-في-نفس-الوقت/ https://www.officena.net/ib/topic/46928-هل-ممكن-رفع-ملف-اكسيل-على-الانترنت-والتعامل-معه/?page=2 كما ان هناك عدة فيديوهات لهذا ومنها : https://www.youtube.com/watch?v=73_YJEg3FtU https://www.youtube.com/watch?v=0ZnnPiW25GQ https://www.youtube.com/watch?v=rVse23rIS4A وهناك ايضا مواقع خارجية تناولت هذه الجزئية من الموضوعات ومنها : http://excel-egy.com/forum/t49 https://www.techonthenet.com/excel/questions/shared.php https://www.ablebits.com/office-addins-blog/2017/08/02/excel-shared-workbook-share-file-multiple-users/ اتمنى ان تكون مفيدة لك بارك الله فيك

تفضل لك ما طلبت اسم المستخدم : gasio كلمة المرور :123 زيوت جدول السيارات .xlsm

وعليكم السلام -تفضل اخى الكريم ترحيل.xlsm

تفضل بعد اذن الأستاذ أحمد تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

وعليكم السلام تفضل Report.xlsm

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

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

اخى الكريم هذه المشكلة من عندك انت وليس انا لأنك قمت بكتابة اسم مخالف لما هو وارد بالقائمة المنسدلة وغير مساوى له لذلك قمت بعمل نفس القائمة المنسدلة ايضا فى صفحة يومية الصندوق لإختيار الإسم من القائمة عند إدخال البيانات الجديدة واذا كان هناك وجود لإسم جديد غير موجود بالقائمة عليك فقط اضافته فى العمود Q من صفحة يومية الصندوق وسيضاف الإسم الجديد مباشرة الى القائمة ملحوظة : لا تنسى ان هذه المعادلات صفيف -بمعنى لابد من الضغط على Ctrl+Shift +Enter وليس Enter فقط كباقى المعادلات تفضل التعديل التعديل الرابع.xlsm

وعليكم السلام تفضل تم الحل بمعادلات الصفيف بعد عمل القائمة المنسدلة التعديل الرابع.xlsm

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