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



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





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

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



18-08-2018 10:05 مساء
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 

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

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

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

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

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

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

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

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

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

الموضوع بسيط أحمادة متعقدهاش انت بس
عايز تزود فى النطاقات افتح قوسين كهاتين القوسين الواضحين ()
"شوفت القافية" فى الباراميتر الثالث وحدد نطاقاتك أسيدى
مثال كالصورة التالية

hqRMTX4R7LsxTRx
وأعتقد كدا كووفاية شرح فى استخدام الدالة وكود الدالة المستخدم هو......
Function AlsaqrJoin(break As String, ignore As Boolean, txt As Range) As String
'Eslam Abdullah
Dim text$, i%, t As Range
    For Each t In txt
        text = text & IIf(i = 0 Or (ignore = True And (text = "" Or t.Value = "")), "", break) & t.Value
        i = 1
    Next t
AlsaqrJoin = text
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
المشاركات : 429
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 2357
الاعجاب : 693
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrJoin بديل للدالة TEXTJOIN
رائع استاذ اسلام بارك الله فيك وجعله الله فى ميزان حسناتك
دالة ممتازة وعلى فكرة انا قمت بتحميل الملف كله

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


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


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

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




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

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




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

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

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




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

 
 


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




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

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






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


 







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



الساعة الآن 10:03 صباحا

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