أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تنزيل ملف باستخدام الأكواد Download File Using VBA اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





الدالة المعرفة JoinEA بديل للدالة TEXTJOIN

السلام عليكم ورحمة الله وبركاته قد لا يعلم البعض عن دالة TextJoin لأنها دالة من دوال نسخة أوفيس 365 أو إصدار نسخة 2019 ..



18-08-2018 10:05 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1409
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8730
الاعجاب : 107
 offline 

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

قد لا يعلم البعض عن دالة
TextJoin لأنها دالة من دوال نسخة أوفيس 365 أو إصدار نسخة 2019
وعلى السريع كدا لو عايز تعرف كل الدوال وامتى تم اصدارها ممكن تراجع قاموس دالات الاكسل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

طيب واحد هيقولى بتعمل ايه المحروسة 
TextJoin
المحروسة دى تقدر تقول انها سوبر دالة CONCATENATE blink

صيغة دالة TEXTJOIN كالتالى
= TEXTJOIN(",", TRUE, A1:C1)

أول باراميتر هو فاصل بين كل نص والتانى وفى حالة تجاهله يكن الفاصل الإفتراضى فراغ ""

ثانى باراميتر هو قيمة TRUE أو FALSE بمعنى لو TRUE
يتم تجاهل الخلايا الفارغة أثناء دمج النص طب لو FALSE
أكيد ياحمادة العكس لن يتم تجاهل الخلايا الفارغة صحصح معايا كدا
وفى حالة تجاهله يكن الإفتراضى هو TRUE أى تجاهل الخلايا الفارغة

ثالث باراميتر خاص بالنطاق المراد دمج النص الذى يحتويه

يعنى بدل ما تستخدم دالة CONCATENATE وتدخل النص الأول وبعدين تدخل الفاصل بين النص وبعدين النص التانى وهكذا
موضوع متعب شوية مش كدا برضوا

ودالة TextJoin وفرت مجهود كبير فى الموضوع دا ،
إلى أنه لا يتمتعون بميزاتها أغلبية الناس لعدم توافر نسخة
365 لديهم بل إن الغالبية تستخدم نسخة 2010 أو 2007
لذلك فكرت ببرمجة دالة تقوم بالوظيفة نفسها وهى دالة JoinEA

نشوف الدالة بقى عشان شكلى اتكلمت كتير وبإختصار دى نتائج الدالة كما موضح بالصورة التالية
NDUxMTI3MQ9999001

ماذا نلاحظ يأبا البراء ، نلاحظ أن ترتيب الباراميترات نفس ترتيب دالة TextJoin
أول باراميتر هو الفاصل والثانى هو TRUE أو FALSE حمادة وقفنى تانى انت كاتب 1 مش TRUE لا وباصصلى كدا وبيشرب سيجاره 63
شوف أحمادة عشان تعبتنى معاك خدها قاعدة دائما وفى أى لغة رقم 0 فى القيم المنطقية يساوى FALSE وأى رقم خلاف ذلك سواء موجب أو سالب يساوى TRUE
والباراميتر الثالث هنا هو النطاق المراد دمجة
شوفت بسيطة وجميلة ازاى

وأعتقد كدا كووفاية شرح فى استخدام الدالة وكود الدالة المستخدم هو......
ملاحظة: تم تحديث الدالة بتاريخ 19/11/2018
Function JoinEA(Optional break As String = "", Optional ignore As Boolean = 1, Optional rng As Variant) As String
'Programming by Eslam Abdullah
Dim txt$, r As Variant, i As Boolean
    If Not IsArray(rng) And Not IsObject(rng) Then JoinEA = rng: Exit Function
    If IsArray(rng) Then rng = Application.Transpose(rng)
    
    For Each r In rng
        txt = txt & IIf((i = 0 Or ignore) And (txt = "" Or r = ""), "", break) & r
        i = 1
    Next r
JoinEA = txt
End Function

وبلاش بقى شغل أخد الكود وأجرى ها ماشى ، ياحمادة حمل ملف العمل وامسحه تانى biggrin2
لتحميل ملف العمل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
هتحمل الملف تبقى حبيبى وصاحبى وكفاءة ، هتاخد الكود وتجرى همسكك أعصرك أنزل منك أعضاء صغيرين 121

كل عام وانتم بخير أحبابى فى الله 81
وأدام الله عليكم اليمن والبركات 81
كان معكم ومعنا ومعاهم برضوا اسلام عبدالله biggrin2

 



















 
 







18-08-2018 11:57 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1068
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 50
قوة السمعة : 4569
الاعجاب : 270
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
رائع استاذ اسلام بارك الله فيك وجعله الله فى ميزان حسناتك
دالة ممتازة وعلى فكرة انا قمت بتحميل الملف كله



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


19-08-2018 12:02 صباحا
مشاهدة مشاركة منفردة [2]
هانى على
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 280
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 445
الاعجاب : 7
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
مشكورين استاذ اسلام على هذه الموضوعات الهامة والشيقة جزاك الله كل خير





19-08-2018 12:19 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1409
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8730
الاعجاب : 107
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
مشكور أستاذ على وأستاذ هانى على مروركم المشرف والعطر على الموضوع
وموشكرين على تحميل الملف أعلوه biggrin2
نردهالك فى الأفراح إن شاء الله 63





19-08-2018 04:08 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6567
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18122
الاعجاب : 608
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
بسم الله ما شاء الله عليك أخي الغالي إسلام
مميز وموضوعاتك فريدة ومتميزة ..

متسألش مين فريدة دي عشان متتعبش smile  





19-08-2018 12:44 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1409
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8730
الاعجاب : 107
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
عارفها عارفها ، الست فريدة اهى بتسلم عليك biggrin2
MjkxOTk5MQ2020MzgzMjI5MQ100100NDIyMTEwMQ2525xEzzQ7u2ihc6N7b


 
 






27-08-2018 12:06 مساء
مشاهدة مشاركة منفردة [6]
محمد أبو عبدو
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 136
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 418
الاعجاب : 6
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
بارك الله فيك أستاذي الفاضل وجزاك الله خير الجزاء
وزادك الله علما ونفع بك ، وجعل هذا العمل الطيب
في ميزان حسناتك وكتبه لك صدقة جارية .





19-11-2018 11:38 مساء
مشاهدة مشاركة منفردة [7]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1409
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8730
الاعجاب : 107
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
ملاحظة: تم تحديث الدالة بتاريخ 19/11/2018





20-11-2018 12:16 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6567
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18122
الاعجاب : 608
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
أخي الحبيب إسلام
توهتنا بالتحديثات كل شوية .. يرجى ذكر ما قمت بتحديثه لكي نعرف كيف تم تطوير الدالة ..





20-11-2018 12:29 صباحا
مشاهدة مشاركة منفردة [9]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1409
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 73
قوة السمعة : 8730
الاعجاب : 107
 offline 
look/images/icons/i1.gif الدالة المعرفة JoinEA بديل للدالة TEXTJOIN
المشاركة الأصلية كتبت بواسطة: YasserKhalil
أخي الحبيب إسلام
توهتنا بالتحديثات كل شوية .. يرجى ذكر ما قمت بتحديثه لكي نعرف كيف تم تطوير الدالة ..

ههههههههههههههههه سورى سورى biggrin2
التحديث للتعامل مع الصفيف كما النطاقات أو إدخال الدالة ضمن معادلة صفيف







الكلمات الدلالية
الدالة ، المعرفة ، AlsaqrJoin ، بديل ، للدالة ، TEXTJOIN ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 05:41 صباحا

أعلن هنا
أعلن هنا
أعلن هنا