وظيفة VBA LEN | كيفية استخدام LEN للعثور على طول السلسلة في Excel؟

دالة Len هي وظيفة شائعة لكل من ورقة العمل و VBA ، وهي دالة مضمنة لكل من النظامين الأساسيين ، كما أن بناء الجملة لاستخدام هذه الوظيفة متشابه أيضًا ، فالوسيطات التي تأخذها هذه الوظيفة في كلا النظامين متشابهة وهي سلسلة والاستخدام أو أن ناتج هذه الوظيفة هو نفسه لأنه يقوم بإرجاع طول سلسلة.

وظيفة VBA LEN

تقوم دالة VBA LEN بإرجاع "طول السلسلة" ، أي أنها تعرض عدد الأحرف الموجودة في القيمة المقدمة. من بين جميع وظائف السلسلة في VBA ، فإن "LEN" هي الوظيفة الأقل استخدامًا. لقد رأيت وظيفة "VBA LEN" المستخدمة كوظيفة دعم لوظائف السلسلة الأخرى مثل وظائف VBA MID ووظيفة VBA RIGHT.

كيف تجد طول السلسلة أو القيمة؟

على سبيل المثال ، إذا كنت تستخدم الجملة "Hello Guys، Good Morning !!!" وانت اذا اردت ان تجد عدد الاحرف فيه كيف تجده؟ في هذه المقالة ، سوف نعرض لك وظيفة "VBA LEN".

صيغة دالة VBA LEN

تحتوي الدالة LEN على صيغة واحدة فقط ، مثل التعبير.

التعبير ليس سوى القيمة التي نحاول اختبارها.

على سبيل المثال ، سيعود Len (“Good”) 4.

أمثلة

فيما يلي أمثلة لـ VBA Length of String Function.

مثال 1

طول وظيفة سلسلة VBA سهل الاستخدام للغاية. على سبيل المثال ، انظر إلى رمز VBA أدناه.

رمز:

 LEN_Example () إجمالي الطول الإجمالي الخافت كسلسلة إجمالي الطول = Len ("Excel VBA") MsgBox Total_Length End Sub 

في متغير الكود أعلاه هو "إجمالي الطول".

خافت الطول الإجمالي كسلسلة

بالنسبة لهذا المتغير ، قمنا بتعيين القيمة من خلال وظيفة VBA LEN.

Total_Length = Len ("Excel VBA")

بالنسبة لوظيفة LEN ، قمنا بتعيين القيمة كـ "Excel VBA".

Total_Length = Len ("Excel VBA")

بعد ذلك ، نعرض النتيجة في مربع رسالة VBA.

إجمالي طول MsgBox

عندما أقوم بتشغيل هذا الرمز باستخدام المفتاح F5 أو يدويًا ، سنحصل على 9 نتيجة لذلك لأن المساحة هي أيضًا حرف.

VBA LEN كوظيفة دعم

مثال 1

يتم استخدام الغرض من وظيفة LEN في الغالب مع وظائف أخرى. لقد استخدمت هذه الوظيفة مع وظائف RIGHT & Instr.

على سبيل المثال ، انظر إلى البيانات النموذجية أدناه.

من البيانات أعلاه ، نحتاج إلى استخراج التاريخ بشكل منفصل والملاحظات بشكل منفصل. انسخ البيانات أعلاه إلى ورقة Excel والصقها في الخلية A1.

لاستخراج هذه العناصر ، نحتاج إلى استخدام دالة LEN مع دوال سلسلة أخرى. سوف يقوم الكود أدناه بالمهمة بالنسبة لنا.

رمز:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 إلى 6 'في هذه الحالة بدأت بياناتي من الخلية الثانية وتنتهي في السادسة. بناءً على بياناتك ، قم بتغيير الأرقام OurValue = ActiveSheet.Cells (k، 1) .Value 'سيؤدي هذا إلى استخراج أول 10 أحرف ، أي جزء التاريخ ActiveSheet.Cells (k، 2) .Value = Left (Trim (OurValue)، 10) سيؤدي هذا إلى استخراج جزء الملاحظات ActiveSheet.Cells (k، 3) .Value = Mid (Trim (OurValue)، 11، Len (Trim (OurValue)) - 10) Next End Sub

عندما نقوم بتشغيل هذا الكود يدويًا أو من خلال المفتاح F5 ، سنحصل على النتيجة كما هو موضح أدناه.

المثال رقم 2

سأوضح لك الآن كيفية استخدام طول السلسلة VBA كدالة دعم لاستخراج الاسم الأخير للاسم الكامل باستخدام وظيفة RIGHT & Instr.

للعرض التوضيحي ، انظر إلى البيانات أدناه.

من القائمة أعلاه ، نحتاج إلى استخراج اسم العائلة من الاسم الكامل. سيقوم الكود أدناه باستخراج الاسم الأخير. تستخدم LEN كدالة دعم هنا.

رمز:

 Sub LEN_Example2 () Dim FullName كسلسلة Dim k بطول k = 2 إلى 8 FullName = ActiveSheet.Cells (k، 1) .Value 'سيؤدي هذا إلى استخراج اسم العائلة ActiveSheet.Cells (k، 2) .Value = Right (FullName) ، Len (FullName) - InStr (1، FullName، "")) 'LEN يجد العدد الكامل للأحرف' يجد Instr حرف مسافة 'LEN - سيعطي Inst إجمالي عدد الأحرف من اليمين التالي End Sub 

قم بتشغيل الكود باستخدام المفتاح F5 أو يمكنك التشغيل يدويًا ومشاهدة النتيجة.

يمكنك تنزيل Excel VBA Length of String من هنا - قالب وظيفة VBA LEN


$config[zx-auto] not found$config[zx-overlay] not found