علي بطيخ سالم

استاذ سليم حاصبيا اشكرك على التجاوب معي سوف أقوم باستبدال الاسم داخل الكود وما أريده هو اختصار الأسطر الموجودة في هذا الكود بحيث تتوافق مع ما اريد استبداله من الأسماء فقط يعني كالتالي: Cells.Replace What:="حسنى", Replacement:="حسني", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Cells.Replace What:="على", Replacement:="علي", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Cells.Replace What:="مصطفي", Replacement:="مصطفى", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Cells.Replace What:="سالى", Replacement:="سالي", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False وهكذا الكود يعمل معي بطريقة جيدة لكن ما أريده اختصار اسطر الكود نفسه بحيث اصحح الأسماء بدلالة الأسماء الخاطئة بدلاً من نسخ الكود ولصقه في كل مرة اريد تصحيح اسم

مهمة الكود يقوم بالبحث عن الأسماء التي بها خطأ وتصحيحها دفعة واحدة وذلك لاستخدامها في نطاق 3000 اسم بالمدرسة (بها أسماء مكررة مثل علي - مصطفى - ...... إلى آخره من الأسماء)

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

السلام عليكم : قمت بتسجيل ماكرو من أجل ضبط الأسماء دفعة واحدة وهناك اسطر كثيرة داخل الكود اعتقد يوجد حل لتقليلها أو اختصارها (كما أريد أن أضيف اسماء أخرى داخل الكود بدون التسجيل كل مرة يعني هناك اسماء قد تطرأ على الملف تحتاج إلى تصحيح أريد أن أضيفها ضمن الكود بدون الرجوع مرة أخرى للتسجيل أو لنسخ الأسطر وتعديل الأسماء بداخلها) أتمنى أجد حل لذلك وبارك الله فيكم تعديل الأسماء دفعة واحدة.xlsm

ممتاز استاذ مجدي بارك الله فيك

بعد اذن استاذنا الاستاذ سليم (تعديل بسيط على الكود) استدعاء بيانات.xlsm ممتاز استاذ سليم جزاك الله خيراً

تم الحل ولله الحمد الله ,بمعادلة الصفيف هذه =IF(ROWS($C$1:C2)>SUM(BC:BC),"",INDEX($BE$6:$BE$199,MATCH(FALSE, COUNTIF($C$1:C1,$BE$6:$BE$199)=$BC$6:$BC$199,0)))

الأندرويد ليس به vba ولذلك لا تعمل عليه الأكواد جرب الكود على جهاز كمبيوتر

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

السلام عليكم ورحمة الله وبركاته : هل من طريقة لتحويل معادلة الصفيف إلى كود بدلاً من كتابتها وتكرارها داخل الخلايا حفاظاً عليها من العبث داخل الخلايا =IF(ROWS($M$2:M2)>SUM(BC:BC);"";INDEX($BE$6:$BE$199;MATCH(FALSE; COUNTIF($M$1:M1;$BE$6:$BE$199)=$BC$6:$BC$199;0))) التوزيع بعد التعديل.xlsx

جميل يا استاذ علي بارك الله لك وجزاك الله خيراً

ما شاء الله جزاك الله خيراً استاذنا الاستاذ مجدي

استاذنا الاستاذ سليم حاصبيا بارك الله لك .... على مجهودك العظيم ولي تساؤل آخير : الملف به مجموعة أكود في الصفحة الرئيسية كل كود يؤدي غرض معين هل يمكن دمج جميع هذه الأكود مع بعضها لتعمل بضغطة زر واحد بدلاً من مجموعة الأزرار التي تملأ الصفحة بدون فائدة : فهناك كود للترتيب الأبجدي وكود آخر لاستبدال كلمات معينة مثل راسب وباق للاعادة أو ناجح ومنقول وكود آخر لتحويل كلمة مسلم إذا كانت أنثى إلى مسلمة، وأريد ضم جميع هذه الأكواد في كود واحد يجمعهم بأمر واحد بدلاً من الضغط على كل زر منفرد (لكن شرط أن يكون الترتيب الأبجدي هو أول هذه الأوامر) وجزاك الله خيراً وعذراً على كثرة تساؤلاتي لكن منكم نتعلم استاذنا

جزاك الله خيراً الأخ الكريم

استاذنا الاستاذ سليم حاصبيا حياك الله وبارك الله لك وجزاك الله خيراً استاذنا هذا هو المطلوب بالضبط شكراً لك استاذنا

هذه الأرقام المشار إليها في الكود الجديد متغيرة استاذنا بمعنى أنا ممكن اقسم عدد البنين مثلاً على 4 فصول أو 5 فصول وهكذا بالنسبة للبنات وهذا التقسيم معتمد على نظام حسابات موجود في نفس الصفحة الرئيسية بحيث أقوم أنا بوضع العدد المراد تقسيم التلاميذ عليه ويقوم البرنامج بتقسيم التلاميذ تلقائياً

أالقوائم جديدة.xlsmستاذ سليم حاصبيا هذا هو الملف الذي قمت بالتعديل عليه ولك أن تلاحظ ذلك بنفسك استاذنا في الأعمدة المشار إليها القوائم جديدة.xlsm

استاذ سليم حاصبيا في الصفحة الرئيسية Main يوجد عمودين العمود الأول v وهو يبدأ ب كلمة (بنون) والعمود الثاني AH وهو يبدأ بكلمة بنات أريد ترحيل نفس القيم الموجودة بهم وهي عبارة عن أرقام الفصول للتلاميذ لتسكين كل مجموعة من التلاميذ في فصولهم بعدد معين والترحيل سوف يكون في عمود (C وعمود I) في باقي الصفحات وعند المحاولة حيث أنني عدلت على الكود الثاني الذي تفضلت بإرساله في المشاركة الثانية بإضافة السطر الذي أشرت إليه سابقاً هذين السطرين الذين أضفتهما بنفسي لنسخ العمود V والعمود AH لكن عند ترحيلهما إلى الصفحات يقوم بترحيل الدالة بدلاً من القيمة

ممتاز استاذ سليم دائماً ما نجدك في الخدمة بارك الله لك

استاذ سليم حاصبيا العمود رقم 22 هو هذا العمود استاذنا وهو يحتوي على دالة صفيف وعندما أضغط على زر الترحيل واضع رقم 1 على سبيل المثال في صفحة Main فانه يقوم بترحيل ما في صفحة Main إلى صفحة رقم 1 وفي عمود الفصل في خلايا c1 مثلاً يقوم بجلب دالة الصفيف بدلاً من القيمة فأنا أريد نسخ ما في هذا العمود رقم 22 والعمود رقم 34 ولصقهم في العمود c والعمود i كقيم وليس كدالة أرجوا أن أكون قد وصلت المعلومة بطريقة صحيحة

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

السلام عليكم ورحمة الله وبركاته هذا الكود من عمل أستاذنا الفاضل الأستاذ سليم حصيبا جزاه الله خيراً لكن عندما أقوم بترحيل عمود بنين وعمود بنات يقوم بترحيلهم كمعادلات وأنا أريد القيم فقط يعني 1111111111111111111122222222222 وهكذا وجزاكم الله خيراً وأرجوا المعذرة فلم استطع وضع الردود المتصفح كان لا يسمح مما اضطرني لكتابة موضوع جديد من متصفح آخر القوائم جديدة.xlsm

استاذنا الاستاذ سليم حاصبيا جزاك الله خيراً وبارك الله لك لقد قمت بالتعديل على الكود لترحيل بعض الأعمدة الأخرى لكنه يقوم بترحيل المعادلات دون القيم وأنا أريد ترحيل القيم دون المعادلات هل من طريقة لذلك وبارك الله لكم القوائم جديدة.xlsm

ابداع استاذ علي Ali Mohamed Ali بارك الله فيك وفي استاذنا استاذ أكواد الترحيل الاستاذ سليم حاصبيا وجعله الله في موازين حسناتكم استاذ سليم حاصبيا جزاك الله خيراً وبارك الله لك وجعله الله في ميزان حسناتك ودائماً مبدع ويعجز اللسان عن الشكر بارك الله فيك

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