يوسف عطا

بص يا الغالى البرنامج يقوم بمزاوجة الملاحظين فى اللجان بأنه يأخذ ملاحظ من الجدول العلوى وملاحظ من الجدول السفلى وعلى ذلك فيمكنك وضع فئة فى أول الترتيب والفئة الأخرى بعدها

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

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

كنت أتابع موضوع مشابه فى هذا الصرح العظيم ولكن الحلول كانت متعددة وبعضها لم يتلافى الكثير من المشاكل فرأيت أن أحاول حل الموضوع وبمساعدة الأخوة فى المنتدى جازاهم الله خير توصلت إلى الحل الذى أنا شخصياً أراه حلاً عملياً دون التأثير على اللغة والمفردات والاسماء وتم الأمر بالترتيب التالى فى ملف منفصل قمت بنسخ الأسماء كاملة فى العمود A وعمل نسخة أخرى فى العمود B بإستخدام أمر تحويل نص إلى أعمدة تم فصل إسم الطالب وإسم الأب وإسم الجد واللقب وهكذا تحديد عمود الإسم ومن أمر إستبدال يتم إستبدال أ بـ ا المجردة من الهمزة وإختيار إستبدال الكل ستجد الإستبدال تم على أ و إ و آ نقوم بعد ذلك بالفرز مع توسيع التحديد طبعاً بعد ذلك نستخدم معادلة CONCATENATE مع مراعات وضع مسافة بين علامتى تنصيص " " بين الخلايا حتى لا يتم لصق الأسماء فى بعض نجد لدينا الآن عمودان بهما الاسماء كاملة ومرتبان بنفس الترتيب العمود الأول الذى أزلنا الهمزات فيه من الإسم الأول العمود الثانى الذى فيه الهمزات كاملة ولكنه مرتب ومفروز فرز صحيح بعد ذلك أختار العمود الذى أريده الأول أو الثانى وأنسخه إلى ملف الشيت كنترول أنا أفضل إستخدام العمود الثانى الذى به همزات ولكن كن حريص على عدم عمل فرز جديد للبيانات وإلا راح كل ذلك سدى ولكن البعض يفضل إستخدام العمود الأول الذى ليس به همزات فى أول إسم مع مراعاة تصحيح بعض الأسماء مثل رأفت مثلاً بعد الفرز لأنه سيكون رافت بدون همزة أرجو أكون عرضت الموضوع بحرفية والشكر موصول للأخ أحمد غانم والأخ سعد عابد والأخ عبدالله المجرب

موضوع مهم وبه الكثير من الفائدة الله الموفق

للرفع رفع الله قدركم

الله ينور عليكم جميعاً ما نتحرمش منكم ومن أفكاركم

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

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

لم أفهم المقصود بالظبط ولكن على قدر فهمى قد يكون الحل فى ترتيب كتابة الأسماء فى الرئيسية أكتب اسماء الأساسيين أولاً ثم اسماء المنتدبين فيقوم البرنامج بتقسيم المجموعتين فيكون فى المجموعة الأولى الأساسيين وفى المجموعة الثانية المنتدبين لو كان عددهما متساوياً أو ستكون أحد المجموعات كلها من فئة واحدة والمجموعة الأخرى مختلطة هذا لو كان العدد غير متساوى أرجو أكون فهمتك صح

تشابهت الحلول وكلها صالحة جازاكم الله خير وإن كان أحدها أسهل من الآخر هل توجد دالة أساسية فى الإيكسيل تقوم بهذا العمل ؟ الشكر موصول للأخ الغالى سعد عابد اللهم إجعلنا جميعاً من العبيد العابدين الساجدين لخالق هذا الكون وباريه

الف شكر أستاذ غانم جارى التجربة

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

لا لست معك عزيزى فى هذه الجزئية علماً بأننى دائماً أقوم بتوزيع الإحتياطيين يدوياً بطريقة الزجزاج ولا تأخذ منى وقت كبير وفى نفس الوقت تحقق ميزة التكافؤ بين الجميع فى ترتيب الوجود فى قائمة الإحتياطى كما أنها لا تأخذ وقت إطلاقاً وعن تجربة إستغرقت 5 دقائق فقط فى وضعها يدوياً بقائمة مكونة من 200 ملاحظ و 30 مادة إمتحانية وهذا وقت لا يذكر عند بناء ساقية لجان للجنة كبرى من لجان الثانوية العامة مثلاً يكون بها 80 أو 90 لجنة داخلية والله الموفق والمستعان

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

من قائمة أدوات خيارات حفظ تحديد الوقت بالدقيقة إزالة العلامة فى التشيك بوكس لو وجدت موافق ويمكنك تعديل مكان الملفات المحفوظة بهذه الطريقة لو تريد بتغيير المسار الموجود بمسار آخر

الغالى محمود فوكس ربنا يجعلنا دائماً عند حسن الظن إن شاء الله أستاذ القومى ما أنا إلا تلميذ فى هذه المدرسة التى تعلمت منها 99 % مما أعرفه عن الإيكسيل وهذا لا يتعدى 1% مما يعرفه الاساتذة هنا فالشكر موصول لكل من يساهم فى تعليم الآخرين

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

لا يا سيدى هذه ليست ثغرة فطالما تريد توزيع بعض الإحتياطيون يدوياً فيكون من المناسب أن تكمل التوزيع يدوياً وذلك للأسباب الآتية 1. أن البرنامج يوزع الملاحظين على المواد جميعاً فى نفس الوقت 2. أن البرنامج يعمل على جميع الفرق الدراسية من أولى إبتدائى وحتى الجامعة بل وحتى فى أى إمتحانات يكون فيها لجان وملاحظون

الكود التالى ( وهو لأحد عمالقة المنتدى والإيكسيل وهو أستاذنا خبور خير فلندعوا له جميعاً بأن يكون فى أتم صحة وعافية وأن يعود سريعاً للمنتدى فقد طال غيابه) يقوم بترحيل البيانات من شيت إلى عدة شيتات حسب التبويب الموجود فى أول خلية فى الصف للشيتات الأخرى التى يكون عنوان تبويبها متطابق مع هذه الخلية وقد قمت بزيادة مدى البيانات عن الكود الأصلى والنتيجة طيبة ولكن : بتكرار إستخدام الكود يتم إعادة الترحيل من جديد تحت البيانات التى سبق أن تم ترحيلها النتيجة تكون ظهور تكرارات للبيانات اسفل بعضها المطلوب تعديلان 1. أن أحدد إسم العمود أو رقمه الذى يحتوى الدليل أو البيان الذى سيستخدم للترحيل 2. أن يقوم الكود بمسح البيانات التى سبق ترحيلها قبل الترحيل الجديد شكراً مقدماً الكود كما يلى Sub Khboor_Tarheel() '============================================= ' الية الكود بعد الترحيل يقوم بمسح البيانات التي تم ترحيلها On Error Resume Next Application.ScreenUpdating = False For a = 11 To [a3000].End(xlUp).Row If Cells(a, 1) <> "" Then MySheets = Cells(a, 1) With Sheets(MySheets).[a3000].End(xlUp) .Offset(1, 0) = Cells(a, 1) .Offset(1, 1) = Cells(a, 2) .Offset(1, 2) = Cells(a, 3) .Offset(1, 3) = Cells(a, 4) .Offset(1, 4) = Cells(a, 5) .Offset(1, 5) = Cells(a, 6) .Offset(1, 6) = Cells(a, 7) .Offset(1, 7) = Cells(a, 8) .Offset(1, 8) = Cells(a, 9) .Offset(1, 9) = Cells(a, 10) .Offset(1, 10) = Cells(a, 11) .Offset(1, 11) = Cells(a, 12) .Offset(1, 12) = Cells(a, 13) .Offset(1, 13) = Cells(a, 14) .Offset(1, 14) = Cells(a, 15) .Offset(1, 15) = Cells(a, 16) .Offset(1, 16) = Cells(a, 17) .Offset(1, 17) = Cells(a, 18) .Offset(1, 18) = Cells(a, 19) .Offset(1, 19) = Cells(a, 20) .Offset(1, 20) = Cells(a, 21) .Offset(1, 21) = Cells(a, 22) .Offset(1, 22) = Cells(a, 23) .Offset(1, 23) = Cells(a, 24) .Offset(1, 24) = Cells(a, 25) .Offset(1, 25) = Cells(a, 26) .Offset(1, 26) = Cells(a, 27) .Offset(1, 27) = Cells(a, 28) .Offset(1, 28) = Cells(a, 29) .Offset(1, 29) = Cells(a, 30) .Offset(1, 30) = Cells(a, 31) .Offset(1, 31) = Cells(a, 32) .Offset(1, 32) = Cells(a, 33) .Offset(1, 33) = Cells(a, 34) .Offset(1, 34) = Cells(a, 35) .Offset(1, 35) = Cells(a, 36) .Offset(1, 36) = Cells(a, 37) .Offset(1, 37) = Cells(a, 38) .Offset(1, 38) = Cells(a, 39) .Offset(1, 39) = Cells(a, 40) End With End If ' If Sheets("ورقة1").Cells(a, "a") > "" Then Cells(a, 3).Resize(1, 4).Value = "" ' اذا اردت مسح البيانات بعد الترحيل حفز هذا السطر Next a Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("a1").Select On Error Resume Next On Error GoTo 0 End Sub

الله ينور يا أخى الغالى يحياوى فكرة لذيذة ومفيدة

بالفعل عند إختيار التوزيع اليدوى للإحتياطيين يجب أن نقوم بتوزيع جميع الإحتياطيين يدوياً فى جميع المواد

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

تفضل المرفق عزيزى الغالى خروج من الإيكسيل.rar

أسهل طريقة لعمل زر هى عن طريق تسجيل الماكرو وربط الماكرو بأى شكل من الأشكال التلقائية الموجودة فى الإيكسيل الطريقة كالتالى 1. تسجيل الماكرو 2. رسم شكل تلقائى 3. كليك يمين على الشكل التلقائى وإختيار أمر تعيين ماكرو 4. ستفتح لك ويندو تختار منها الماكرو الذى سجلته ثم أوكى بذلك كلما ضغطت على الشكل التلقائى تنفذ هذا الماكرو أرجو أكون أفدتك سأحاول تنفيذ الماكرو لك فى مشاركة تالية