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

هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 123 للتحميل : 🙂 قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور.accdb

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

مميزات التقويم 1-هجري / ميلادي 2- يمكن البحث بالسنوات الهجرية ما بين 1318 و 1500 3- يوضح بالألوان فصول السنة 4-حسب تقويم أم القرى المعتمد من مدينة الملك عبدالعزيز للعلوم والتقنية 5-إمكانية إضافة المواعيد والمهام وتعديلها وحذفها 6-يوفر فرز للمواعيد والمهام القادمة والفائتة 7- يميز مواعيد والمهام المنفذة والفائتة 8- في التقويم يميز اليوم الموجود فيه موعد أو مهمة غير منفذة 9-يمكن تسجيل المواعيد والمهام بالتاريخ الهجري أو الميلادي تم تعديل الملف ليناسب الجميع التقويم.xlsx

شكرا لكلماتك الطيبة أخي الكريم كما قلت سابقا هذه المعادلة للبحث بأكثر من شرط ورقم 1 يعني أن الدالة تبحث عن رقم 1 في نتائج مطابقة الشروط التالية ونضع الشروط في الجزء الخاص بدالة match على صورة (المدى=الخلية) لاحظ الأقواس حول المدى والخلية المراد مطابقة المدى لها ثم علامة الضرب * ثم باقي الشروط وتعني النجمة المعامل and يعني تحقق جميع الشروط (حيث أن نتيجة تحقق الشرط هي إما 1 أو 0 فإذا ضربنا 1 * 1 * 0 يعني تحقق شرطين ولم يتحقق الثالث تكون النتيجة صفر وهكذا يجب تحقق جميع الشروط ليجلب نتيجة البحث) وإذا أردت معامل المقارنة Or يمكنك استعمال علامة الجمع + بدلا من علامة الضرب * بين الشروط (أما في حالة + فيكفي تحقق شرط واحد فقط من الشروط ليجلب نتيجة البحث) بالتوفيق

تم فصل ما يخص التقرير بعنوان جديد هنا

نصيحتي لك اذا تأخذ بها : ابق على تقريرك ، فأنا ارى لا مشكلة في وجود الحقول الفارغة او يوم الخميس لأن العملية سهلة وسلسة .. وخفيفة على البرنامج حاولت اطبق ما تفكر به وخرجت بنتيجة غير مرضية وتوقفت فقط في عرض النموذج فهو يعرض من اليسار .. حاولت وحاولت ولكني لم اصل للحل المهم العملية تتم كالتالي : 1- الاستعانة بجدول مؤقت يتم حذفه والحاقه عند كل عملية 2 - عمل استعلام جدولي لترتيب العملية .. ثم الحاق البيانات في الجدول المؤقت 3- صعب جدا عرض المادة والمعلم كما في النموذج .. فقمت بدمج المادة ومعلمها في حقل واحد 4- تصميم تقرير مؤقت بواسطة الاكواد يأخذ البيانات من الجدول المؤقت عند عملية التحديث 5- ايضا التقرير المؤقت يتم حذفه عند كل عملية تحديث ، ولكنه يبقى قابل للعرض ما لم يتم التحديث عندما تفتح المثال وتجرب لا تشعر بكل ما ذكر اعلاه من اجل كل هذا اعطيتك رأيي بان تبقى على تقريرك الخفيف المليح times25.rar

ضع هذا التعديل على دالة الأستاذ محمد لتدعم الصفيف أو اضغط شيفت+ كنترول + انتر =INDEX('m cost'!$E$3:$E$1062;MATCH(1;INDEX((('m cost'!$B$3:$B$1062=C3)*('m cost'!$C$3:$C$1062=O3)*('m cost'!$D$3:$D$1062=N3));0);0))

It is just one line of code and you can do it yourself. Refer to the desired range using Range property like that Range("A1:C10") Of course change the reference to the reference you need then use ClearContents method so the line should look like that Range("A1:C10").ClearContents The line will be added to the end of the code after trasnferring data before this line Application.Goto .Range("AM" & m), True Don't forget to change the reference A1 to C10 to the range you desire to clear its contents which should be F10:O & the last row (lr variable)

لم افهم عليك هل تريد جدول للدائن والمدين لكل منطقة حسب الفئات ؟؟؟؟ انظر الصورة .... مبلغ الدائن ومعروف هي الخلاصة السابقة أما المدين اين هي من الجدول السابق ؟؟؟؟ عذرا على عدم الفهم ... ممكن توضيح !!!! 🙃

جزاكم الله خيراً بميزان حسناتكم إن شاء الله

شوف هذا التقرير

بارك الله فيك وزادك الله من فضله

الشايب يرفع الراية البيضاء ويقول لكم العين لا تعلو على الحاجب وانتم اساتذتنا 🌹

Try this code Sub Test() Dim ws As Worksheet, r As Long, lr As Long, i As Long, j As Long, m As Long Application.ScreenUpdating = False Set ws = Sheet1 ReDim a(1 To 1000, 1 To 17) With ws lr = .Cells(Rows.Count, "B").End(xlUp).Row For r = 10 To lr If Application.WorksheetFunction.CountBlank(.Range("E" & r).Resize(, 11)) <> 11 Then i = i + 1 For j = 2 To 18 a(i, j - 1) = .Cells(r, j).Value Next j End If Next r If i > 0 Then m = .Cells(Rows.Count, "AM").End(xlUp).Row + 1 m = IIf(m = 5, 9, m) .Range("AM" & m).Resize(i, UBound(a, 2)).Value = a Application.Goto .Range("AM" & m), True End If End With Application.ScreenUpdating = True MsgBox "Done", 64 End Sub

وعليكم السلام ورحمه الله وبركاته تفضل اخى Option Explicit Sub Tarhil() Dim WS As Worksheet, SH As Worksheet, ARR, LR As Long, P As Long, i As Long, J As Long, K As Long, R As Range Set WS = ThisWorkbook.Worksheets("التسجيل") Set SH = ThisWorkbook.Worksheets("التقيم") LR = Cells(Rows.Count, 1).End(xlUp).Row P = 1 ARR = WS.Range("A10:R" & WS.Range("A" & Rows.Count).End(xlUp).Row).Value ReDim Temp(1 To LR + 1, 1 To UBound(ARR, 2)) For i = 1 To UBound(ARR) For J = 5 To 15 If ARR(i, J) <> "" Then Temp(P, 1) = WorksheetFunction.Max(Columns("AM")) + P For K = 2 To 18 Temp(P, K) = ARR(i, K) Next K If R Is Nothing Then Set R = WS.Cells(i + 9, 1) Else Set R = Union(R, WS.Cells(i + 9, 1)) End If P = P + 1 Exit For End If Next J Next i If Not R Is Nothing Then R.EntireRow.Delete With SH If P > 0 Then .Columns("AP").NumberFormat = "@" .Columns("BC").NumberFormat = "[$-F800]dddd, mmmm dd, yyyy" LR = Application.Max(2, .Cells(Rows.Count, "AM").End(xlUp).Row) .Range("AM" & LR).Resize(P - 1, UBound(Temp, 2)).Value = Temp End If End With End Sub

يوجد ملف لأم القرى باسم: EventsCalendar_20070118.rar تم رفع الملف هنا لتمام الاستفادة EventsCalendar_20070118.xlsm

بارك الله فيكم

وعليكم السلام قد يفيدك أحد الموضوعين التقويم الدراسي والمواعيد وتنظيم الأعمال والمشاريع هدية للأعضاء والزوار تقويم أم القرى المميزالاصدار الأول

السلام عليكم 🙂 اما انا فمستمتع ، شايب يطالع شايببن يتناقشوا جعفر

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

يمكنك استعمال هذه المعادلة في الخلية K3 للبحث بثلاثة معايير : اسم الصنف والشهر والسنة =INDEX('m cost'!$E$3:$E$1062,MATCH(1,('m cost'!$B$3:$B$1062=C3)*('m cost'!$C$3:$C$1062=O3)*('m cost'!$D$3:$D$1062=N3),0)) بالتوفيق

1- جدول للمخازن 2- جدول للرفوف يشتمل على معرف للمخازن من اجل الربط 3- جدول الاصناف يشتمل على معرف للرفوف من اجل الربط

ما رأيك بهذا مثال بسيط وجدته عندي ، علما اني لا استخدم هذا النهج في اعمالي ، وإنما استخدم طريقة قريبة من عمل الاخ بسام دخول.rar

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

بما انك مستجد على اكسس فانصحك باتباع الطرق الصحيحة عند كتابة العناصر وكافة الكائنات بحروف انجليزية حتى لو ان المعنى عربي من اجل يسهل عليك قراءة وفهم الاكواد ايضا من الاشياء الجميلة تمييز كائنات قاعدة البيانات عن بعضها بحيث انك حين ترى الاسم داخل الأكواد تعرف انه جدول او استعلام او نموذج او تقرير بحيث نكتب بادئة الاسم على النحو التالي : tbl للجداول qry للاستعلامات frm للنماذج reb للتقارير تم التعديل وعمل اللازم لا حظ انك لن تتمكن من فتح والدخول الى نموذج المستخدمين الا اذا دخلت باسم Bassam تجريب2.rar

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

يعنى تنسيق الخط في الرصد 48 بيبقى في الشيت بردو 48

شكرا اخى الكريم لكن لو تكرمت معاليك عايز الغي التنسيق اللى بتنسخ به من الشيت

بارك الله فيك وزادك علماً

بارك الله فيك وشكرا

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

جزاك الله خيرا على الهدية

بارك الله فيك وزادك الله من فضله

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة جعل الإكسل يقوم بتحديد صف واحد في عدة ورقات تم ارفاق كود الحل من الفاضل ا / عمر الحسينى_أبو تامر مرفق الملف ______________________.rar و تعديل على الملف من الفاضل ا / أبوعبد الله مع كود تنقل بين الصفحات مرفق الملف ACTIVATE_ALL_SHHETS_OR_SELECT_ONE.rar و لا تنسونا من صالح الدعاء تحياتى

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