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

الأخ الكريم لؤي قد يكون المشكلة في نسخة الويندوز ؟ هل النسخة 32 بت أم 64 بت في كلا الجهازين؟

أخي الحبيب قصي صبراً على موضوع الشرح .. كل يوم حبة حبة .. عشان الشرح بياخد وقت والوقت للأسف ضيق بالنسبة لمعادلتك الخطأ ::: $N$13>MAX(رقم_الجلوس)) الخلية التي بها رقم الجلوس M3

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

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

بسم الله ... شرح المعادلة في الملف المرفق في المشاركة السابقة ----------------------------------------------- المعادلة عشان تفهمها أخي الكريم قصي لازم تاخدها بمجمل وبعدين تفصيل .. الجزء الأول : لو بصيت في المعادلة هتلاقي كلمة (رقم_الجلوس) دا عبارة عن نطاق ، إنت اللي بتسميه ، ببساطة بتروح لورقة العمل (بيانات أساسية) ، وتحدد الخلايا C6:C216 (اشمعنا الخلايا دي ..عشان دي اللي فيها أرقام الجلوس) ، وتروح لصندوق الاسم وتكتب اسم للنطاق وليكن (رقم_الجلوس) والنطاق ده هو أساس الشغل في المعادلة .. الجزء الثاني : الخلية اللي فيها رقم الجلوس في ورقة العمل (شهادات) اللي هي في مثالنا N13 ودي اللي هيتكتب فيها رقم الجلوس المفروض البحث عنه وجلب البيانات المرتبطة بيه .. الجزء الثالث : بعد ما عرفنا معطيات المعادلة نبدأ نشرحها (بتشديد الراء في الكلمة) في الخلية D14 : المعادلة عبارة عن 3 أجزاء رئيسية (هي معادلة IF) فيها الشرط ، والشرط إذا تحقق ، والشرط إذا لم يتحقق الشرط OR($N$13<MIN(رقم_الجلوس),$N$13>MAX(رقم_الجلوس)) الشرط إذا تحقق يدي فراغ "" والشرط إذا لم يتحقق يشتغل على معادلة فرعية داخل المعادلة INDIRECT(ADDRESS(MATCH($N$13,رقم_الجلوس,0)+5,COLUMN(),4,,$A$5)) دي كانت الخطوط العريضة للمعادلة ********************************* الجزء الرابع : شرح الشرط في جزء الشرط فيه الدالة OR ودي هنا معناها أو ..يعني لو تحقق أي شرط من الشرطين التابعين للدالة OR يتحقق الشرط الشرطين : أول شرط $N$13<MIN(رقم_الجلوس) الخلية N13 أقل من أقل قيمة في نطاق أرقام الجلوس (يعني لو رقم الجلوس أصغر من أصغر رقم جلوس عندك) تاني شرط $N$13>MAX(رقم_الجلوس) الخلية N13 أكبر من أكبر قيمة في نطاق أرقام الجلوس يعني خلاصة الجزئية دي : لو رقم الجلوس الموجود في الخلية N13 كان مش موجود ضمن نطاق أرقام الجلوس الموجودة في ورقة العمل (بيانات أساسية) تعطي النتيجة فراغ ..عشان رقم الجلوس في الحالة دي مش موجود ، فطبيعي إن ميكونش فيه بيانات مرتبطة بيه ، فيعطي فراغ الجزء الخامس : المعادلة الفرعية في حالة وجود رقم الجلوس هنا هنبدأ من الدالة ADDRESS ودي بتجيب العنوان ( عنوان الخلية الهدف ..الخلية اللي عليها العين .. لو عرفنا عنوانها هنجيب بياناتها بدالة INDIRECT ..) ADDRESS(MATCH($N$13,رقم_الجلوس,0)+5,COLUMN(),4,,$A$5) هو دا الجزء اللي بيجيب عنوان الخلية المطلوب جلب بياناتها دالة العنوان ليها كذا بارامتر .. هنشرح واحد واحد >> البارامتر الأول لدالة العنوان (لمعرفة رقم الصف) MATCH($N$13,رقم_الجلوس,0)+5 استخدما هنا الدالة Match دالة البحث اللي بتبحث عن رقم الجلوس في النطاق رقم_الجلوس وتجيب رقم الصف (شيء جميل جداً) ..طيب ايه رقم 5 اللي ضفناه في نهاية الدالة .. الرقم 5 يمثل عدد الصفوف التي تسبق أول صف فيه بيانات في ورقة العمل (بيانات أساسية) ..إحنا عندنا أرقام الجلوس بتبدأ من الصف رقم 6 ، يعني فيه 5 صفوف قبل الصف السادس .. ولذلك تمت إضافة رقم 5 لمعرفة رقم الصف لرقم الجلوس .. يعني مثلا لو كان رقم الجلوس في الخلية N13 هو 1835 .. سيتم البحث عن الرقم في النطاق اللي عليه الشغل (رقم_الجلوس) ويشوف الصف اللي فيه رقم الجلوس هتلاقي النتيجة هي رقم 2 (فعشان نعرف رقم الصف بشكل صحيح بنزود 5 لأن رقم الجلوس 1835 موجود في الصف السابع ..تمام كدا !! البارامتر الثاني لدالة العنوان (لمعرفة رقم العمود) COLUMN() والدالة دي بتجيب رقم العمود اللي فيه المعادلة ..المعادلة مكتوبة في الخلية D14 يبقا رقم العمود هو 4 ..........طيب المفروض هنا نجيب البيانات في العمود رقم كام من ورقة العمل (بيانات أساسية) ..إحنا دلوقتي عايزين اسم الطالب واسم الطالب موجود في العمود رقم 4 بردو في ورقة العمل (بيانات أساسية) يبقا كدا تمام .. طيب لنفترض إن اسم الطالب كان في العمود رقم 9 مثلاً .. في الحالة دي هنزود كام عشان تظبط المعادلة (فكـــــــــــــــــــــر شوية) المعادلة في العمود رقم 4 والاسم موجود في العمود رقم 9 يبقا عشان نوصل لرقم العمود اللي فيه اسم الطالب هنزود 5 فتصبح الدالة بهذا الشكل COLUMN()+5 دا كان مجرد مثال عشان تعرف إزاي تجيب البيانات من أي عمود البارامتر التالت لدالة العنوان (لجعل عنوان الخلية نسبي وليس مطلق ..وعشان منطولش معناها إن الخلية تكون من غير علامات الدولار ..) لما جبنا رقم الصف طلع 7 ورقم العمود طلع 4 معني كدا إن الخلية اللي عليها العين والنن هي D7 .. البارامتر اللي إحنا بنشرحه هيخليها D7 من غير علامات الدولار البارامتر الرابع اختياري وتم تجاهله ولكن وضعت فاصلة للانتقال للبارامتر التالي البارامتر الخامس والأخير (لمعرفة اسم ورقة العمل المراد جلب البيانات منها ..) والاسم دا المفروض يكون (بيانات أساسية) فقمت بوضع كلمة "بيانات أساسية" في الخلية A5 في ورقة العمل (الشهادات) والإشارة إليه في المعادلة لو جربنا نضغط F9 على الجزء الخاص بدالة العنوان هتكون النتيجة بهذا الشكل {"'بيانات أساسية'!D7"} وبكدا نكون وصلنا لعنوان الخلية اللي عليها العين والنن .. أرجو أن أكون قد وفقت في شرح المعادلة .. تقبل تحياتي

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

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

بارك الله فيك أخي الحبيب غسان وجزاك الله خيراً كم أعشق موضوعاتك المتميزة ! تقبل تحياتي

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

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

مشكور على مرورك العطر أخي الغالي خزاني بارك الله فيك تقبل تحياتي

أخي الكريم بفرض أن الرقم موجود في الخلية A1 ضع المعادلة التالية في الخلية B1 مثلاً =FLOOR(A1,10)

الحمد لله أخي صلاح أن تم حل المشكلة جرب أن تضع السطر التالي قبل بداية الكود Option Compare Text سيتم تجاهل حالة الأحرف الكبيرة والصغيرة

أخي الحبيب محمد صالح جرب الرقم 101000 جرب هذا الملف Tafket UDF Function.rar

من لم يعمل معه الكود الأول فليجرب هذا الكود وليعلمنا بالنتيجة Private Sub CommandButton1_Click() Dim Cell As Range, Keys, Key, I As Long If Me.TextBox1.Value = "" Then Exit Sub Sheets("Sheet1").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Font.ColorIndex = xlAutomatic Keys = Split(TextBox1.Value, vbCrLf) For Each Cell In Sheets("Sheet1").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) For Each Key In Keys I = InStr(1, Cell.Value, Key) If I > 0 Then Cell.Characters(I, Len(Key)).Font.Color = vbRed End If Next Key Next Cell End Sub

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

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

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

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

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

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

أخي وحبيبي ومعلمي محمد صالح (الماااااااااااااس اللي يتااااااااااقل بالماس) بارك الله فيك وجزاك الله خير الجزاء على كل ما تقدمه للمسلمين

بارك الله فيك أخي الحبيب حسام ونسأل الله أن يكون الأخ الغالي بن مصر بخير وفي صحة وعافية (والله إني أفتقد وجوده .. من لديه أخبار عنه فليبلغنا بها .. ويوصله سلامنا ليه .. لعله يكون بخير إن شاء الله)

الأخ الغالي ياسر فتحي الأخ الحبيب صلاح الصغير الأخ نايف - م مشكور على مروركم العطر .. وبارك الله فيكم الأخ صلاح الملف يعمل معي بشكل طبيعي وكذلك الأخ نايف .. وننتظر رأي باقي الأخوة في الملف .. هل يعمل أم أن به مشكلة لدى أحد آخر؟ ما هي نسخة الأوفيس التي تعمل عليها ؟ وهل هناك إضافات AddIns قد تسبب مشاكل لك كما حدث آنفاً .. تقبلوا تحياتي

الأخ الكريم أبو وسام بعد عدة محاولات فاشلة والحمد لله تم التعديــــــــــــــــــل الكبيــــــــــــــــــــــــــــــــــر الذي سيحدث ثورة في الكود جرب السطر بهذا الشكل Set CurrentCel = Application.Caller.MergeArea يعني ببساطة ضيف هذا الجزء فقط .MergeArea بدون أن تعدل في الأرقام شوف الدنيا ماشية معاك إزاي