ربط الحلايا / وتخطى الفراغات

[محمد الريفى]

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

ارجو ان نقدم جميعا حلولا متنوعه لهذه الحالة

" المطلوب ربط الخلايا بعلامة / وترك او تخطى الخلايا الفارغة "

بمعادلات او اكواد او اى طريقة حل

 

 

 

 

تم تعديل أبريل 4, 2016 بواسطه محمد الريفى

[سليم حاصبيا]

هذا احد الحلول

 

Rifi_Salim.rar

[ياسر خليل أبو البراء]

أخي الحبيب محمد الريفي

نشتاق لموضوعاتك الجديدة بشكل دائم ولتواجدك فيما بيننا

لدي دالة معرفة تقوم بالأمر ولكني سأكتفي بهذه المعادلة البسيطة لتؤدي الغرض

=SUBSTITUTE(TRIM(A1&" "&B1&" "&C1&" "&D1&" "&E1)," ","/")

تقبل تحياتي

 

[سليم حاصبيا]

 (بارك الله بك اخي ياسر على هذه المعادلة الرائعة والتي لم تخطر على بالي (و انا بخبط راسي كي ابتدع حلاً مناسبا

على كل حال هذا حل اخر بالكود (الصفحة My_sheet)

 

 

Rifi_Salim 1.rar

[محمد الريفى]

بسم الله ماشاء الله ربنا يبارك فيكم ويجزيكم خير حلول رائعه من اساتذه المنتدى

سامحنى استاذى ابوالبراء فاننى (احبط ) احيانا نتيجة لعدم التفاعل

-------.

واليكم فهذه حلول متواضعه بجانب حلولكم والحقيقة كان هذا سؤال من احد الناس فوجدت انه يستاهل التفكير فاحببت ان اطرحه واشاركه معكم حتى نبدع جميعا

واتمنى من الجميع تقديم المزيد والمزيد من الحلول

الحل الاول

=IF(MID(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1)="/",
REPLACE(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1,""),
CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1))

الحل الثانى

=A1& IF(AND(A1<>"",COUNTA(B1:E1)),"/","")&
B1 & IF(AND(B1<>"",COUNTA(C1:E1)),"/","") &
C1 & IF(AND(C1<>"",COUNTA(D1:E1)),"/","") &
D1 & IF(AND(D1<>"",COUNTA(E1)),"/","") &
E1

الحل الثالث دالة UDF وليست من اعدادى بل منقوله

=ConcatRange(A1:F1,"/")

Option Explicit
Function ConcatRange(R As Range, Optional sDelim As String = " ") As String
    'If no delimiter specified, delimiter will be a space
    Dim C As Range
    Dim V As Variant
    Dim COL As Collection
    Dim I As Long
   
Set COL = New Collection
For Each C In R
    If C <> "" Then COL.Add C.Text
Next C

ReDim V(0 To COL.Count - 1)
For I = 0 To UBound(V)
    V(I) = COL(I + 1)
Next I

ConcatRange = Join(V, sDelim)

End Function

 

Concatenate%20formula.rar

[الصـقر]

اخى واستاذى الحبيب محمد الريفى

جزاكم الله خيرا على كل ما تقدمه خدمه لاخوانك فى الوطن العربى

وبخصوص الموضوع فى داله جديده من دوال اوفيس 2016 وهى

TextJoin هى داله حديثه يمكن من خلالها عمل ذالك

لكن للاسف ما عندى نسخه 2016م معرفه على جهازى لكى ارفق لك مثال تطبيقى

اعتقد الداله هتكون بهذا الشكل

=textjoin( "/";;A1:E1)

ارجوا من الاخوة اللى عندهم 2016 يجرب ويعلمنى بالنتائج

تقبلوا تحياتى

 

تم تعديل أبريل 5, 2016 بواسطه الصـقر

[ياسر خليل أبو البراء]

أخي الحبيب حسام

أنا أعمل على أوفيس 2016 والدالة التي ذكرتها غير موجودة ربما تكون دالة معرفة ....

بارك الله فيك وجزيت خيراً على التفاعل في الموضوع

[الصـقر]

اخى الحبيب ابوالبراء

الداله موجوده فى اوفيس 2016 وليست معرفه

اعمل تحديث يا ابوالبراء من خيارات الاكسيل 

تقبل تحياتى

[ياسر خليل أبو البراء]

كلامك صحيح ..

https://support.office.com/en-us/article/TEXTJOIN-function-357b449a-ec91-49d0-80c3-0e8fc845691c

دا رابط فيه شرح للدالة .. بس الغريب النسخة اللي عندي متحدثة ..!!

هراجع النسخة إن شاء الله

بارك الله فيك وجزاك الله كل خير

[الصـقر]

جزاكم الله خيرا يا ابوالبراء كنت لسه ارفق لك الرابط لقيتك وصلت له

جزاكم الله خيرا

تقبل تحياتى

[محمد الريفى]

بارك الله فيك اخى حسام وواحشنى جدا والله واستاذى واخى فى الله ابوالبراء

اما عن الدالة textjion  فى دالة موجوده فى اصدار اوفيس 365 فقط وليس موجوده فى اى اصدارات اخرى

ايضا قامت ميكرسوفت بعمل 2 تحديث للاكسيل فى 2016 تحديث فى اواحر يناير وتحديث فى شهر مارس

وواضح ان ميكروسوفت هتعمل تحديثات بشكل مستمر ومش هتدى نسح كامله زى زمان

يعنى تغيير فى سياستها هيخنوقنا علشان نجبر ونشترى البرنامج بس ده بعينهم

وبالنسبة للدالة textjion فانها لم تقم بالمطلوب فى نفس المثال لانها لن تستطيع تخطى الفراغات

تقبل منى خالص التحية والاحترام

 

[الصـقر]

اخى الحبيب الاستاذ محمد الريفى والله القلوب عند بعضها

ادام الله علينا نعمه المحبه فى الله

هذا رابط فيديو لشرح الداله للعلامه الكبير محمد جادالله ( علم من اعلام الاكسيل اتمنى يكون بينا فى اوفيسنا )

تقبلوا جميعا تحياتى

[الصـقر]

اخواتى الكرام

هذا شرح اخر اكثر تفصيلا ومطابقه للحاله التى تفضل بها الاستاذ محمد الريفى

 

 

تقبلوا جميعا تحياتى

 

[توكل]

الأستاذ محمد الريفي أنا جربت دالة TEXTJOIN فعلاً جمعت الخلايا وتخطت الفراغات