osama.eassa قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السادة الاعزاء تحية طيبة وبعد عندى عمود اكسيل بة ارقام المفترض فيها ان تكون هذة الارقام متتالية ولكن اعلم ان هناك بعض الارقام الناقصة فى هذا العمود عندما عملت لها سورت لهذا العمود من اول عشرة ارقام ولكن باقى العمود الذى فية باقى الارقام حوالى 200 رقم سوف يكون من الصعب معرفة الارقام الناقصة فى 200 رقم والمفترض انهم متسلسلين فهل هناك طريقة او اوبشن يمكن معرفة الارقام الناقصة لارقام مفترض انها متسلسلة على التوالى مع الشكر رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 يمكنك وضع معادلة شرطية في اي عمود ويكون الشرط طرح الخلية الاولى من التي تليها فاذا كان يساوي -1 كان التسلسل صحيح والا كان التسلسل خاطئ والله اعلم رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم ======== تفضل المرفق find series.rar 1 رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم ======= هذا حل اخر بالتنسيقات الشرطية لتحديد اماكن القيم الناقصة فى المسلسل find miss n.rar 1 رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم ما شاء الله عليك اخي هشام فين مخبي الحلاوة دي ............. ومن بعد اذنك لتعدد الحلول هنا كود لمعرفة الارقام الناقصة Dim c As Range On Error Resume Next Set rng = Range([a2], Cells([a1000].End(xlUp).Row, 1)) For Each c In rng If c <> c.Offset(-1, 0) + 1 Then [b1000].End(xlUp).Offset(1, 0) = c - 1 Next c وهنا ايضا كود اخر Dim rng As Range On Error Resume Next Set rng = Range([a1], Cells(Range("a65536").End(xlUp).Row, 1)) For i = 1 To rng.Rows.Count If rng.Cells(i, 1) <> rng.Cells(i - 1, 1) + 1 Then _ Range("b1000").End(xlUp).Offset(1, 0) = rng.Cells(i - 1, 1) + 1 Next i 1 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم ======== تفضل المرفق تبارك الله ، نفع الله بعلمك أخي هشام أخي عماد ، مساء الخير حاولت التطبيق للكودين ولكنني لم أصل للنتائج التي تخيلتها من سؤال الأخ أسامة ، لعلني أخطأت بالتطبيق ، فهلا أسعفتنا بمرفق. جزيت خيرا... 1 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 تبارك الله ، نفع الله بعلمك أخي هشام أخي عماد ، مساء الخير حاولت التطبيق للكودين ولكنني لم أصل للنتائج التي تخيلتها من سؤال الأخ أسامة ، لعلني أخطأت بالتطبيق ، فهلا أسعفتنا بمرفق. جزيت خيرا... السلام عليكم ابا ادم الكود كان ينقصه الاسم Sub hosami() Dim rng As Range On Error Resume Next Set rng = Range([a1], Cells(Range("a65536").End(xlUp).Row, 1)) For i = 1 To rng.Rows.Count If rng.Cells(i, 1) <> rng.Cells(i - 1, 1) + 1 Then _ Range("b1000").End(xlUp).Offset(1, 0) = rng.Cells(i - 1, 1) + 1 Next i End Sub جربه الان 1 رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 لسلام عليكم ابا ادم العزيز هنا الملف للكودين وكان فقط محتاج للاسم كما قال اخي ابو احمد find series.rar رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 اخوانى الافاضل هشام والحسامى جزاكم الله خيرا وبارك فيكم بعد كده هجيب اجندة وقلم معى وانا جى المنتدى المعلومات كترت عليه تحياتى سعد عابد رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 السلام عليكم ======= اخى نارت بارك الله فيك هذا مما تعلمناه منكم اخى الحبيب عبدالله مبارك للترقية عليك اخى الحبيب عماد مبارك للترقية عليك اخى سعد عابد اشكرك شكرا جزيلا رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 أخي عبد الله ... أخي عماد هذه وصلتني ... ولكنني أتحدث عن أن الفكرة التي يدور حولها طلب أسامه ، هي البحث عن الثغرات بين أصغر رقم و أكبر رقم ، وهذا ما لا يطبقه الكود ، فحين غيرت الارقام ووضعت من ضمنها 125 مثلا ، لا تكون النتيجة كما يجب !! >>>>>>>>>>> تم تكبير الخط تلبيةً لرغبة أخي هشام رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 أخي سعد الحبيب خليهم مفكرتين و أنا عندي الأقلام .............. رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 اخي نارت الكود هنا بناء على شرطين فقط هما ان الارقام مرتبة تصاعديا وان الفرق متتالية وبأن صاحب الموضوع لم يرفق ملف فقد تم عمله افتراضيا اي تم افتراض ان الفرق بين الرقم وبين الرقم الذي يسبقه (1) .............. اذا كان لديك حالة معينة فارفق ملف لنا رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أكتوبر 30, 2011 مشاركة قام بنشر أكتوبر 30, 2011 صحّ لسانك هذا ما أردت أن يتم توضيحه ، ليكون الفرق بين تطبيق الأخ هشام وتطبيقك واضحاً. شكرا ... لأدائكم المتميّز ................ رابط هذا التعليق شارك More sharing options...
osama.eassa قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 (معدل) السادة الاعزاء تحية طيبة وبعد كل يوم يزداد اعجابى بمنتدنا اوفيسنا وذلك لاهتمام اعضاء المنتدى وكذلك ادارة المنتدى بالاسئلة التى تاتى للمنتدى واود الاشارة ان الحل المقدم من المهندس / هشام شلبى للمشكلة التى طرحتها حاولت ان اطبقها على اوفيس 2007 معرفتش فا طلب منة المحاولة على اكسل 2007 حيث ان التنسيقات الشرطية هى الاسهل فى تطبيقها بالنسبة لى كمبتدئى مع خالص الشكر والتحية للاعطاء الذين ساهموا بحلول اخرى تم تعديل أكتوبر 31, 2011 بواسطه osama.eassa رابط هذا التعليق شارك More sharing options...
osama.eassa قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 السادة الاعزاء تحية طيبة وبعد كل يوم يزداد اعجابى بمنتدنا اوفيسنا وذلك لاهتمام اعضاء المنتدى وكذلك ادارة المنتدى بالاسئلة التى تاتى للمنتدى واود الاشارة ان الحل المقدم من المهندس / هشام شلبى للمشكلة التى طرحتها حاولت ان اطبقها على اوفيس 2007 معرفتش فا طلب منة المحاولة على اكسل 2007 حيث ان المعادلة الشرطية هى الاسهل فى تطبيقها بالنسبة لى كمبتدئى مع خالص الشكر والتحية للاعطاء الذين ساهموا بحلول اخرى رابط هذا التعليق شارك More sharing options...
محمد مجدي قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 ياريت لو في شرح أخر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان