مختار حسين محمود قام بنشر مايو 6, 2015 مشاركة قام بنشر مايو 6, 2015 (معدل) أخى وأستاذى ياسر عن نفسى حاولت وجربت بعض الأكواد ولم تكُ النتائج مرضيةً كان الله فى عونك وأنت لها بإذن الله أستاذ علاء بارك الله فيكم و رفع قدركم ( علاء لا تقارنى بأستاذى الله يكرمك ) تم تعديل مايو 6, 2015 بواسطه مختار حسين محمود 2 رابط هذا التعليق شارك More sharing options...
علاء رسلان قام بنشر مايو 7, 2015 مشاركة قام بنشر مايو 7, 2015 أخى و أستاذى الحبيب مختار .. أين هى المقارنة المزعومة ؟ اننى أقر حقيقة أراها من وجهة نظرى إننى قزم صغير بين العمالقة .. أتعلم منكم و بكم .. أتعلق فى عقلة أخى ياسر تارة و عقلة أخى مختار و أجول بين العقلات هنا و هناك لعلنى أطول بضعة سنتميترات فى مشوارى الطويل نحو القمم العالية و القامات الراسخة فى جنبات هذا المنتدى الكريم .. بارك الله فيكم جميعا و جمعنا الله و أياكم تحت ظله دمتم بخير و اعزكم الله . 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 أخي في الله علاء رسلان مشكور على متابعتك للموضوع .. ولولا متابعتك ما أكملت ما بدأته .. الأخ الغالي مختار الموقع الذي أعطيتني إياه جعلني أندم على عدم تدخلك من البداية لأن عملية التحويل كانت جيدة جدا بنسبة تصل لـ 80% لا تحرمنا من اقتراحاتك ------------------------------------------------------ وصلنا الآن للمرحلة الرابعة ..ألا وهي استخراج الأرقام المسلسلة وعدد الأفراد .. وبذلك نكون قد أتممنا تنقيح البيانات وإزالة الصفوف الغير مرغوب فيها وحذف المسافات الزائدة ، ووضع علامات الشرطة / في الأماكن المناسبة إلى آخر تلك الأمور من عملية التنقيح وأخيراً تم استخراج الأسماء والمسلسل وعدد الأفراد بقي رقم البطاقة والرقم السري .. وننتقل بعدها لمرحلة التجميع إن شاء الله Filter Data V4.rar 1 رابط هذا التعليق شارك More sharing options...
علاء رسلان قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 الشكر لله أخى فى الله ياسر ملاحظة بالنسبة للملف بخصوص رقم البطاقة و السرى لاحظت ان هناك بيانات غير مستكملة (1) لاحظت رقم البطاقة غالبا 12 رقم يعقبه او لا يعقبه س ثم اربعة ارقام اعتقد ان س معناها الرقم السرى و الارقام الاربعة التالية لها هى الرقم السرى ذاته (2) المشكلة تكمن انه احيانا يكون هناك رقم سرى و احيانا لا.. عموما رقم المسلسل هام للغاية كمرجعية نحتاج فرز للرقم البطاقة الذى به رقم سرى و من غير رقم سرى أو البحث عن س و عمل فاصل بين س و الرقم السابق له ( رقم البطاقة ) و الفكرة الافضل هى عند وجود س يأخذ 12 قيمة سابقة لها و 4 تالية بفرض عدم وجود مسافة بين س ماقبلها و ما بعدها .. هذا يجعلنا نحصل على رقم البطاقة مع رقمها السرى سواء كان موجود او لا و منه نستطيع فصل رقم البطاقة من رقمها السرى فى مرحلة تالية انا افكر و لكن لا اعرف ترجمة هذا لمعادلة او كود مجرد تفكير بصوت عالى ربما هناك فكرة أفضل .. متابع للموضوع بشغف . 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 بارك الله فيك أخي الحبيب علاء رسلان أحب التفكير بصوت عالي فهو يساعدني على الوصول لفكرة وطالما وجدت الفكرة وجد الحل نعود أنفسنا دائماً أن نعطي لأنفسنا مساحة كبيرة من التفكير قبل التنفيذ ، لأن حل المشكلة قد يتخذ طرقاً شتى ، بعض الحلول قد تكون طويلة وشاقة ومعقدة ، في حين أن هناك طرقاً أقصر وأيسروتؤدي الغرض جزيت خيراً على مساهماتك في هذا الموضوع ..بارك الله فيك تقبل تحياتي رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 الآن وصلنا للمرحلة الخامسة الجزء الأول هتستغربوا ليه قلت الجزء الأول ..لأنه لم يتم الانتهاء بعد من أرقام البطاقات والأرقام السرية أفضل نتيجة وصلت لها في الملف المرفق بعد عدة محاولات كلها باءت بالفشل أو النتائج الغير مرضية عموما تم فصل رقم البطاقة والرقم السري لكل شخص على حدا أي أن رقم البطاقة + الرقم السري لشخص في عمود ، ورقم البطاقة + الرقم السري في العمود المجاور إلا أنه نظراً لسوء إدخال البيانات فقد ظهرت بيانات أخرى في الأعمدة المجاورة فالتمس لمن لديه القدرة أن يقوم بضبط الأعمدة J و K أي يأخد البيانات الموجودة فيهما ويضعهما في المكان المناسب (شغل يدوي .. تظبيط يدوي لا بديل عنه) وهذا أفضل ما استطعت التوصل إليه من نتائج بخصوص هذه المرحلة .. بعدها في الجزء الثاني إن شاء الله سنعمل على العمودين H و I ونستخرج منها رقم البطاقة والرقم السري كل على حدا .. Filter Data V5.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 يبدو أنه لا أحد يهتم عموماً قمت بضبط المخرجات قدر الإمكان . وبهذا نكون قد انتهينا من المرحلة الخامسة وإن شاء الله ليلاً سأكمل المرحلة السادسة ألا وهي فصل أرقام البطاقات والأرقام السرية في أعمدة منفصلة Filter Data V5.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 بحمد الله وعونه وتوفيقه تم الانتهاء من المرحلة السادسة ..ألا وهي فصل أرقام البطاقات والأرقام السرية .. بقيت مرحلة واحدة ألا وهي تجميع البيانات التي تم استخراجها في صورة جدول منظم Filter Data V6.rar رابط هذا التعليق شارك More sharing options...
علاء رسلان قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 أخى الحبيب ياسر .. انا مهتم للغاية بالموضوع و لكن هناك اولويات لكل انسان و لدى أعمال انشغل بها و متاعب الحياة عموما .. بقدر الامكان احاول المساعدة و المشاركة و لكن امكانياتى محدودة للغاية فيما يخص الاكسيل و احاول التطوير و المتابعة كلما امكن ذلك .. انا رب اسرة تحتاجنى لأجلس معها و لها الحق فى بعض الوقت منى .. و لكل منا ظروفه .. انا معك ان هناك خمول فى نشاط الاعضاء و لكننا لا نعمل ظروف الناس و مشاغلهم .. دمت بخير و أعزك الله . رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 8, 2015 مشاركة قام بنشر مايو 8, 2015 أخي الحبيب علاء رسلاااااااان الحمد لله تم بحمد الله وعونه وتوفيقه الانتهاء من المرحلة السابعة (كأننا بنركب فلتر مية .. ومش أي فلتر .. فلتر سبع مرااااااااااحل ) أخيراً انتهيت من هذا الملف اللي طلع عيني وخلاني مش شايف قدامي إليكم النسخة النهائية .. البيانات المفترض استخراجها تم استخراجها في ورقة عمل أخرى وهذا هو كود التجميع Sub FinalCollection() Dim I As Long, X As Long, Y As Long X = 2: Y = 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Collector") .Range("A2:E10000").ClearContents For I = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Step 3 .Cells(X, "A").Value = Sheets("Data").Cells(I, "B").Value .Cells(X, "B").Value = Sheets("Data").Cells(I, "C").Value .Cells(X, "C").Value = Sheets("Data").Cells(I + 1, "F").Value .Cells(X, "D").Value = Sheets("Data").Cells(I + 2, "J").Value .Cells(X, "E").Value = Sheets("Data").Cells(I + 2, "K").Value .Cells(Y, "A").Value = Sheets("Data").Cells(I, "D").Value .Cells(Y, "B").Value = Sheets("Data").Cells(I, "E").Value .Cells(Y, "C").Value = Sheets("Data").Cells(I + 1, "G").Value .Cells(Y, "D").Value = Sheets("Data").Cells(I + 2, "L").Value .Cells(Y, "E").Value = Sheets("Data").Cells(I + 2, "M").Value X = X + 2 Y = Y + 2 Next I End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub أرجو أن ينفع الملف صاحبه الأخ بكري (اللي يبدو إنه نسي موضوعه تماماً أو يأس من عدم الوصول لحل ..) ولا يدري أنه بالإصرار يتحول المحال إلى ممكن ، وهذا كله بفضل الله وحده ثم بفضل الله وحده فلولا توفيق الله ما استطعت أن أخطو خطوة واحدة ولا أن أصل إلى ما وصلت إليه فاللهم لك الحمد ربي لك الحمد ملء السماوات والأرض وملء ما بينهما وملء ما شئت من شيء بعد .. اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك .. اللهم لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضى .. اللهم لك الحمد كله ولك الشكر كله وإليك يرجع الأمر كله .. تقبلوا تحياتي أخوكم أبو البراء Filter Data V7.rar 4 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 أخى وأستاذى ياسر خليل الحمد لله الذى وفقكم إلى هذا بارك الله لك وبارك الله فيك وجُعل عملكم خالصا لوجهه الكريم 2 رابط هذا التعليق شارك More sharing options...
ايهاب سعيد قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 رائع جدا ولكني لي سوال سهل هو كيفية اخراج بيانات علي من الاكسل الي الورد وبكن مع المحافظة علي كافة التنسيق رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 10, 2015 مشاركة قام بنشر مايو 10, 2015 الأخ الكريم إيهاب سعيد يرجى طرح طلبك في موضوع مستقل مع إرفاق ملف رابط هذا التعليق شارك More sharing options...
bakryibm قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 الاستاذ الفاضل المحترم / ياسر بعد التحية ،، بعتزر عن عدم تواجدي لظروف خارجة عن ارادتي وبعتزر على مجهودك الخالص لوجه الله تعالي ، وايضا الاستاذ علاء وكل من شارك فى حل هذه المشكلة ، وكلمة شكر لا تكفي فعلا لمجهوداتكم العظيمة ، وبعتزر عن اهمالي ، جاري ان شاء الله تنزيل الملف والمتابعة 1 رابط هذا التعليق شارك More sharing options...
bakryibm قام بنشر مايو 21, 2015 الكاتب مشاركة قام بنشر مايو 21, 2015 الاستاذ ياسر الاستاذ علاء الاستاذ مختار من كل قلبي انا بشكركم جميعا على المجهود الاكثر من رائع والوقت الطويل اللى اثمر عن هذا العمل الرائع لايكفي كلمة شكر ، ولكن ادعو الله ان يوفقكم الى ما فيه الخير والصلاح قمت بفتح الملف والنتيجة غير متوقعة فعلا اتمني ان يوفقنى الله الى رد الجميل لكما جعله الله فى ميزان حسناتكم 1 رابط هذا التعليق شارك More sharing options...
علاء رسلان قام بنشر مايو 22, 2015 مشاركة قام بنشر مايو 22, 2015 السلام عليكم الشكر لله أخى الكريم ، و عليك بمراجعة البيانات فالنتيجة ليست بنسبة 100 % صحيحة و هناك بيانات تحتاج لتصحيح منك لذا عليك بالمراجعة ستجد ان هناك بيانات مكررة و بيانات أرقام مكررة او فى غير مكانها الصحيح هذا عائد لكون البيانات الاساسية غير منتظمة و ناقصة .. العمل فى جملته رائع و وفر وقت كبير للغاية . 2 رابط هذا التعليق شارك More sharing options...
bakryibm قام بنشر مايو 24, 2015 الكاتب مشاركة قام بنشر مايو 24, 2015 السلام عليكم الاستاذ / علاء اشكرك على المتابعة وجاري تصحيح البيانات لكم جميعا كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.