إجمالي مرات مشاهدة الصفحة

الأربعاء، 27 أبريل 2016

استبدال مجموعة من القيم والنصوص في كل أوراق العمل Replace Values In All Worksheets

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

أقدم لكم كود يقوم بالبحث عن قيم أو نصوص واستبدالها بقيم أو نصوص أخرى في كل أوراق العمل.
بفرض أن لديك ثلاثة أوراق عمل ، والمطلوب استبدال قيم محددة في كل أوراق العمل بقيم جديدة
نقوم بالتعديل في الكود في المتغير fndList حيث يمثل مصفوفة القيم القديمة المراد استبدالها ، وتوضع القيم بين أقواس تنصيص ، ثم نعدل في المتغير المسمى rplcList حيث يمثل مصفوفة القيم الجديدة التي ستوضع مكان القيم القديمة ، وتوضع بين أقواس تنصيص ، فيقوم الكود بعملية البحث والاستبدال في كل أوراق العمل مرة واحدة.

وأخيراً إليكم الكود المستخدم ، ويوضع الكود في موديول عادي

Sub Replace_In_All_Worksheets()
    Dim Ws As Worksheet
    Dim fndList As Variant
    Dim rplcList As Variant
    Dim I As Long

    'Old List
    fndList = Array("Yaser", " - ", "helo", "ecxel")

    'New List
    rplcList = Array("Yasser", " | ", "Hello", "Excel")

    Application.ScreenUpdating = False
        For I = LBound(fndList) To UBound(fndList)
            For Each Ws In ActiveWorkbook.Worksheets
                Ws.Cells.Replace What:=fndList(I), Replacement:=rplcList(I), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Next Ws
        Next I
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

إعداد / ياسر خليل أبو البراء

هناك تعليقان (2):

  1. Looking for the Best Dating Website? Create an account to find your perfect match.

    ردحذف
  2. .انضم إلى eToro وقُد ثورة التكنولوجيا المالية

    تداول من أي مكان وقتك ثمين. تداول من خلال الكمبيوتر أو الجوال أو الكمبيوتر اللوحي

    ردحذف