إجمالي مرات مشاهدة الصفحة

الجمعة، 28 أكتوبر 2016

دالة معرفة لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE الموجودة داخل الإكسيل MultiCat User Defined Function

السلام عليكم ورحمة الله وبركاته

أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً.



وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما.

Public Function MultiCat(ByRef rRng As Excel.Range, Optional ByVal sDelim As String = "") As String
    Dim rCell As Range

    For Each rCell In rRng
        MultiCat = MultiCat & sDelim & rCell.Text
    Next rCell
    MultiCat = Mid(MultiCat, Len(sDelim) + 1)
End Function


إعداد / ياسر خليل أبو البراء

هناك تعليق واحد:

  1. .انضم إلى eToro وقُد ثورة التكنولوجيا المالية

    eToro هي السوق الرائدة للجيل التالي من المتداولين والمستثمرين. بإمكانك تحقيق أرباح مباشرة من خلال التداول عبر الإنترنت وقيادة خمسة ملايين متداول اجتماعي حول العالم، والحصول على الأموال باعتبارك تمثل جيلاً جديداً من مدراء الصناديق عندما ينسخ الآخرون استثماراتك.

    ردحذف