الوظيفة VBA: Len

وصف

ترجع الدالة VBA LEN عدد الأحرف في سلسلة.

بناء الجملة لين

Len (text)

مثال VBA Len

احصل على عدد أحرف الأسطر المتعددة:

Sub LenExample1()

      MsgBox Len("")                     'العوائد: 0
      MsgBox Len("45")                   'العوائد: 2
      MsgBox Len("excel")                'العوائد: 5
      MsgBox Len("www.moonexcel.com.ua") 'العوائد: 20
    
      variable = "moonexcel"
      MsgBox Len(variable) 'العوائد: 9
    
End Sub

استخدام دالة Len في ظروف تتحقق من احتواء اسم المستخدم على 3 أحرف على الأقل قبل تنفيذ الإجراء:

Sub LenExample2()

      name = InputBox("ادخل اسم المستخدم:", "اسم")
    
      If Len(name) >= 3 Then
          MsgBox "أحسنت" & name & "!"
      End If
    
End Sub