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

Excel VBA اليسار

VBA Left هي أيضًا إحدى وظائف ورقة العمل المصنفة ضمن وظائف النص المستخدمة في VBA مع التطبيق. طريقة ورقة العمل ، تقوم بإرجاع عدد الأحرف المحدد من الجزء الأيسر من السلسلة.

تم دمج بعض وظائف Excel مع VBA أيضًا. من بين جميع وظائف النص العديدة ، تعد VBA LEFT واحدة من تلك الوظائف التي نستخدمها كثيرًا أكثر من الصيغ الأخرى.

إذا كنت تعرف وظيفة excel LEFT ، فإن وظيفة VBA LEFT هي نفسها تمامًا. يمكنه استخراج الأحرف من الجانب الأيسر من السلسلة أو القيمة التي قدمها المستخدم.

إن بناء جملة الدالة LEFT هو نفسه تمامًا كما في دالة ورقة العمل.

لها حجتان.

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

كيفية استخدام وظيفة Excel VBA اليسرى؟

يمكنك تنزيل قالب الوظيفة اليسرى لـ VBA من هنا - قالب الوظيفة اليسرى لـ VBA

مثال 1

افترض أن لديك كلمة "Sachin Tendulkar" وتريد فقط الأحرف الستة الأولى من هذه الكلمة. سنوضح كيفية الاستخراج من اليسار باستخدام وظيفة LEFT في VBA.

الخطوة 1: قم بإنشاء اسم ماكرو وحدد متغير كسلسلة.

رمز:

 Sub Left_Example1 () تعتيم MyValue على هيئة سلسلة نهاية فرعية 

الخطوة 2: الآن قم بتعيين قيمة لهذا المتغير

رمز:

 Sub Left_Example1 () خافت MyValue كسلسلة MyValue = End Sub 

الخطوة 3: افتح وظيفة LEFT.

رمز:

 Sub Left_Example1 () خافت MyValue كسلسلة MyValue = يسار (End Sub 

الخطوة 4: الوسيطة الأولى هي معرفة ما هي السلسلة أو القيمة. قيمتنا هنا هي "ساشين تيندولكار".

رمز:

 Sub Left_Example1 () Dim MyValue As String MyValue = يسار ("Sachin Tendulkar" ، End Sub 

الخطوة 5: الطول ليس سوى عدد الأحرف التي نحتاجها من اليسار. نحتاج 6 أحرف.

رمز:

 Sub Left_Example1 () Dim MyValue As String MyValue = يسار ("Sachin Tendulkar" ، 6) End Sub 

الخطوة 6: إظهار القيمة في VBA MsgBox.

رمز:

 Sub Left_Example1 () Dim MyValue As String MyValue = يسار ("Sachin Tendulkar"، 6) MsgBox MyValue End Sub 

الخطوة 7: قم بتشغيل الماكرو باستخدام المفتاح F5 أو يدويًا من خلال خيار التشغيل للحصول على النتيجة في مربع رسالة.

انتاج:

بدلاً من إظهار النتيجة في مربع رسالة ، يمكننا تخزين هذه النتيجة في إحدى الخلايا في ورقة عمل Excel الخاصة بنا. نحتاج فقط إلى إضافة مرجع الخلية والقيمة المتغيرة.

رمز:

 Sub Left_Example1 () Dim MyValue As String MyValue = يسار ("Sachin Tendulkar"، 6) Range ("A1"). القيمة = MyValue End Sub 

الآن إذا قمت بتشغيل هذا الرمز ، فسنحصل على القيمة في الخلية A1.

المثال رقم 2 - يسار مع وظائف أخرى

في الحالة المذكورة أعلاه ، قمنا بتوفير طول الأحرف التي نحتاجها من الاتجاه الأيسر مباشرةً ، ولكن هذا أكثر ملاءمة لقيم أو قيمتين. افترض أدناه قائمة القيم التي لديك في ورقة Excel الخاصة بك.

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

هذا هو المكان الذي سيظهر جمال الوظائف الأخرى في الصورة. من أجل توفير عدد الأحرف ديناميكيًا ، يمكننا استخدام وظيفة "VBA Instr".

في مجموعة الأسماء أعلاه ، نحتاج إلى جميع الأحرف من اليسار حتى نصل إلى حرف المسافة. لذلك يمكن أن ترجع وظيفة Instr تلك الأحرف العديدة.

الخطوة 1: بالمثل ابدأ اسم ماكرو excel وحدد متغيرًا كسلسلة.

رمز:

 Left_Example2 () خافت الاسم الأول على هيئة سلسلة نهاية فرعية 

الخطوة 2: قم بتعيين القيمة إلى المتغير من خلال الدالة LEFT.

رمز:

 Left_Example2 () خافت الاسم الأول كسلسلة الاسم الأول = يسار (End Sub 

الخطوة 3: هنا نحتاج إلى إحالة الخلية للحصول على القيمة من الخلايا. لذا اكتب الرمز كـ CELLE (2،1).

رمز:

 Sub Left_Example2 () خافت الاسم الأول كسلسلة الاسم الأول = يسار (خلايا (2،1). القيمة ، نهاية الفرعية 

الخطوة 4:  الشيء التالي هو عدد الأحرف التي نحتاجها. بعد تطبيق وظيفة LEFT ، لا تدخل طول الأحرف يدويًا ، قم بتطبيق وظيفة Instr.

رمز:

 Left_Example2 () خافت الاسم الأول كسلسلة الاسم الأول = يسار (خلايا (2 ، 1). القيمة ، InStr (1 ، خلايا (2 ، 1) .Value ، "")) End Sub 

الخطوة 5: قم بتخزين هذه النتيجة في خلية B2. لذا فإن الكود هو CELLS (2،2) .value = FirstName

رمز:

 Left_Example2 () خافت الاسم الأول كسلسلة الاسم الأول = يسار (خلايا (2 ، 1). القيمة ، InStr (1 ، خلايا (2 ، 1). القيمة ، "")) الخلايا (2 ، 2). القيمة = الاسم الأول نهاية الفرع 

الخطوة 6: قم بتشغيل هذا الرمز يدويًا أو من خلال F5 سنحصل على الاسم الأول.

حصلنا على الاسم الأول للاسم الواحد ، ولكن لدينا أيضًا عدة أسماء أخرى. لا يمكننا كتابة 100 سطر من التعليمات البرمجية لاستخراجها ، فكيف نستخرج؟

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

رمز:

 Sub Left_Example2 () خافت الاسم الأول على هيئة خافت سلسلة i كعدد صحيح لـ i = 2 إلى 9 الاسم الأول = يسار (الخلايا (i ، 1). القيمة ، InStr (1 ، الخلايا (i ، 1). القيمة ، "") - 1) الخلايا (i ، 2) .Value = الاسم الأول التالي i End Sub 

ملاحظة: تقوم  دالة Instr بإرجاع حرف مسافة أيضًا ، لذلك نحتاج إلى طرح 1 من نتيجة Instr.

إذا قمت بتشغيل هذا الرمز ، فسنحصل على قيم الاسم الأول.

انتاج:

أشياء للذكرى

  • يمكن استخراج اليسار فقط من اليسار.
  • تبحث وظيفة VBA Instr عن موضع الحرف الموفر في السلسلة.

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