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

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
رمضان بكري Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر اكسيل اسئله واجابات




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





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

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



18-08-2018 10:05 مساء
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1328
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 70
قوة السمعة : 8215
الاعجاب : 2325
 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

 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: ali mohamed ali، هانى على، YasserKhalil، karim1974dz، الحمدلله، محمد أبو عبدو،





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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


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


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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




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

أثارت هذه المشاركة إعجاب: هانى على، ali mohamed ali،




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

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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




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





لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil،




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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




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





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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




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

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

أثارت هذه المشاركة إعجاب: YasserKhalil،






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


 







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



الساعة الآن 05:01 مساء

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