اذهب الي المحتوي
أوفيسنا

علي بطيخ سالم

03 عضو مميز
  • Content Count

    138
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

19 Good

1 متابع

عن العضو علي بطيخ سالم

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس

اخر الزوار

606 زياره للملف الشخصي
  1. أين المشكلة بالتحديد وإن أمكن ارفاق ملف الاكسل مع ملفات pdf حتى يتم التعرف على المشكلة وإيجاد الحل
  2. اللهم آمين شكر الله لكم استاذنا الأستاذ سليم جزاك الله خيرا البقاء لله سبحانه وتعالى ونسأل الله أن يغفر له وأن يرحمه اللهم آمين البقاء لله سبحانه وتعالى ونسأل الله أن يغفر له وأن يرحمه اللهم آمين البقاء لله سبحانه وتعالى ونسأل الله أن يغفر له وأن يرحمه اللهم آمين اللهم آمين
  3. نسأل الله أن يغفر له وأن يرحمه وأن يكرم نزله وأن ينقه من الذنوب والآثام اللهم آمين .... اللهم اجعل ما قدم من خدمة للتعليم والمعلمين والمدارس في ميزان حسناته naderwatfa
  4. أحسنت استاذنا الجليل الأستاذ سليم جزاك الله خيراً وجعله الله في ميزان حسناتك اللهم آمين
  5. استاذنا هل لابد من هذا السطر arr(1) = "مصط" & "*": arr(2) = "حس" & "*": arr(3) = "عد" & "*": arr(4) = "هدي" & "*" بحيث اضيف اليه في كل مرة أم يمكن الاستغناء عنه بحيث اضيف الأسماء المطلوبة بعد Case مباشرة
  6. وهناك بعض الأسماء المختلفة عند تطبيق الكود عليها قام بتعديلها جميعاً مرة واحدة مثل (اسم عبد ا...) من الملاحظ أن هناك مسافة بين (حرف الدال وحرف الألف) وبحذف هذه المسافة داخل الكود قام بتصحيح الكثير من الأسماء المركبة دفعة واحدة (مثل عبدالله - عبدالرحمن - عبدالعليم ....وهكذا ) وتعلم استاذنا أن مثل هذه الأشياء البسيطة تصيب الترتيب بالخلل في الاكسل مما يتسبب في كثير من المشاكل مثل ترتيب الطلاب داخل قاعات الامتحان وغيرها فقد أجد اسم عبدالله بعد مجموعة من الأسماء المختلفة بعيداً عن نفس الاسم وذلك لوجود مسافة بين الحرفين
  7. استاذ سليم حاصبيا اشكرك على التجاوب معي سوف أقوم باستبدال الاسم داخل الكود وما أريده هو اختصار الأسطر الموجودة في هذا الكود بحيث تتوافق مع ما اريد استبداله من الأسماء فقط يعني كالتالي: 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 وهكذا الكود يعمل معي بطريقة جيدة لكن ما أريده اختصار اسطر الكود نفسه بحيث اصحح الأسماء بدلالة الأسماء الخاطئة بدلاً من نسخ الكود ولصقه في كل مرة اريد تصحيح اسم
  8. مهمة الكود يقوم بالبحث عن الأسماء التي بها خطأ وتصحيحها دفعة واحدة وذلك لاستخدامها في نطاق 3000 اسم بالمدرسة (بها أسماء مكررة مثل علي - مصطفى - ...... إلى آخره من الأسماء)
  9. استاذنا الأستاذ سليم حاصبيا أنا أعمل بمدرسة وللأسف يتم تسجيل الطلاب على موقع الوزارة بواسطة أولياء الأمور وكثيراً ما أجد أخطاء لغوية في الأسماء فحينما أقوم بعمل قوائم فصول واريد ترتيب الأسماء مثلاً أجد (أسم مصطفي) بياء وليس ألف مقصورة والصحيح هو (مصطفى) فأنا أريد أن اجعل من هذا الماكرو قاعدة بيانات للأسماء الصحيحة بما فيها الأسماء التي بها أخطاء وذلك لتطبيقها فيما بعد على أي ملف به أسماء تحوي أخطاء أرجوا أن تكون الفكرة قد وصلت
  10. السلام عليكم : قمت بتسجيل ماكرو من أجل ضبط الأسماء دفعة واحدة وهناك اسطر كثيرة داخل الكود اعتقد يوجد حل لتقليلها أو اختصارها (كما أريد أن أضيف اسماء أخرى داخل الكود بدون التسجيل كل مرة يعني هناك اسماء قد تطرأ على الملف تحتاج إلى تصحيح أريد أن أضيفها ضمن الكود بدون الرجوع مرة أخرى للتسجيل أو لنسخ الأسطر وتعديل الأسماء بداخلها) أتمنى أجد حل لذلك وبارك الله فيكم تعديل الأسماء دفعة واحدة.xlsm
  11. بعد اذن استاذنا الاستاذ سليم (تعديل بسيط على الكود) استدعاء بيانات.xlsm ممتاز استاذ سليم جزاك الله خيراً
  12. تم الحل ولله الحمد الله ,بمعادلة الصفيف هذه =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)))
  13. الأندرويد ليس به vba ولذلك لا تعمل عليه الأكواد جرب الكود على جهاز كمبيوتر
×
×
  • اضف...