الوظيفة VBA: Trim

وصف

ترجع الدالة VBA TRIM سلسلة من الأحرف بعد إزالة المسافات من يسار ويمين السلسلة.

بنية TRIM

Trim (نص)

مثال المعالجة VBA

دعنا نزيل المسافات الزائدة من بداية السطر ونهايته:

Sub TrimExample1()

      MsgBox Trim("test")              'العوائد: "test"
      MsgBox Trim("   test")           'العوائد: "test"
      MsgBox Trim("test   ")           'العوائد: "test"
      MsgBox Trim("   test   ")        'العوائد: "test"
      MsgBox Trim("   test   test   ") 'العوائد: "test test"
      MsgBox Trim("   ")               'عائدات: ""
    
End Sub

إزالة الفراغات الزائدة داخل النص

إزالة المسافات الزائدة داخل الخط:

Sub TrimExample2()

     MsgBox WorksheetFunction.TRIM("   test     test   ") 'العوائد: "test test"
    
End Sub