osama.eassa قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السادة الاعزاء تحية طيبة وبعد عندى عمود اكسيل بة ارقام المفترض فيها ان تكون هذة الارقام متتالية ولكن اعلم ان هناك بعض الارقام الناقصة فى هذا العمود عندما عملت لها سورت لهذا العمود من اول عشرة ارقام ولكن باقى العمود الذى فية باقى الارقام حوالى 200 رقم سوف يكون من الصعب معرفة الارقام الناقصة فى 200 رقم والمفترض انهم متسلسلين فهل هناك طريقة او اوبشن يمكن معرفة الارقام الناقصة لارقام مفترض انها متسلسلة على التوالى مع الشكر
عبدالله المجرب قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 يمكنك وضع معادلة شرطية في اي عمود ويكون الشرط طرح الخلية الاولى من التي تليها فاذا كان يساوي -1 كان التسلسل صحيح والا كان التسلسل خاطئ والله اعلم
هشام شلبى قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السلام عليكم ======== تفضل المرفق find series.rar 1
هشام شلبى قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السلام عليكم ======= هذا حل اخر بالتنسيقات الشرطية لتحديد اماكن القيم الناقصة فى المسلسل find miss n.rar 1
الحسامي قام بنشر أكتوبر 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
أبو آدم قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السلام عليكم ======== تفضل المرفق تبارك الله ، نفع الله بعلمك أخي هشام أخي عماد ، مساء الخير حاولت التطبيق للكودين ولكنني لم أصل للنتائج التي تخيلتها من سؤال الأخ أسامة ، لعلني أخطأت بالتطبيق ، فهلا أسعفتنا بمرفق. جزيت خيرا... 1
عبدالله المجرب قام بنشر أكتوبر 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
الحسامي قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 لسلام عليكم ابا ادم العزيز هنا الملف للكودين وكان فقط محتاج للاسم كما قال اخي ابو احمد find series.rar
saad abed قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 اخوانى الافاضل هشام والحسامى جزاكم الله خيرا وبارك فيكم بعد كده هجيب اجندة وقلم معى وانا جى المنتدى المعلومات كترت عليه تحياتى سعد عابد
هشام شلبى قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 السلام عليكم ======= اخى نارت بارك الله فيك هذا مما تعلمناه منكم اخى الحبيب عبدالله مبارك للترقية عليك اخى الحبيب عماد مبارك للترقية عليك اخى سعد عابد اشكرك شكرا جزيلا
أبو آدم قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 أخي عبد الله ... أخي عماد هذه وصلتني ... ولكنني أتحدث عن أن الفكرة التي يدور حولها طلب أسامه ، هي البحث عن الثغرات بين أصغر رقم و أكبر رقم ، وهذا ما لا يطبقه الكود ، فحين غيرت الارقام ووضعت من ضمنها 125 مثلا ، لا تكون النتيجة كما يجب !! >>>>>>>>>>> تم تكبير الخط تلبيةً لرغبة أخي هشام
أبو آدم قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 أخي سعد الحبيب خليهم مفكرتين و أنا عندي الأقلام ..............
الحسامي قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 اخي نارت الكود هنا بناء على شرطين فقط هما ان الارقام مرتبة تصاعديا وان الفرق متتالية وبأن صاحب الموضوع لم يرفق ملف فقد تم عمله افتراضيا اي تم افتراض ان الفرق بين الرقم وبين الرقم الذي يسبقه (1) .............. اذا كان لديك حالة معينة فارفق ملف لنا
أبو آدم قام بنشر أكتوبر 30, 2011 قام بنشر أكتوبر 30, 2011 صحّ لسانك هذا ما أردت أن يتم توضيحه ، ليكون الفرق بين تطبيق الأخ هشام وتطبيقك واضحاً. شكرا ... لأدائكم المتميّز ................
osama.eassa قام بنشر أكتوبر 31, 2011 الكاتب قام بنشر أكتوبر 31, 2011 (معدل) السادة الاعزاء تحية طيبة وبعد كل يوم يزداد اعجابى بمنتدنا اوفيسنا وذلك لاهتمام اعضاء المنتدى وكذلك ادارة المنتدى بالاسئلة التى تاتى للمنتدى واود الاشارة ان الحل المقدم من المهندس / هشام شلبى للمشكلة التى طرحتها حاولت ان اطبقها على اوفيس 2007 معرفتش فا طلب منة المحاولة على اكسل 2007 حيث ان التنسيقات الشرطية هى الاسهل فى تطبيقها بالنسبة لى كمبتدئى مع خالص الشكر والتحية للاعطاء الذين ساهموا بحلول اخرى تم تعديل أكتوبر 31, 2011 بواسطه osama.eassa
osama.eassa قام بنشر أكتوبر 31, 2011 الكاتب قام بنشر أكتوبر 31, 2011 السادة الاعزاء تحية طيبة وبعد كل يوم يزداد اعجابى بمنتدنا اوفيسنا وذلك لاهتمام اعضاء المنتدى وكذلك ادارة المنتدى بالاسئلة التى تاتى للمنتدى واود الاشارة ان الحل المقدم من المهندس / هشام شلبى للمشكلة التى طرحتها حاولت ان اطبقها على اوفيس 2007 معرفتش فا طلب منة المحاولة على اكسل 2007 حيث ان المعادلة الشرطية هى الاسهل فى تطبيقها بالنسبة لى كمبتدئى مع خالص الشكر والتحية للاعطاء الذين ساهموا بحلول اخرى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.