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

هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 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

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

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

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

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

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

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

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى ) للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه اكواد منفصله الخاصه الطباعه و التنقل بين الصفحات و الهايبر لينك فورم طباعة عن طريق LISTBOX _ أ / ضاحي الغريب معلومة (2) : كيف تجعل الصفحة تبدأ من خلية معينة _ أ / الحسامي _ رحمه الله عمل قائمة بأسماء شيتات الملف _ أ / الحسامي _ رحمه الله ليست باسماء الاوراق بالكود ما عدا اربع ورقات _ أ / الحسامي _ رحمه الله بالفورم و دبل كليك_التنقل بين عدد كبير من الصفحات _ أ / الحسامي _ رحمه الله _ مشاركة_ أ / عادل حنفي بالكود و معادلات تحويل صفوف قاعدة بيانات الى اعمده _ أ / الحسامي _ رحمه الله _ و مشاركات الاعضاء تعبئة الكومبوبوكس بأسماء أوراق العمل وتنشيط ورقة العمل عند اختيار اسم ورقة العمل منها _ أ / ياسر خليل أبو البراء طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ _ _ أ / ياسر خليل أبو البراء البحث عن الخلايا المدمجة بطرق مختلفة _ أ / ياسر خليل أبو البراء بالكود_التحكم فى اظهار و اخفاء شريط الادوات _ أ / عبدالله باقشير اعداد تقرير من نطاق معين اتوماتيكيا من خلال فورم _ أ / عبدالله باقشير فورم اعداد تقرير باختيار رؤوس الاعمده _ أ / عبدالله باقشير _ عادل حنفي جدول دينامكى_اضافة سطر جديد مع الترصيد_اوتو _ أ / عبدالله باقشير اضافة عناصر الى فورم_تنقل بين الصفحات _ أ / عبدالله باقشير كود_بالفورم إخفاء وإظهار للصفحات _ أ / عبدالله باقشير بالكود_فورم اظهار و اخفاء ورقة العمل _ أ / عبدالله باقشير بالكود_ادراج ورقة عمل لكل اسم حساب جديد _ أ / عبدالله باقشير بالكود_طريقتين لنسخ ورقة العمل مع اعادة التسمية _ أ / عبدالله باقشير اضافة ورقة جديدة لها ارتباط تشعبي _ أ / عبدالله باقشير اكواد متعدده للصفحات ( انشاء جديد_حذف_انتقال ) _ أ / عبدالله باقشير الانتقال الى اوراق العمل بواسطة كود واحد _ أ / عبدالله باقشير اليكم طريقة الاستغناء عن الصفوف الخالية اثناء الطباعه _ _ أ / محمود الشريف طباعة متعددة بالاختيار مع شرح الكود_ أ / محمد مصطفى ابو حمزة كود يمنع التنقل اليدوى بين صفحات الاكسل _ ا / أكرم الغامدي طباعة تسلسلية _ بطاقة معلومات _ ا / سالم شباني قائمه منسدله باسماء الاوراق _ ا / ابو اسامة العينبوسي فورم_كود اظهار و اخفاء للصفحات _ ا / ابو اسامة العينبوسي استعرض خطوطك _ FONT _ ا / ابو اسامة العينبوسي فورم ظاهر للتنقل في جميع الأوراق _ ا / زياد علي إنشاء صفحة فهرس أو جدول لمحتويات مصنف _ ا / زياد علي الخروج السريع _ ا / زياد علي Delete Blank Rows _ ا / زياد علي Insert-Delete Rows with formulas _ ا / زياد علي قطع جميع الاتبارطات بمصنف العمل !! _ ا / زياد علي فرز حسب اسماء الصفحات بالمصنف _ ا / زياد علي فورم للبحث عن واختيار ورقة يمكن استدعائه من أي ورقة إذا قمت بإغلاقه _ ا / أبوعبد الله_اكسلجى فورم لاختيار ماتريد إخفائه أوإظهاره من أوراق وإمكانية استدعائه من أي مكان _ ا / أبوعبد الله_اكسلجى فورم بحث عن ورقة بأي حروف من أي جزء بإسم الورقة وتفعيلها _ ا / أبوعبد الله_اكسلجى كود جاهز_لعمل اطار(سطر تحديد) مع اخر سطر به بيانات _ ا / أبوعبد الله_اكسلجى طباعه تسلسليه _payroll _ ا / أبوعبد الله_اكسلجى فورم_معرفة تاريخ و وقت اضافة و انشاء ورقة عمل جديده _ ا / أبوعبد الله_اكسلجى فرز الأوراق حسب الإسم تصاعدياً وتنازلياً وحسب لون شريط العنوان _ ا / أبوعبد الله_اكسلجى كود_إخفاء الصفوف والأعمدة الفارغة عند الطباعة __ ا / أبوعبد الله_اكسلجى و ا / عادل حنفي كود لإضافة طابعة أخرى بأيقونة بشريط أدوات الإكسيل تعمل بخاص _ ا / أبوعبد الله_اكسلجى كود مميز_عمل ورقة عمل Active Sheet On Air_لجميع اوراق العمل بالملف( صورة طبق الاصل ) _ ا / أبوعبد الله_اكسلجى _ ا / عمر الحسينى_أبو تامر فورم_كود التنقل بين الصفحات مع تنشيط الصفحة _ ا / أبوعبد الله_اكسلجى بالكود_بالفورم و الكمبوكس التنقل بين الصفحات مع تنشيط الصفحة المختارة _ ا / أبوعبد الله_اكسلجى _ ا / عمر الحسينى_أبو تامر بالكود_اضافة ورقة عمل جديده منسوخه من شيت بتسميه جديده _ ا / أبوعبد الله_اكسلجى كود التنقل الى اي صفحة في ملف اكسيل _ ا / محمدي عبد السميع كود طباعة بعد المعاينة _ ا / محمدي عبد السميع فورم بسيط لاضافة شيت او عدة شيتات دفعة واحدة ..._ ا / حمادة عمر كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت _ ا / حمادة عمر ميكس _ فورم اضافة شيتات ملف اكسيل و التنقل بين الصفحات _ ا / حمادة عمر _ جلال الجمال_ابو أدهم بالفورم _ ادراج شيت باسم محدد بالفورم _ ا / حماده عمر _ معتصم محمد إضافة شيت جديد بإسم محدد وفقاً لشروط محددة _ ا / معتصم محمد كيف اعمل زر انتقال من مكان الى اخر _ ا / قنديل الصياد كود لاظهار الشيتات المخفية فى اكسل _ ا / قنديل الصياد فورم لإستبدال كلمة فى صفحات محددة أو فى جميع الصفحات _ ا / رجب جاويش طباعة صفحات مسلسلة بناءً على تحديد عددها في خلية _ ا / رجب جاويش هدية متواضعة ( هايبر لينك متقدم ) _ ا / ابو اياد ( الاسيوطى ) اضافة عدد صفحات باي عدد تريده _ ا / عادل حنفي اضف شيتات باسماء خلايا معينه _ ا / عادل حنفي عمل ملف للعملاء مع القدره علي معرفة رصيد كل منهم _ ا / عادل حنفي الجدول الديناميكي _ ا / عادل حنفي بالكود_ طباعة شيت بدون الوان على طابعه ملونه _ ا / حسام نور التنقل بين الصفحات بالفورم من مشاركات الاعضاء معاينة الطباعة عن طريق ليست بوكس _ ا / خزاني اكواد طباعه متنوعه_ لتحديد مدى الطباعه من مشاركات الاعضاء فورم للتنقل بين الشيتات _ ا / أبو حنــــين _ أبوعيد طباعة ذكية لورقات العمل في أكسل مع ترصيد الصفحه _ ا / سليم حاصبيا كود ترقيم تلقائى للصفحات_تجميع و تقسيم الصفحات _ ا / سليم حاصبيا كود واحد للتنقل بين اوراق الملف _ ا / احمدزمان كود جاهز_عمل هايبر لينك لعدد كبير من الشيتات _ ا / يحيى حسين كود طباعة بترقيم تلقائي للصفحات _ ا / محمد الزريعي تجميعة ملفات خاصه باضافة اوراق عمل و ترحيل بين الصفحات _ مشاركات الاعضاء بالكود و المعادلات_عرض اسم ورقة العمل في خلية _ مشاركات الاعضاء كود للمعاينه قبل الطباعه مع اخفاء و اظهار الاعمده مجموعها = zero _ مشاركات الاعضاء كود ترتيب اسماء الصفحات تصاعديا و تنازليا _ مشاركات الاعضاء

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

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