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

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




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





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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

hqRMTX4R7LsxTRx
وأعتقد كدا كووفاية شرح فى استخدام الدالة وكود الدالة المستخدم هو......
Function AlsaqrJoin(Optional break As String = "", Optional ignore As Boolean = 1, Optional rng As Range) As String
'Programming by Eslam Abdullah
Dim txt$, r As Range, i As Boolean
    For Each r In rng
        txt = txt & IIf((i = 0 Or ignore) And (txt = "" Or r.Value = ""), "", break) & r.Value
        i = 1
    Next r
AlsaqrJoin = 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
المشاركات : 614
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2964
الاعجاب : 951
 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
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 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
المشاركات : 1214
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 60
قوة السمعة : 7264
الاعجاب : 2061
 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
المشاركات : 4860
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 324
قوة السمعة : 13968
الاعجاب : 5193
 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
المشاركات : 1214
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 60
قوة السمعة : 7264
الاعجاب : 2061
 offline 
look/images/icons/i1.gif الدالة المعرفة AlsaqrJoin بديل للدالة TEXTJOIN
عارفها عارفها ، الست فريدة اهى بتسلم عليك biggrin2
MjkxOTk5MQ2020MzgzMjI5MQ100100NDIyMTEwMQ2525xEzzQ7u2ihc6N7b





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


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




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

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






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


 







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



الساعة الآن 04:29 مساء

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