الوظيفة VBA: Mid

وصف

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

بناء جملة MID

Mid (نص ، بداية)

أو

Mid (نص ، بداية ، char_count)

مثال VBA Mid

الحصول على أجزاء مختلفة من النص من سلسلة:

Sub MidExample()
    
      MsgBox Mid("www.moonexcel.com.ua", 1, 1)  'العوائد: w
      MsgBox Mid("www.moonexcel.com.ua", 1, 3)  'العوائد: www
      MsgBox Mid("www.moonexcel.com.ua", 1, 13) 'العوائد: www.moonexcel
      MsgBox Mid("www.moonexcel.com.ua", 1, 30) 'العوائد: www.moonexcel.com.ua
    
      MsgBox Mid("www.moonexcel.com.ua", 5, 9)  'العوائد: moonexcel
      MsgBox Mid("www.moonexcel.com.ua", 5, 4)  'العوائد: moon
      MsgBox Mid("www.moonexcel.com.ua", 9, 5)  'العوائد: excel
      MsgBox Mid("www.moonexcel.com.ua", 16, 3) 'العوائد: com
      MsgBox Mid("www.moonexcel.com.ua", 5, 50) 'العوائد: moonexcel.com.ua
      MsgBox Mid("www.moonexcel.com.ua", 5)     'العوائد: moonexcel.com.ua

End Sub