عبدالله باقشير

السلام عليكم طلب للاخ ياسر سالم في المشاركة http://www.officena.net/ib/index.php?showtopic=26883 جعلتها هنا لاستفادة الجمع __________________________________.rar

السلام عليكم ملاحظة: في حالة وجود كود لحدث سلكيشن عام يجب عمل زر لايقاف عمل هذا الكود مؤقتاً لعمل اي شي على الورقة المرفق يوضح المذكور ________________________.rar

السلام عليكم الاخ الفاضل / طارق ----------حفظه الله زادك الله خلقاً وعلماً وتواضعاً فقد التمست فيك هذه الصفات تقبل تحياتي وشكري

السلام عليكم الاخ / قصي ------------حفظه الله ما دمت تريده فارغا فلماذا تستخدم الدالة في الخلية اساسا ؟؟؟ اجعلها فارغة فلن تجد شيئا هذا حسب ما فهمته من تعليقك

السلام عليكم تفضل المرفق _____________________________.rar

السلام عليكم لقد طبقت المعادلة على ثلاث مدارس فقط قم بتسمية باقي نطاقات المدارس واسحب المعادلات تفضل المرفق ______2008.rar

السلام عليكم الاخ الفاضل / عمودي --------------حفظه الله الآن فهمت ما تقصد بارك الله فيك وقد قمت بتعديل الكود اريد رايك في التعديل حتى اقوم بالتعديل في المشاركة الاولى بالنسبة للرابط تشكر عليه تقبل تحياتي وشكري ============================================================= تم اضافة هذا المرفق المعدل في المشاركة الاولى =============================================================

السلام عليكم تفضل الملف ________________.rar

السلام عليكم اخي الحبيب / نزار -----------حفظه الله لا تحتاج الى ان تعتذر اخي نزار وكلنا نسعى الى تحصيل الاجر والثواب تقبل تحياتي وشكري

السلام عليكم =IF(AND(A1>=1;A1<=10);A1*100;IF(AND(A1>=11;A1<=20);A1*200;"خارج النطاق"))

السلام عليكم الاخ / عمر------------حفظه الله الاخ / تامر------------حفظه الله بارك الله فيكما شكرا جزيلا ======================= اخي الفاضل/ عمودي------------حفظه الله كنا حابين منك لو ارفقت لنا الملف معمول بالمعادلات حتى نتعلم منك ويتعلم الاخرون لم توصل اخي الكريم ارفق ملف يوضح ما اردته من تعليقك تقبل تحياتي وشكري

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

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

السلام عليكم الاخ الفاضل / هادي سالم --------حفظه الله الحمد لله على السلامة عمل رائع بارك الله فيك تقبل تحياتي وشكري

السلام عليكم اخي الحبيب / محمدي------------حفظه الله ولك امثال دعائك اضعاف مضاعفة -------اللهم آمين ======================= اخي الحبيب / ياسر سالم------------حفظه الله الدالة تعطيك النتائج حسب عدد صفوف النطاق المدخل بامكانك اضافة رقم الترتيب الذي تريده (بشرط لا يكون اكبر من صفوف النطاق) لتعطيك النتائج =======================

السلام عليكم تفضل المرفق _________________________.rar

السلام عليكم غير في المدى حسب ما تريد

السلام عليكم اخي الحبيب / نزار------------حفظه الله ولك امثال دعائك اضعاف مضاعفة -------اللهم آمين ======================= اخي الحبيب / يحي------------حفظه الله الله يوفقك و ييسر لك امورك في دنياك واخرتك -------اللهم آمين ======================= اخي الحبيب / ابواسامة------------حفظه الله لك جزيل شكري و تحياتي

السلام عليكم بعد اذن اخي طارق تفضل المرفق BI.rar

السلام عليكم دالة ارجاع قيمة في نطاق حسب الترتيب LARGE_SMALL في عمود معين كود Option Explicit ' بسم الله الرحمن الرحيم " '"""""""""""""""""""""""""""""""""""""""""""""""""""" ' (دالة ارجاع قيمة (رقم أو نص أو قيمة منطقية " ' (للعمود(العمود_المطلوب MyRang من النطاق ' LARGE_SMALL (حسب الترتيب(رقم_الترتيب ' (للقيمة في العمود (عمود_القيمة " '"""""""""""""""""""""""""""""""""""""""""""""""""""" ' الترتيب_المطلوب " ' FALSE:LARGE (القيمة الكبرى ذات الترتيب(رقم_الترتيب " ' TRUE :SMALL (القيمة الصغرى ذات الترتيب(رقم_الترتيب " '"""""""""""""""""""""""""""""""""""""""""""""""""""" Function VLO_LARGE_SMALL(MyRang As Range, عمود_القيمة As Integer _ , العمود_المطلوب As Integer, رقم_الترتيب As Integer _ , Optional الترتيب_المطلوب As Boolean = False) Dim My_VLOOKUP Dim T As Integer Dim R As Integer Dim T_1 As Integer Dim T_2 As Integer T = MyRang.Rows.Count If رقم_الترتيب > T Or رقم_الترتيب = 0 Then VLO_LARGE_SMALL = "": Exit Function With Application.WorksheetFunction For R = 1 To T T_1 = .Rank(MyRang.Cells(R, عمود_القيمة), MyRang.Columns(عمود_القيمة), الترتيب_المطلوب) If الترتيب_المطلوب = False Then T_2 = .CountIf(Range(MyRang.Cells(1, عمود_القيمة), MyRang.Cells(R, عمود_القيمة)), MyRang.Cells(R, عمود_القيمة).Value) If الترتيب_المطلوب = True Then T_2 = .CountIf(Range(MyRang.Cells(R, عمود_القيمة), MyRang.Cells(T, عمود_القيمة)), MyRang.Cells(R, عمود_القيمة).Value) If رقم_الترتيب = T_1 + T_2 - 1 Then My_VLOOKUP = MyRang.Cells(R, العمود_المطلوب) Exit For End If Next R End With VLO_LARGE_SMALL = My_VLOOKUP End Function ============================ المرفق الجديد المعدل: _____________________________________________________.rar ============================ المرفق السابق : _____________________________________________________.rar ============================

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

السلام عليكم ضعي المعادلة التالية في الخلية V8 =CEILING(FLOOR(SUM(H8)+(U8);0.3);0.5) ثم يتم النسخ لباقي الخلايا

السلام عليكم إن شاء الله هذا ما تريدين ______________.rar

السلام عليكم تفضل المرفق _______________________.rar

السلام عليكم اهذا ما تريد ؟؟ __________.rar