يحيى حسين

السلام عليكم و رحمة الله و بركاته أخي يحياوي دالة رائعة جزاك الله كل خير

السلام عليكم و رحمة الله و بركاته أخي ياسر جزاك الله كل خير على مجهودك و الاخ السائل طلباتك غير واضحه على كل حال جرب هذه المعادلة ضعها في الخلية G2 ثم اسحبها للأسفل =INDEX($A$2:$A$20,MATCH("*"&H2&"*",$B$2:$B$20,0)) و في الخلية J2 ضع المعادلة التالية : =INDEX($D$2:$D$20,MATCH("*"&I2&"*",C$2:C$20,0)) دمت في حفظ الله

السلام عليكم و رحمة الله على نفس ملف الأخ عبدالله المجرب جرب الكود التالي Sub Test() Dim wsF As Worksheet, wsT As Worksheet Set wsF = Sheets("الشيت") Set wsT = Sheets("منقول") With wsF.Range("a1").CurrentRegion .AutoFilter Field:=14, Criteria1:=wsT.Range("b2").Value .Copy wsT.Range("a7") .AutoFilter End With End Sub

السلام عليكم و رحمة الله أخي جرب هذه المعادلة و هي معادلة صفيف =IF(SUM(0+ISNUMBER(SEARCH(B2,D1:D10))),"موجود","غير موجود") يجب الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله أخي محمود لماذا تستخدم الدالة LOOKUP ولم تستخدم الدالة VLOOKUP حسب طبيعة ملفك و بما أن الأرقام مرتبة تصاعديا من الأصغر الى الأكبر ستفي بالمطلوب و لكن ان فقد رقم من التسلسل كأن نقوم بإلغاء الرقم 15 ستعيد نتيجة الرقم 14 لذلك أتوقع ان استخدام الدالة Vlookup تبقى أضمن لك و للنتيجة =VLOOKUP(H4,$A$2:$C$67,2,0) =VLOOKUP(H4,$A$2:$C$67,3,0)

السلام عليكم و رحمة الله و بركاته أخي استخدم التنسيق الشرطي و لعمل ذلك في الاكسيل 2007 و 2010 1) قم بتحديد النطاق الذي ترغب في تطبيق التنسيق عليه 2) من تاب home اختر تنسيق شرطي Conditional Formatting . 3) اختر الخيار الاول Highlight Cells Rules 4) اختر الشرط الذي يناسبك , على سبيل المثال اختر Greater THan و ضع الرقم الذي ترغب به ثم اختر التنسيق المناسب دمت في حفظ الله

السلام عليكم و رحمة الله أخي يوجد في الصفحة sheet2 ثلاث اعمد تحت مسمى "تدريب رقم " و لقد اعتمدت على اول عامود G و تجاخلنا الباقي في الصفحة "سجل حصر 1" في الخلية A7 ضع المعادلة التالية : =IF(ROW(1:1)<=COUNTIF(Sheet2!$G$3:$G$11,'سجل حصر 1'!$B$4),INDEX(Sheet2!A$3:A$11,SMALL(IF(Sheet2!$G$3:$G$11='سجل حصر 1'!$B$4,ROW(Sheet2!$G$3:$G$11)-ROW(Sheet2!$G$3)+1),ROW(1:1))),"") و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter ثم أسحبها للأسفل و لليمين دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي الحبيب الطرق السابقة التي ذكرها الأخوة ستعطيك تاريخ يتغير في كل يوم تقوم فيه بفتح الجهاز حيث سيقرأ تاريخ اليوم الذي سيفتح فيه جرب هذا الكود و اتبع الخطوات التالية لإضافته 1) رايت كليك على اسم الصفحة و اختر View Code 2) ستظهر لك صفحة بيضاء انسخ الكود التالي لها : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Columns("A:A"), Target) Is Nothing Then ActiveCell.Offset(-1, 1).Value = Date End If End Sub و الأى أي قيمة ستكتبها في العامود A سيضع مباشرة و مقابل لها تاريخ اليوم و سيكون تاريخ ثابت لن يتغير دمت في حفظ الله

السلام عليكم و رحمة الله أخي لو فرضنا ان البيانات موجودة في النطاق من A1:D5 و تريد في الصفحة الأولى استخراج بيانات الرقم الموجود B4 جرب المادلة التالية =VLOOKUP(B4,Sheet2!A1:D5,2,0) ============= و لإرفاق ملف قم بضغط ملفك بأي برنامج ضغط winrar or winzip ثم جرب رفعه دمت في حفظ الله

السلام عليكم و رحمة الله أخي لو فرضنا ان البيانات موجودة في النطاق من A1:D5 و تريد في الصفحة الأولى استخراج بيانات الرقم الموجود B4 جرب المادلة التالية =VLOOKUP(B4,Sheet2!A1:D5,2,0) ============= و لإرفاق ملف قم بضغط ملفك بأي برنامج ضغط winrar or winzip ثم جرب رفعه دمت في حفظ الله

السلام عليكم و رحمة الله أخي لإرفاق ملف يجب ضغطه اولاً بأحد البرامج المعروفة WinRar or WinZip و من ثم رفع الملف =========== أما بخصوص طلبك فإن الدالة VLOOKUP هي مفتاح الحل لطلبك و لو بحثت في المنتدى ستجد عددا من الشروحات عليها دمت في حفظ الله

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

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

السلام عليكم و رحمة الله أخي محمود شاهد هذا الرابط حتى تتضح فكرتي في عدم وضع الحل في ملف مرفق http://www.officena.net/ib/index.php?showtopic=37588 و الأخ هشام جزاك الله كل خير أنت و جميع الأخوة دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته كنت قد كتبت موضوع مشابه قبل عام و لكني أعيد الموضوع بشكل جديد لأهميته أريد توضيح نقطة في عدم إرفاق ملفات او وضع الكود مباشرة داخل الملف فكثيراً ما يطلب منا الحل بناء على قاعدة علمني كيف أصطاد السمكة خير من أن تعطيني إياها فلو أرفقنا الحل داخل ملف فلن يجذب هذا الملف كل الأخوة و لكن عند وضع الحل ككود او معادلة داخل الرد بشكل ظاهر ستلفت إنتباه الكثير و تشجعه على محاولة معرفة ما هي آلية عمله هذا من ناحية و من ناحية أخرى عندما نضع الحل في الرد ككود او معادلة ذلك سيساعد الكثير من الأخوة على محاولة البحث و الإدخال و معرفة آلية الإدخال و أين سا أضع الكود أو أين سا أكتب المعادلة و أيضاً عندما تكون معادلة صفيف ستجد أن أغلبية مستخدمي الإكسيل لا يعرفونها فعندما أضعها داخل الملف بدون الإشارة إلى الضغط على Ctrl+Shift+Enter فلن يتعرف المستخدم على هذا النمط و سيبقيه في عالم اخر غير عالم المصفوفات . أنا مع أن يتم إضافة الحلول كا أكواد و معادلات في الرد و ليس داخل ملف قد يقول البعض ان هناك ملفات كملفات الأخ الحسامي و هي عبارة عن برامج كامل سيصعب وقتها وضع الأكواد سنقول له نعم صعب و هي من الإستثناءات التي تؤخذ بعين الإعتبار مع تأكيدي أن إرفاق الملفبعد توضيح آلية الحل لن يتعارض مع إقتراحي أتمنى أن تكون قد إتضحت فكرة الحلول بهذه الطريقة

تصحيح للخطأ في آخر سطر من مشاركتي ليست ISAN و انما هي ISNA

السلام عليكم و رحمة الله و بركاته إضافة لطريقة الأخ أبو احمد و بدون الحاجة لإستخدام دوال معرفة يمكننا إستخدام معادلة الصفيف التالية : على نفس ملف حل الأخ أبو احمد في الصفحة الثانية في الخلية B2 ضع المعادلة التالية =IFERROR(INDEX(Sheet1!$F$2:$F$38,SMALL(IF(Sheet1!$A$2:$A$38=Sheet2!$A2,ROW(Sheet1!$A$2:$A$38)-ROW(Sheet1!$A$2)+1),COUNTIF(Sheet2!$A$2:A2,Sheet2!A2))),"") و في الخلية C2 ضع المعادلة التالية =IFERROR(INDEX(Sheet1!$E$2:$E$38,SMALL(IF(Sheet1!$A$2:$A$38=Sheet2!$A2,ROW(Sheet1!$A$2:$A$38)-ROW(Sheet1!$A$2)+1),COUNTIF(Sheet2!$A$2:A2,Sheet2!A2))),"") و كلاهما معادلتي صفيف يجب الضغط على Ctrl+Shift+Enter أما بخصوص إخفار خطا NA فيوجد عدة طرق لعمل ذلك في الإكسيل 2007 و 2010 يمكننا إستخدام معادلة IFERROR كما تشاهد في المثال أعلاه في النسخ القديمة يمكننا إستخدام =If(ISAN(YurFormula),"",YourFormula) دمتم في حفظ الله

السلام عليكم و رحمة الله أخي إستخدم الدالة VLOOKUP فهي تفي بطلبك ان شاء الله

السلام عليكم و رحمة الله و بركاته أخي فقط قم بتعديل السطر التالي في الكود Yh_ListFind.List(V, 3) = Format(A.Offset(0, 3).Value, "yyyy/mm/dd") و سيظهر التاريخ مثلما تريد إن شاء الله

السلام عليكم و رحمة الله أخي يوجد أيضاً عدة طرق لعمل تسلسل رقم فلو جربت في المعادلة السابقة بدلاً من [color=#1C2837][font=monospace][size=2][color=#000000]ROW[/color][color=#666600]([/color][color=#000000]INDIRECT[/color][color=#666600]([/color][color=#008800]"1:"[/color][color=#666600]&[/color][color=#000000]LEN[/color][color=#666600]([/color][color=#000000]A2[/color][color=#666600])))[/color][/size][/font][/color] جرب المعادلة التالية Row(1:6) ستعطي نفس النتيجة

السلام عليكم و رحمة الله اخي عندما فتحت ملفك وجدته فارغ و لا يوجد به بايانات ارجو التأكد منه دمت في حفظ الله

السلام عليكم و رحمة الله أستخد خاصة خاصية النسخ و اللصق الخاص و لعم ذلك : * قم بنسخ البيانات الموجود في العامود المعني . * ضع مؤشر الماوس في الخلية التي تريد التحويل اليها . * رايت كيلك و اختر PasteSpecial. * اختر من المربع الحواري الذي سيظهر أمامك Transpose أتمنى ان تفي هذه الطريقة بطلبك دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي أبو أحمد هدفنا من هذه الدالة هو معرفة حاصل جمع الأرقام الموجودة في الخلية A2 فعلى سبيل المثال لو كان الرقم في الخلية هو 667337 فالمطلوب إذاً هو6+6+7+3+3+7 و لعمل ذلك يجب تجزئة الرقم حسب الخانات و أفضل دالة لعمل هذه التجزية هي الدالة MID بحيث يكون متغيراتها الاول و الأخير ثابت و المتغير الثاني يزداد من 1 إلى 6 و هو عدد الأحرف في الخلية فعليه ستكون المعادلة بالشكل التالي =MID(A2,1,1) =MID(A2,2,1) =MID(A2,3,1) =MID(A2,4,1) =MID(A2,5,1) =MID(A2,6,1) و ستكون النتيجة على التوالي 6 6 7 3 3 7 و من ثم نجمعها بمعنى أن الدالة يجب أن تكون بهذا الشكل =SUM(MID(A2,1,1),MID(A2,2,1),MID(A2,3,1),MID(A2,4,1),MID(A2,5,1),MID(A2,6,1)) و بما أن المتغير الثاني يتغير من معادلة إلى أخرى و بزيادة ثابته نستخدم المعادلة التالية : ROW(INDIRECT("1:"&LEN(A2))) و هذا الجزء من المعادلة يقوم ببناء تسلسل رقمي بدايته 1 و نهايته عدد الأحرف الموجودة في الخلية و التي نحصل عليها من خلال المعادلة LEN و التي سيكون ناتجها 6 و هو عدد الأحرف أو الأرقام في الخلية و يكون ناتج هذا الجزء من المعادلة كالتالي : {1;2;3;4;5;6} و بذلك يصبح شكل معادلة MID MID(A2,{1;2;3;4;5;6},1) و لأنها من ضمن صفيف فستقوم بتجزء الرقم الموجود في الخلية A2 رقم برقم إبتداء من أول رقم و حتى آخر رقم فتصبح بشكلها التالي : =SUMPRODUCT(--{"6";"6";"7";"3";"3";"7"}) و بذلك يسهل على المعادلة SUMPRODUCT جمع الأرقم بعد تحويلها إلى أرقام حقيقة بواسطة -- ============ يمكن إستخدام نفس المعادلة السابقة و إستبدال علامتي -- بضربها بالرقم 1 او جمعها للرقم 0 أيضاً يمكن إستخدام نمط معادلات الصفيف مع نفس المعادلة أعلاه بدلاً من إستخدام SUMPRODUCT نستخدم الدالة ٍSUM =SUM(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)+0) و لكن يجب الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله حمداً لله على سلامتك و نسأل الله لك الشفاء التام إن شاء الله

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