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

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

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

الف الف شكر لك و للجميع اخي الكريم في خدمتكم دائما و لن نتكم علم انعم الله به علينا شكرا لك فالمشاعر تعجز عن التعبير في هذا الموقف

وعليكم السلام 🙂 لا تستخدم دوال Dsum, Dlookup, Dcount ..... في الاستعلام ، فأنت تكون قد حكمت على الاستعلام بالبطئ الشديد !! اعمل اول استعلام ، يكون استعلام مجاميع واجمع فيه (بدل Dsum) ، ثم اعمل استعلام آخر ، يكون احد مصدر بياناته هو استعلام المجاميع اعلاه ، ومصادر البيانات الاخرى ، واعمل بينهم علاقة حتى تكون السجلات صحيحة 🙂 جعفر

في نهاية الكود اضف هذا السطر كما في الصورة بهذه الطريقة يقوم البرنامج بازالة التكرارات في الصفوف اوتوماتيكياً (دوت ان تشغر بذلك)

1- العامود G يحتوي على معادلات لذلك لا يتعبر الكود خلاياه فارغة 2-لا حاجة الى كل هذا الحلقات التكرارية المدوبلة (على كل خلية في كل صف و كل عامود لفحصها اذا كانت فارغة او لا) 3- الكود المطلوب (بشكل أفضل بدون حلقات تكرارية) تم تغيير اسماء الصفحات الى اللغة الاجنبية (لحسن نسخ الكود ولصقه بدون مشاكل اللغة العربية) Sub salim_cod() Dim lrS%, lrM% Dim S As Worksheet Dim M As Worksheet Dim S_rg As Range, Ful_rg As Range Set S = Sheets("Source"): Set M = Sheets("MW") lrS = S.Cells(Rows.Count, 1).End(3).Row If lrS < 6 Then MsgBox "No Data To Transfer": Exit Sub End If S.Range("A6:F" & lrS).Interior.ColorIndex = xlNone On Error Resume Next Set S_rg = S.Range("A6:F" & lrS).SpecialCells(4) If Not S_rg Is Nothing Then S_rg.Interior.ColorIndex = 35 MsgBox "You have Empty Cells": Exit Sub End If On Error GoTo 0 lrM = M.Cells(Rows.Count, 1).End(3).Row + 1 M.Cells(lrM, 1).Resize(lrS - 5, 7).Value = _ S.Range("A6:G" & lrS).Value Set Ful_rg = M.Range("a5").CurrentRegion If Ful_rg.Rows.Count > 1 Then Set Ful_rg = Ful_rg.Offset(1).Resize(Ful_rg.Rows.Count - 1) With Ful_rg .ClearFormats .Borders.LineStyle = 1 .InsertIndent 1 .Font.Bold = True .Font.Size = 14 .Columns(1).NumberFormat = "dd/mm/yyy" End With End If End Sub الملف مرفق Ahma_Halim.xlsm

شكرا لكم اخواني على هذه الكلمات الطيبة و الأخوية

اذا اردت يمكنك اخفاء العامود حيث نتيجة ( مقبول وغير مقبول ) او يمكن عمل هذا بالماكرو كي بعطبنا فقط الأعمدة المطلوبة الماكرو المطلوب لهذه الحالة Option Explicit '+++++++++++++++++++++++++++++++ Sub transfer_data_ًWithout_J() Dim D As Worksheet Dim Rg As Range Dim arr(), arr_sh() Dim i As Byte, X% Application.ScreenUpdating = False arr = Array("مقبول", "غير مقبول") arr_sh() = Array("المقبولين", "غير المقبولين") Set D = Sheets("DATA"): Set Rg = D.Range("C5").CurrentRegion X = D.Cells(Rows.Count, 3).End(3).Row For i = 0 To 1 Sheets(arr_sh(i)).Range("C5").CurrentRegion.ClearContents Rg.AutoFilter 8, arr(i) D.Range("C5:i" & X).SpecialCells(12).Copy Sheets(arr_sh(i)).Range("C5").PasteSpecial (12) Next D.Select If D.AutoFilterMode Then Rg.AutoFilter Application.ScreenUpdating = True End Sub الملف مرفق للحالتين Mohammed_New.xlsm

تفضل المرفق الجديد يتم اظهار الليست واخفائها بناءا على البيان المدخل تجارب.rar تحياتي

تفضل هذا التعديل اخي الكريم اضغط مزدوج على السيارة للاختيار تجارب.accdb

السلام عليكم هذا البرنامج يسهل عملية الاختبار للطالب بالحاسوب الاسئلة من نوع اختيار من متعدد و صح وخطا عندما تفتح البرنامج تظهر لك صفحة الطالب ولاظهار صفحة المعلم انقر يمين الماوس واكتب 123 سيتم فتح صفحة المعلم بجيث يستطيع وضع الاسئلة وكتابة اسماء الطلاب والتحكم في عدد الاسئلة ومدة كل سوال تفضلوا الاختبار الحاسوبي.xlsm

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

برنامج مراقبة الدفاتر اليدوية مفتوح المصدر اهداء لموقع اوفيسنا رقم المستخدم -1 كلمة المرور officena بامكانك اضافة مستخدم وكلمة مرور من جدول المستخدمين T_USERS المطلوب منكم الدعاء لي ولوالدي البرنامج في المرفقات برنامج مراقبة الدفاتر اليدوية.rar

جرب هكذا Microsoft Office Access 2007 قاعدة بيانات جديد __.rar

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

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

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

اعرض الملف access 2010 vba access 2010 vba صاحب الملف famokad تمت الاضافه 18 أغس, 2020 الاقسام قسم الأكسيس

جرب هذا الملف Moustafa Top 10.xlsx

وعليكم السلام ورحمة الله وبركاته شكراً على المعلومة المفيدة، أضف أنه يمكنك بطريقة ثانية، وهي: 1- الضغط على أحد التعليقات الجانبية. 2- النقر من لوحة المفاتيح على الأزرار التالية معاً Ctrl + Shift + End وعندها سيتم تحديد كافة التعليقات، وستستطيع التحكم بها كما تشاء.

اظن ان الملف الثاني افضل جزاك الله كل خير يا استاذنا الكبير سليم اظن ان الملف الثاني يفي بالغرض كل التحية والحب والاحترام لمجهودك الرائع .

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب المرفق التالي New Microsoft Access Database (3) - Copy.rar تحياتي

بحمد الله وفضله، بعد عدة محاولات وجدت الحل، وسأنقله للاستفادة الضغط على أحد التعليقات الجانبية. الضغط على لوحة المفاتيح Ctrl + Shift + s (قائمة الأنماط). اختيار تعديل، ومن ثم الضغط على اللغة العربية. عدل بحجم ونوع الخط كما تريد. ستلاحظ أنه سيتغير بجميع التعليقات بالمستند. دمتم بخير

تفضل التعديل اخي الكريم التاريخ.rar ماشاء الله مبددددع عجبتني جدا الفكرة مختصرة و عملية

بالتوفيق اخي الكريم واعذرني لعدم تفهم الموضوع من البداية تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم التاريخ.rar تحياتي

ما كل هذا الجمال استاذ سليم حاصبيا جعله الله في ميزان حسناتك شئ رائع حقا .. اكن لك كل احترام وتقدير 💚💯

باذن الله تكون هذه الصيعة النهائية Monthx3: IIf([DATE2]<=#30/08/2016#;0; IIf([DATE1]>=#01/09/2016#;DateDiff("m";[DATE1];[DATE2]);DateDiff("m";#01/09/2016#;[DATE2])) ضريبة.rar تحياتي

استبدل السطر التالي For Each ctl In Me("menu" & i).Controls بهذا For Each ctl In Me("subfrm" & i).Controls مع تغيير اسم النموذج الفرعي subfrm للاسم الذي لديك تحياتي

تفضل اخي الكريم Monthx3: IIf([DATE2]<=#01/09/2016#;0;DateDiff("m";#01/09/2016#;[DATE2])) ضريبة.rar تحياتي

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

اذا لاحظت قمت بفصل الجدول عن بقية البيانات بواسطة صف فارغ (الصف رقم 4) عامود فارغ (العامود B) بهذه الطريفة يتعرّف الاكسل على البيانات التي نريد العمل عليها بمعزل عن باقي خلايا الشيت و بذلك يكون الجدول مستقل عن كل شيء لا يخصّه (بيدأ من الخلية C5 وينتهي عند احر صف غير فارغ) بعرض 8 أعمدة من C الى J كل جدول في اكسل يجب ان يكون بهذه المواصفات (حدوده صف فارغ و عامود فارغ ولا يحتوي على خلايا مدمجة) على فكرة تم ايضا ازالة الخلايا المدمجة من النطاق F5:G5 الخلايا الصفراء أما لماذا استعملت الخلية C5 وليس B5 لان بكل بساطة بعد ما قمت به اصبحت الخلية B5 فارغة

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

تفضل اخي الكريم تجارب.rar تحياتي ما شاء الله عليك استاذنا وعذرا لم انتبه لردك الكريم تخياتي

جرب =NZ(DSum("[chemical_element]","Qlaboratory","[typeelement]='active'"),"0")

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

ملف احر اكثر توضيحاً (يسمح لك بقص الفواتير كل واحدة منفردة ) و ذلك بوضع صف فارغ تحتها وعامود فارغ الى جانبها) اذا كانت هناك فواتير فارغة لا تطبع Mhd_Sr.xlsm

وعليكم السلام ورحمة الله وبركاته يعمل بشكل جيد برجاء توضيح المشكلة التي تظهر معك تحياتي

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

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

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

أمامنا جدول مع بيانات مختلفة 1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية 2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات 3-لإضافة بيانات على الجدول انقر على اول صف فارغ وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف كاملاً ببياناته 4 قيم) ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top كل بمفرده الا من خلال الماكرو الرئيسي SelectionChange الماكرو Option Explicit Dim Lr%, Rng As Range '========================== Sub Make_On_Top() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 With ActiveSheet .Range("z1") = Cells(3, ActiveCell.Column) .Range("z2") = ActiveCell.Value .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2") .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8 End With Exit_Sub: End Sub '================================== Sub Reset() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Exit_Sub: End Sub '=========================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Lr = Cells(Rows.Count, 1).End(3).Row Set Rng = Range("A3:D" & Lr) If Not Intersect(Target, Rng) Is Nothing And _ Application.CountA(Range(Cells(Target.Row, 1), _ Cells(Target.Row, 4))) = 4 _ And Target.Cells.Count = 1 Then If Target.Row = 3 Then Reset Else Make_On_Top End If End If Range("z1:z2").Clear End Sub الملف مرفق Super Adv_Filter.xlsm

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

لعنوان يدل على الموضوع مثلا: 250 جنيه ممكن يكونوا: 1- 5 أوراق من فئة 50 جنيه 2- 25 ورقة من فئة 10 جنيه ..... الخ أقل عدد من الاوراق 3 2 من فئة 100 و واحدة من فئة 50 لنرى كيف اكسل يحل هذه المسألة ملاحظة :جاري العمل على نفس الموضوع لكن بواسطة المعادلات دعواتكم بالتوفيق أهم شيء الملف مرفق monney.xlsm

بداية كل عام وانتم والأمة العربيّة والاسلامية بخير طلب مني احد الأصقاء تنظيم الديون في محله لمعرفة كل زبون ما عليه بالاضافة الى جرد ديون زبون محدد (حسب الاختيار من قائمة منسدلة) فكان هذا الملف الذي عسى ان يستفيد منه اكبر عدد من الأعضاء ورقة العمل محمية لعدم العبث بالمعادلات عن طريق الخطأ في الملف (بدون باسبوورد) تستطيع الكتابة فقط في العامودين C & D حتى الصف رقم 100 و استخدام القائمة المنسدلة في الخلية F2 لتوسيع نطاق العمل يجب التعديل على المعادلات و هذا شيء بسيط لمن يريد نطاق أكبر للعمل الأسماء في جدول الجرد مرتبّة حسب قيمة الديون تنازلياً (وهنا المعادلات تلعب دورها) اذ انه ليس مجرد SumIfs القائمة المنسدلة في F2 "مطاطة" بمعنى انها: 1-تتجاهل الفراغات 2- لا تذكر الاسم المكرر الا مرة واحدة 3- تستجيب لاي تعديل او تغيير في الجدول الرئيسي Salim_Sum WITH PROTECTION.xlsx

الاخ ابو عادل اليك المطلوب مفتوح بدون سرى وهى من اعمال الاخ خبور على الرابط التالى محفظة اكواد1.rar

السلام عليك اخي الكريم وبعد اذن الاستاذ سليم جرب المرفق التالي زيادة لاثراء الموضوع اذا كان نسابك الحل اضغط افضل اجابة ليكون الموضوع منتهي IPADR ZOUHIR.rar

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