الوظيفة VBA: Replace

وصف

ترجع الدالة VBA REPLACE عدد الأحرف المحدد من سلسلة أحرف تبدأ من رقم الحرف المحدد.

بناء الجملة REPLACE

Replace (نص ، بحث ، استبدال)

أو

Replace (نص ، بحث ، استبدال ، بدء ، حد ، حالة)

مثال VBA Replace

لنقم بإجراء العديد من الاستبدالات في السطر المحدد:

Sub ReplaceExample()
    
      text = "www.moonexcel.com.ua"
    
      'استبدال بسيط
      MsgBox Replace(text, "excel", "sheets")        'العوائد: www.moonsheets.com.ua
    
      'استبدال بدون الأحرف الأولى
      MsgBox Replace(text, "excel", "sheets", 5)     'العوائد: moonsheets.com.ua
    
      'الاستبدال بتحديد أو عدم تحديد حد لعدد الاستبدالات
      MsgBox Replace(text, "e", "E", 5)              'العوائد: moonExcEl.com.ua
      MsgBox Replace(text, "e", "E", 5, 1)           'العوائد: moonExcel.com.ua
    
      'الاستبدال مع الجراب أو بدونه
      MsgBox Replace(text, "EXCEL", "sheets")        'العوائد: www.moonexcel.com.ua
      MsgBox Replace(text, "EXCEL", "sheets", , , 1) 'العوائد: www.moonsheets.com.ua
    
End Sub