تقوم الدالة VBA Val بإرجاع الأرقام الموجودة في سلسلة أحرف حتى تعثر على حرف غير رقمي.
تقبل هذه الوظيفة فقط "." كفاصل عشري.
Val(نص)
استخدام الدالة Val لإرجاع سلاسل من أحرف مختلفة كأرقام:
Sub ValExample() MsgBox Val("1") 'العوائد: 1 MsgBox Val(" 1 ") 'العوائد: 1 MsgBox Val(1) 'العوائد: 1 MsgBox Val("1h") 'العوائد: 1 MsgBox Val("h1") 'العائدات: 0 MsgBox Val("1 number") 'العوائد: 1 MsgBox Val("number 1") 'العائدات: 0 MsgBox Val("2 2") 'العائدات: 22 MsgBox Val("2.2") 'العوائد: 2.2 MsgBox Val("2,2") 'العائدات: 2 MsgBox Val("75000 Kyiv") 'العائدات: 75000 MsgBox Val("Kyiv 75000") 'العائدات: 0 MsgBox Val("Excel") 'العائدات: 0 End Sub