اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

عندي عدة صفوف فيها بيانات وعايز اجمع البيانات اللي ف كل صف ف خلية واحده ويفصل بين كل معلومة واللي بعدها علامة الناقص 
مع العلم ان عندي اكثر من ١٢٠٠٠ سطر يعني ماينفعش & وايضاً عايز لو ضفت اَي حاجه ف العمود تظهر اوتوماتيك ف الخلية

برجاء مراجعة الموضوع السابق ع اللينك التالي لفهم المشكلة:

 

قام بنشر (معدل)

السلام عليكم

اليك الدالة المعرفة التالية 

Public Function ConcatenateRange(rRange As Range, Optional sDelimiter As String) As String
    Dim c As Variant

    For Each c In rRange.Cells

     ' اذا اردت ان تتجاهل المعادلة الخلايا الفارغة احذف تلك الشرطه ' من السطر التالى والسطر القبل قبل الاخير فوضع تلك الشرطة امام اي سطر من الاكواد يعنى انه سطر للشرح او ملاحظه وليس كود سينفذ  
       ' If Not c.Value = "" Then
            If ConcatenateRange = "" Then
                ConcatenateRange = c.Value
            Else
                ConcatenateRange = ConcatenateRange & sDelimiter & c.Value
            End If
      '  End If
    Next c

End Function

Employee_4.rar

تم تعديل بواسطه خالد الرشيدى
  • Like 1
قام بنشر
في 5/18/2017 at 19:34, خالد الرشيدى said:

السلام عليكم

اليك الدالة المعرفة التالية 


Public Function ConcatenateRange(rRange As Range, Optional sDelimiter As String) As String
    Dim c As Variant

    For Each c In rRange.Cells

     ' اذا اردت ان تتجاهل المعادلة الخلايا الفارغة احذف تلك الشرطه ' من السطر التالى والسطر القبل قبل الاخير فوضع تلك الشرطة امام اي سطر من الاكواد يعنى انه سطر للشرح او ملاحظه وليس كود سينفذ  
       ' If Not c.Value = "" Then
            If ConcatenateRange = "" Then
                ConcatenateRange = c.Value
            Else
                ConcatenateRange = ConcatenateRange & sDelimiter & c.Value
            End If
      '  End If
    Next c

End Function

Employee_4.rar

تسلم ايدك يااستاذ خالد مظبوطه وده طلبي وشكرا جدا لحضرتك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information