ياسر خليل أبو البراء

الأخ الحبيب صلاح الصغير الأخ الغالي زيزو العجوز مشكور على مروركما العطر .. تقبلا تحياتي

أخي الغالي عبد العزيز مشكور على مرورك العطر جزاكم الله خير الجزاء وبارك الله فيك

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

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

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

السلام عليكم ورحمة الله وبركاته أقدم لكم موضوع بسيط جداً ومهم جداً ومفيد جداً ... وإن شاء الله بعد الإطلاع على الموضوع من قبلكم سيتم ضربي ضرباً مبرحاً جداً أكواد البداية والنهاية (على وزن سلسلة البداية والنهاية للعلامة ابن كثير) الموضوع يتلخص في كلمتين .. لما يكون عندك كود بيستغرق وقت طويل في التنفيذ ، دا بيرجع أسبابه لعوامل كثيرة ، لن نتظرق إليها لأنه موضوع يطول شرحه .. فجئت إليكم بحل بسيط وفعال ..الحل كالتالي .. تضع الكود التالي (كود البداية وكود النهاية) في موديول دا كود البداية Public Sub YK_Start() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual End Sub ودا كود النهاية Public Sub YK_End() Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub وكلا الكودين مسبوقين بكلمة Public عارفين ليه ؟ عشان تقدر ببساطة تضع الكودين في أي موديول وتستدعيهم من أي موديول آخر كود البداية بيلغي تحديث الشاشة ورسائل التنبيه ويلغي تفعيل الحدث ويخلي الحسابات بشكل يدوي وكود النهاية بيرجع اللي فات للإعدادات الأصلية في الملف المرفق مثال .. كود يقوم بعمل حلقة تكرارية لـ 100000 صف تم استدعاء كود البداية في البداية وكود النهاية في النهاية .. والاستدعاء تم بمحضر من القسم والمحضر مكتوب فيها كلمة واحدة Call يليها اسم الكود المراد استدعائه Sub LoopExample() Dim Cell As Range Call YK_Start Columns("B:F").ClearContents For Each Cell In Range("A1:A100000") Cell.Offset(, 1) = Cell.Value + 1 Cell.Offset(, 2) = Cell.Value + 2 Cell.Offset(, 3) = Cell.Value + 3 Cell.Offset(, 4) = Cell.Value + 4 Cell.Offset(, 5) = Cell.Value + 5 Next Cell Call YK_End End Sub وممكن نستغنى عن الكلمة Call ونكتب اسم الإجراء بشكل مباشر ، بس أنا تقليدي وأحب الالتزام بالتقاليد وأحبذ استخدام كلمة Call وضعت لكم بالملف المرفق كود آخر هو الذي سيتم تنفيذه من خلال ورقة العمل ، يقوم الكود بحساب الوقت المنقضي نفذ الكود ستجد أن الكود يستغرق حوالي 10 ثواني لحظة انتظر من فضلك لا تغلق الملف .. جرب التجربة الثانية .. ضع تعليق من خلال علامة ' (حرف الطاء وإنت بتكتب إنجليزي) ضع هذه العلامة في بداية السطر 'Call YK_Start عند وضع تعليق لا يتم الالتفات إلى هذا السطر أثناء التنفيذ وضع تعليق أيضاً على السطر الخاص بكود النهاية 'Call YK_End ثم نفذ الكود ..ستجد أن الوقت المستغرق حوالي 18 ثانية (يعني أن هناك حوالي - وحوالي جمع حولية والحولية هي النعجة - أعتذر للخروج ، بس مش مشكلة تستفيدوا معلومة في العربي عشان لو طلعتوا مش فاهمين الموضوع يبقا خرجتوا بمعلومة ) ستجد أن الفرق في الوقت 8 ثواني .. يلا الحمد لله وفرنا عليكم 8 ثواني ، وإنتو أكيد عارفين قيمة الثانية وفي النهاية أرجو أن يكون الموضوع مفيد ، وأن تستفيدوا منه ، ولا تنسونا بصالح دعائكم كان معكم أخوكم الموفر للثواني ياسر خليل أبو البراء دمتم بود وتقبلوا تحياتي YK_Start & YK_End.rar YK_Start & YK_End 2003.rar

التصفية Filter او الفرز Sort .. الأمر سيان ينطبق نفس الكلام

أخي الكريم عبد العزيز قم بتغيير نوع الخط الافتراضي للفورم نفسه .. إلى نوع الخط الذي تريده بعدها ستجد أنه عند إدراج أي كائن مثل مربع نص أو عنوان ستجد أن نوع الخط الافتراضي سيكون كما اخترت للفورم

وجزيت خيراً أخي مصطفى ومشكور على دعواتك الطيبة وعلى تحديد أفضل إجابة تقبل تحياتي

بالفعل دالة قوية جداً ومعادلة في منتهى الروعة بارك الله في أخونا علي السحيب وجعل أعماله في ميزان حسناته يوم القيامة بالنسبة للشرح ...اختر المعادلة التي تريد شرحها مع إرفاق ملف واحد ..إن شاء الله سأقوم بالشرح وقم أنت بالتطبيق على ملفك

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

أخي الفاضل ارفق ملف مع توضيح المطلوب بشكل أكثر تفصيلاً

أخي الفاضل مصطفى جرب المعادلة التالية =IF(OR(AND(I8="نعم",J8<270),AND(I8="لا",J8<360)),K8*15%,IF(OR(AND(I8="نعم",J8>=270),AND(I8="لا",J8>360)),0,""))

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

الأخ الحبيب البليغ أبو يوسف معلش القطر اتأخر شوية (أصله عدى على الصيدلية فالقطرة غمزتله قام انشغل عن الطريق اتأخر .. آه من كيد القطرة) تفضل الملف المرفق تم العمل على ورقة العمل المسماة "كشف حساب" وتم جلب البيانات كما تريد ..بقي فقط عمود الرصيد ، ولأني لا أفهم الكثير في الحسابات فتركت لك المجال لتضع المعادلة المناسبة التي تحسب الرصيد .. جرب الملف المرفق وأعلمنا بالنتيجة Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim I As Long, X As Long Set WS = Sheets("اليومية"): Set SH = Sheets("كشف حساب") X = 12 Application.ScreenUpdating = False SH.Range("A12:F29").ClearContents For I = 11 To 68 If CDate(WS.Cells(I, "L")) >= SH.Cells(7, "G") And CDate(WS.Cells(I, "L")) <= SH.Cells(8, "G") Then If WS.Cells(I, "D").Value = SH.Cells(7, "D").Value Then SH.Cells(X, "A").Value = SH.Cells(X, "A").Row - 11 SH.Cells(X, "B").Value = WS.Cells(I, "D").Value SH.Cells(X, "C").Value = WS.Cells(I, "L").Value SH.Cells(X, "D").Value = WS.Cells(I, "G").Value SH.Cells(X, "E").Value = WS.Cells(I, "M").Value SH.Cells(X, "F").Value = WS.Cells(I, "N").Value X = X + 1 End If End If Next I Application.ScreenUpdating = True End Sub تقبل تحياتي بحث بالأحرف الأولى وكشف حساب أبو يوسف.rar

الأخ الفاضل سعد يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي

أخي الحبيب الموضوع يعتبر مكرر سأقوم بحذف الموضوع الآخر بالنسبة للترقيم هناك أكثر من طريقة سأكتفي بطريقة واحدة روح للتبويب View واختار Page Layout هيظهر معاك في آخر الصفحة كلمة Click to add footer اعمل كليك عليها ، هيظهر لك تبويب جديد اسمه Design وفيه كلمة Page Number ملحوظة : علامة # اللي بتظهر معاك دليل إن ورقة العمل فارغة مفيش فيها أي بيانات .. تقببل تحياتي

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

أخي الحبيب احمد الرشيدي تفضل Smallest Number Greater Than Zero.rar

بتعصب لما أسمع 2003 (مع احترامي لكل الأعضاء الذين ما زالوا يستخدمون الأوفيس العجوز ..!!) خليكوا في الأوفيس الشباب ..ربنا يفتح عليكم من بركاته

الأخ الكريم سعد زياد أهلا ومرحبا بك في المنتدى ومنور يا صاحبي يرجى فيما بعد إن شاء الله أن تضغط الملف نفسه وترفعه بدلاً من إرفاق صورة إليك الملف التالي عله يفي بالغرض يوجد بالملف المرفق 5 معادلات بالنسبة للمعادلات المكتوب بجانبها كلمة Array Formula عند كتابتها يجب الضغط على Ctrl + Shift + Enter لأنها معادلات صفيف عندك 5 اختار اللي تعجبك (ممكن يكونوا أربعة مفيش مشكلة بس 5 مع بعض لا مينفعش .. الشرع محللك أربعة بس ) تقبل تحياتي Smallest Number Greater Than Zero.rar

أخي الكريم أسامة .. الاستفسار الأول : وجدت بالملف المرفق 3 تواريخ .. وفي شرحك للمطلوب أفهم أن العمل على تاريخين .. وضح .. هل العمل سيكون على تاريخين فقط (وما هما إذا كانت الإجابة بنعم ) وإذا كان العمل على 3 تواريخ فكيف سيتم التعامل مع التواريخ الثلاثة؟ استسفسار آخر .. الملف المرفق النتائج التي به صحيحة ؟؟ وأنت تريد اختزال هذا الكم من المعادلات ؟؟!!

أخي الفاضل ارفق ملف لتجد المساعدة من الأخوة الكرام بالمنتدى

ارفق ملفك الذي به المعادلة التي تستفسر عنها للإطلاع عليه رقم العمود بيكون خاص بالخلية اللي فيها المعادلة ..يعني لو المعادلة في الخلية C14 مثلا يبقا رقم العمود C هو 3 .. بشكل مبدئي بعد كدا بتروح لورقة البيانات الأساسية وتشوف رقم العمود المطلوب جلب بياناته .. فلو كان رقم العمود 26 يبق بتزود 23 على 3 عشان توصل رقم 26 أرجو أن تكون وضحت الفكرة

اطلعت على الملف المرفق رقم 11 والأرقام منضبطة .. هل تقصد ملف مرفق آخر به هذه المشكلة الغير منطقية ؟؟