جرب الكود التالي (مع العلم انه سيتعامل مع الحرف الأول فقط)
Sub ReplaceAll()
Dim Cel As Range
For Each Cel In Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row)
If Left(Cel, 1) = "أ" Or Left(Cel, 1) = "إ" Or Left(Cel, 1) = "آ" Then
Cel = "ا" & Right(Cel, Len(Cel) - 1)
End If
Next Cel
End Sub
الأمر غريب تماما
أنا لا أرفق كود إلا بد تجربته وبعد التجربة على أوفيس 2013 لا يستبدل كلمة وئام أو اخصائي أي لا يستبدل ئـ الهمزة اللي على نبرة
يبدو أن إصدارات الأوفيس لها دور في الأمر
أخي الغالي محمد الخازمي
وحشتنا مشاركاتك القيمة
جرب الكود التالي عله يفي بالغرض
Sub ReplaceAll()
With Range("F16:F" & Cells(Rows.Count, "F").End(xlUp).Row)
.Replace "أ", "ا", , 1
.Replace "إ", "ا", , 1
.Replace "آ", "ا", , 1
End With
End Sub
أخي الكريم ولد الحجاز
هل طبقت المشاركة التي أشرت إليك فيها إلى إدراج موديول .. وما زالت نفس المشكلة موجودة
هل الملف المرفق هو الملف الأصلي ؟؟ إذا لم يكن كذلك يرجى إرفاق الملف الأصلي للإطلاع عليه ومعرفة سبب المشكلة
أخي الكريم
قم بإدراج موديول جديد وضع فيه الكود التالي
Sub ShowForm()
UserForm1.Show
End Sub
ومن خلال ورقة العمل اعمل كليك يمين على الشكل الموجود ثم Assign Macro واختر الماكرو المسمى ShowForm
قد تكون مشكلتك أن المصنف مربوط بمصنف آخر ...!! مجرد تخمين
أخي الكريم العمري
أهلا بك في المنتدى ونورت بين إخوانك
قمت بتحميل الملف المرفق وعدلت عليه وقم بالحفظ والملف يعمل بشكل طبيعي وعادي جداً
قد تكون المشكلة في نسخة الأوفيس لديك أو نسخة الويندوز بها مشكلة
أما فيما يخص الملف فيعمل بشكل عادي
أخي وحبيبي في الله جعفر
لكم يسعدني ويبهجني ويفرحني ويملأ كل أرجاء قلبي فرحاً أن أراك بيننا
نورت المنتدى وشرفت بين إخوانك
في انتظار مساهماتك القيمة والفريدة .. فكم استفدت منك ومن علمك
بارك الله لنا فيك وجعلك ذخراً لنا
تقبل وافر تقديري وحبي واحترامي
أخي الكريم أشرف
هل الشخص "محمد علي ناصر" سيتم ترحيله؟ لأنني لاحظت أنك وضعت شرط أن تكون القيمة Z أكبر من أو يساوي 14 والقيمة لهذا الشخص هي 12 ..إذاً طبقاً لشروطك لا يتم ترحيل هذه الشخص ..
فقط من تنطبق عليه الشروط هو "علي خليفة"
أكد الكلام أو انفيه حتى تجد المساعدة من إخوانك بالمنتدى
كما يمكنك إرفاق النتائج المتوقعة في ملف مرفق بدلاً من الصور لتسهيل المساعدة
تقبل تحياتي
ما هي نسخة الأوفيس التي تعمل عليها ؟؟
الخيار مفعل ..تمام إذا كان بجانب الخيار كلمة Missing فالمكتبة المفعلة لا تنتمي لنسخة الأوفيس لديك
في هذه الحالة قم بإزالة علامة الصح بجاتب الخيار الذي يوجد به كلمة Missing ثم ابحث عن الخيار مرة أخرى في النافذة المفتوحة لديك وإن شاء الله تنحل المشكلة
الأخ الحبيب أبو يوسف
مشكور على مرورك العطر ولكم يسعدني تواجدك معنا بالمنتدى
تقبلوا وافر تقديري واحترامي