أبو عبد الله _

السلام عليكم 

بحثت عن طريقة لترجمة الأسماء من العربية إلى الإنجليزية ووجدت معظم الشرح على Google sheets إلى أنني لاحظت أن الترجمة في الفيديوهات خاطئة 

وبحثت في الموقع فوجدت الموضوع التالي 

إلى أن ملف الاستاذ محمد صالح غير موجود 

لذلك  أرجو وضع كود أو معادلة لترجمة الأسماء بعيدا عن Google sheets

الأستاذ :محمد هشام 

ربما تعجز الكلمات عن وصف شكري وإمتنناني لك

جزاكم الله خيرا وأسعد الله أوقاتك 

وشكرا 

أ / محمد صالح 

وفق الله الجميع لما فيه الخير

شكرا لاهتمامك 

وربما أساءت التوضيح للمطلوب 

شرط الحذف أن تكون جميع الخلايا من c إلي P فارغة وإذا كانت هناك خلية غير فارغة لا يحذف شيء   أو  يكفي أن تكون D  ( الاسم ) فارغة ليتم التنفيذ 

مثال 

لو هناك اسم مكتوب ولا يوجد رقم أو لا توجد المحافظة لا يتم الحذف

لو هناك اسم والكود غير موجود لا يتم الحذف

لو جميع البيانات في الصف فارغة يتم الحذف

لو مكان الاسم فارغ يتم الحذف

لذك في الملف الذي قمت برفعه وضعت سطرين لتفريغ بيانات الصف بالكامل 

أشكر سعة صدرك وممتن لكم

5 ساعات مضت, محمد هشام. said:

جرب هدا

test001.xlsm

1 ساعه مضت, محمد هشام. said:

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

تم الارفاق وشكرا لاهتمامك 

test001.xlsm

23 ساعات مضت, محمد هشام. said:

Supp_lignes_VidesArray()
Dim n&, i&, j&, k&, Irow&
Dim a As Variant, arr As Variant
Dim f As Worksheet: Set f = Sheets("Sheet1")
    
Irow = f.Columns("B:E").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    If Irow < 4 Then Exit Sub
     a = f.Range("B4:E" & Irow).Value
        For i = 1 To UBound(a, 1)
        If a(i, 1) <> "" And a(i, 2) <> "" And a(i, 3) <> "" And a(i, 4)

الاستاذ محمد حاولت تعديل الكود 

ليتم التعامل مع الصف السابع 

وتكون البيانات من C:P

مع العلم B تحتوي على ترقيم تلقائي 

19 ساعات مضت, أ / محمد صالح said:

Sheets("Sheet1") ' قم بتغيير اسم الورقة حسب الحاجة

هل يمكن التغير هنا بحيث يكون الحذف من ورقة العمل النشطة بدون تحديد اسم 

بحيث يتم استخدام الكود في اي مكان دون الحاجة لتكراره

وشكرا

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

الأخ أ / محمد صالح

والأخ محمد هشام 

الأكواد جميله وتفي بالغرض 

شكرا لكم

السلام عليكم ورحمة الله وبركاته 

اريد طريق للتخلص من الفراغات بدون التأثير على المدى في المعادلات

New Microsoft Excel Worksheet.xlsx

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

ومعذرة اذا كانت صيغة السؤال غير مضبوطة

شكرا على الشرح لكن لم يمكن التطبيق 

هل يمكن تطبيقها على الملف

مع  الاخذ في الاعتبار ان كلمة الاول الموجودة في الخلية d2 متغيرة 

يمكن كتابة مكانها الثاني او الثالث او الرابع 

كلمة الاول مكررة ٩ مرات 

لعدد ٤ قيم ( والقيم مكررة تكرارات مختلفة لكن هي ٤ قيم فقط) 

المطلوب اظهار رقم ٤

السلام عليكم

المطلوب اظهار عدد مرات تكرار كلمة الاول او الثاني بشرط القيمة المكررة في العمود D تحسب مرة واحدة والقيمة الفريدة مرة واحدة

التكرار.xlsx

50 دقائق مضت, محمد هشام. said:

للطلب الثاني ربما يجب عليك التوضيح اكثر هل تقصد عند تواجد اقل من 4 تكرارات يتم حدف اكبر قيمة فقط والاحتفاظ بالباقي او مادا

في حالة وجود تكرارات يحتفظ بالاول والاخير وبحذف غير ذلك 

وعليكم السلام ورحمة الله وبركاته 

لا يعمل 

على التليفون

شكرا لحضرتك - واشكر اهتمامك 

أنا أعلم المعادلة بفضل الله ثم بفضل حلول الاساتذة أمثالكم

لكن أرغب في الأكواد نظرا لكثرة البيانات ( أولا )

ثانيا : عند حذف التكرارات في المنتصف سوف يؤثر على العدد

السلام عليكم

مطلوب في هذا الملف كودين 

الأول كود في حدث ورقة العمل ( يعمل تلقائي) عند كتابة اسم او كود الموظف في العمود B ان يتم زيادة اخر قيمة مقابلة للكود  في عمود التكرارات E بالقيمة (واحد) 1 بغض النظر عن عدد التكرارات في العمود B 

الثاني كود مرتبط بزر 

يقوم بحذف الصفوف بناءا على القيم المكررة في العمود B مع الاحتفاظ باكبر واقل قيمة تكرار مثلا لو كود الموظف او الاسم مسجل له في العمود E تكرارات ١ و ٢ و ٣ و ٤ و ٥ يقوم بحذف ٢ و ٣ و ٤ 

لو اسم مسجل له ١ و٢ و ٣ يقوم بحذف ٢ 

حذف المكرر بشرط.xlsx

اقترح  حضرتك تعمل نسخة من الملف وتمسح القيم 

ابحث عن موضوع كشوف المناداة في المنتدى هتلاقي حاجات مشابهة

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

تسلم ايديك

والشكر موصول للأستاذ أبو إيمان

السلام عليكم 

المطلوب باختصار 

تعديل الكود في المرفق بحيث ينقل الاسم الغير موجود للأرشيف

Counter1.xlsm

السلام عليكم

الاساتذة الافاضل فريق الموقع 

يحدث مع مشكلة من فترة إلى اخرى 

وهي عدم القدرة على وضع مشاركات 

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

وعند ارسال رسالة يظهر لي دائما الحد صفر  

21 ساعات مضت, Mohamed Hicham said:

تنبيه عند تكرار نفس القيمة 10 مرات

السلام عليكم 

اولا سلمت يداك 

المطلوب التنبية عند تكرار نفس القيمة اكثر من ١٠ مرات

بخصوص السؤال الثاني 

ما اقصده ان يتم تظليل الخلايا من c الى f 

اذا كانت هناك بيانات مكررة في العمود c مع العلم ان البيانات في العمود c هي الاسم مثلا وقد يتكرر  والعمود d الى f بيانات مختلفة 

شرط التنسيق التكرار في العمود c بغض النظر عما هو مكتوب في باقي الأعمدة

المطلوب الكود الذي قمت باضافته في   الزر   المسمى بشرط تكرار القيمة في العمود c بشرط ان يعمل تلقائي عند كتابة قية في العمود C 

مع تحديد  مجموعة الالوان كما في الكود الاخر حيث ان الالوان العشوائية قد ياتي لون غامق 

.... كيف يمكنني معرفة اللون ورقمه

السلام عليكم 

المطلوب

اولا هو كود لاظهار رسالة تنبيهية في حال زيادة عدد البيانات في العمود C عن ١٠ اشخاص 

مع العلم ان البيانات متغييرة في العمود C وليست ثابتة 

قمت بكتابة كود  لاظهار رسالة في حال زيادة العناصر الثابتة في حدث الورقة لتوضيح الفكرة 

ثانيا  كود لتلوين الخلايا من C ال F اعتمادا على البيانات المكررة في العمود C  بحيث ان كل مجموعة تكرارات تأخذ لون مستقل 

countif.xlsm

الاستاذ محي 

اذا محتاج البيانات في العمود B و مثلاً 

فما هي الاسطر التي سوف اقوم بتغييرها في الكود 

وشكراً 

شكراً على تفاعلك 

لكن ما اريده كود بحيث يوضع داخل ملف معين وهذا الملف فقط وليس كل ملفات الاكسيل 

في 26‏/4‏/2023 at 21:35, حسونة حسين said:

عدل xls إلى xlsx في هذا السطر

مشكور على الرد

هذا التعديل سوف يقوم بحذف الماكرو من النسخة ام ماذا