tokhy2000

في 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

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

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

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

3 دقائق مضت, خالد الرشيدى said:

اخي الكريم 

حقيقة عدم التوضيح جعل الامر يأخذ اكثر من حقه .. وقدمت العديييييد من الطرق والاكواد وكلها اخذت وقت وجهد كبير

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

اطلب داله معرفة UdF 

تقبل تحياتى 

اسف جدا برجاء اقبل اعتذاري

13 دقائق مضت, خالد الرشيدى said:

اخي الكريم 

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

اما من خلال زر ( ولكن لو قمت بتغيير احد البيانات عليك الضغط على الزر لعمل تحديث لعمليه التجميع )

او من خلال ان تحدد له نطاق بحيث اى تغيير في النطاق ينفذ الكود ( ودى هى الحاله بتاعتنا )  

مع ذلك وبطريقة ما قمت بتنفيذ الامر على كافة الصفوف بالملف المرفق ... والان اى تغيير او اضافه سينفذ الكود على السطر الذي حدث به التغيير

لان جعل الكود يعمل تحديث لكافة الصفوف من شأنه ان يبطي عمل الكود بشكل كبييييييييير جدا نظرا لكبر حجم البيانات 

 

Employee.rar

اشكرك استاذ/ خالد وعفوا لعدم توصيل المعلومة جيدا انا كنت اقصد ان ممكن نعمل الماكرو زي المرفق ف الملف يبقى شبيه المعادلة

tafkit.rar

2 دقائق مضت, خالد الرشيدى said:

تنفيذ الكود يكون بتغيير احد القيم الموجوده بالصف  او اضافه قيمة جديده 

بمعني لو قمت بتغيير قيمة الخليه A3 تقع بالصف الثالث ومن ثم يتم التجميع في A3 ..

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

انا باخد Copy من الخلية رقم  A2

حضرتك بتشغلة ازاي ف الخلية رقم A3

8 دقائق مضت, خالد الرشيدى said:

بالفعل هو ده الكود الى بيعمله !!!!  راجع الملف بشكل جيد

بالنسبه للجزئيه التانيه استبدل الكود بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    If Target.Column <> 1 And Target.Column <> 2 And Target.Column <> 3 And Target.Column <> 4 Then
        Dim Lc As Long, r As Variant, i As Integer
        Lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column
        For i = 5 To Lc
            r = r & Cells(Target.Row, i).Value & " "
        Next
        r = Join(Split(Trim(r)), " - ")
        Cells(Target.Row, 1) = r
    End If

End Sub

انا فعلا اسف ع تعبك بس انا مابشتغلش ماكرو كتير ومش راضيه تظبط معايا انا غيرت الكود وكل خلية بتقرا البيانات اللي ف الصف رقم 2 مش الصف اللي موجودة فية انا ارفقتلك الملف عشان تشوفه

Employee.rar

معلش هو ازاي الكود هيقرا ف A3 البيانات اللي ف الصف رقم 3

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

والحاجة التانية ان الخلية الفاضية ف يقراها فاضية يعني تبقى " -  - "

استاذ خالد 

الكود برضه محجمني انا ارفقتلك ملف من اللي عايز اشتغل عليه عشان حضرتك تفهم مشكتي الفعلية 

Employee.rar

معلش يااستاذ خالد

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

ممكن تشيك عليه

Book1.rar

السلام عليكم استاذ خالد

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

انا جربتها بس عندي ملحوظتين :

1- ان انا محتم عليه اني استخدمها ع عمود واحد يعني بفرض ان عندي العمود A, B , C,... وعايز كل عمود ف خلية اعمل ايه

2- او لو عايز استخدم الكود على صف مثلا

3- النتيجة بتبدا ب علامة "-" وانا عايز النتيجة تبدا باول رقم

ولك جزيل الشكر

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

شاكر جدا لحضرتك

استاذ / خالد الرشيدي 

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

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

example.rar