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

إخواني وأحبابي في الله
أقدم لكم شرح تفصيلي للدالة Join لربط ودمج عناصر المصفوفة أحادية الأبعاد ـ ولن يطول الكلام فالشرح بالتفصيل داخل الصور .. أرجو أن يفيدكم الموضوع إن شاء الله



الكود المستخدم في الموضوع

Sub Join_Function_In_Arrays_Tutorial()
    ReDim a(1 To 5)
    
    a(1) = "Hossam Khattab"
    a(2) = "Yasser Araby"
    a(3) = "Mohamed Saleh"
    a(4) = "Eslam Gohan"
    a(5) = "Yasser Khalil"    
    Debug.Print Join(a, vbCrLf)
    Debug.Print "-------------"
    Debug.Print Join(a, " | ")
    Debug.Print "-------------"
    Debug.Print Join(Array("Supervisor: " & a(4), "Designer: " & a(2), "Web Guru: " & a(3)), Chr(13))
End Sub

وإليكم الملف المرفق
حمل الملف المرفق من هنا (تحميل الملف يدعم صاحب الموضوع فلا تبخل علينا بالتحميل ما دمت قد استفدت)

ولا تنسونا بصالح دعائكم
إعداد / ياسر خليل أبو البراء