أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




استبدال حروف عربية بأخري بالكود

السلام عليكم قمت بعمل كود بدائى لاستبدال حروف عربية بأخرى مثل (أ) بـ (ا) بغرض ضبط الترتيب الهجائى والكود يعمل ..



30-08-2017 10:31 صباحا
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 689
الاعجاب : 2
 offline 
السلام عليكم 
 
قمت بعمل كود بدائى لاستبدال حروف عربية بأخرى
 
مثل  (أ)  بـ  (ا) بغرض ضبط الترتيب الهجائى 
 
والكود يعمل لكنه بطىء

فهل يمكن عمل تعديل على الكود ليصبح أفضل واسرع

Sub ReplaceChar()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Sheets("Teachers Data").Select
Sheets("Teachers Data").[B6:B324].Select
cell.Value = Application.WorksheetFunction.Trim(cell.Value)
    Sheets("Teachers Data").Range("B6:B324").Replace "ا", "أ"
    Sheets("Teachers Data").Range("B6:B324").Replace "ا", "إ"
    Sheets("Teachers Data").Range("B6:B324").Replace  "ا", "آ"
    '-----------------
    Sheets("Teachers Data").Range("B6:B324").Replace "ه", "ة"
    Sheets("Teachers Data").Range("B6:B324").Replace "ي", "ى"
'    Next
Sheets("Teachers Data").[B5].Select
End Sub

 




30-08-2017 10:49 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif استبدال حروف عربية بأخري بالكود
وعليكم السلام أخي الكريم أبا الحسن
رجاء ضع الأكواد بين أقواس الكود ليظهر بشكل منضبط .. للمزيد حول معرفة هذا الأمر قم بزيارة لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

جرب الكود التالي عله يفي بالغرض (رغم أنني لا أحب العمل بشكل افتراضي وأحب أن يرفق ملف بالموضوع للعمل عليه)
Sub ReplaceChar()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cel As Range
    
    Set ws = ThisWorkbook.Sheets("Teachers Data")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
        Set rng = ws.Range("B6:B324")
        
        For Each cel In rng
            cel.Value = Application.WorksheetFunction.Trim(cel.Value)
            cel.Value = FnReplace(cel)
        Next cel
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
End Sub

Function FnReplace(s As Range) As String
    Dim o       As Variant
    Dim r       As Variant
    Dim n       As Long
    Dim t       As String

    t = s.Value
    o = Array("أ", "إ", "آ", "ة", "ى")
    r = Array("ا", "ا", "ا", "ه", "ي")

    For n = LBound(o) To UBound(o)
        FnReplace = Replace(t, o(n), r(n)): t = FnReplace
    Next n

    FnReplace = t
End Function




30-08-2017 04:47 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 689
الاعجاب : 2
 offline 
look/images/icons/i1.gif استبدال حروف عربية بأخري بالكود
جزاكم الله خيرا




30-08-2017 08:12 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif استبدال حروف عربية بأخري بالكود
وجزيت خيراً بمثل ما دعوت لي أخي الكريم






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
معادلة تفقيط الأرقام بالحروف الى اللغة العربية ali mohamed ali
11 2823 YasserKhalil

الكلمات الدلالية
استبدال ، حروف ، عربية ، بأخري ، بالكود ،


 








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

الساعة الآن 07:05 مساء

أعلن هنا
أعلن هنا
أعلن هنا