أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





دمج الخلايا المتشابهة في عمود باستخدام إجراء عام

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



09-07-2018 08:53 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

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

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

لذا رأيت أن أقدم لكم كود آخر يقوم بدمج الخلايا ولكن للنصوص المتشابهة ..
بفرض أن لديك بيانات بهذا الشكل في العمود الأول
oxFrLJeShqNTKPd

والمطلوب أن تكون النتيجة بهذا الشكل
CGSSmuRWi3EaIqO







الكود المستخدم
==========


ولتنفيذ ذلك قم بوضع الكود التالي في موديول عادي ، ثم اربط الكود المسمى Test_MergeSimilarCells بزر أمر .. حيث يحتوي الكود على النطاق المطلوب دمج البيانات فيه


Sub Test_MergeSimilarCells()
    Dim ws          As Worksheet
    Dim rng         As Range
    Dim lr          As Long

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = ws.Range("A1:A" & lr)

    MergeSimilarCells rng
End Sub


Sub MergeSimilarCells(workRng As Range)
    Dim rng         As Range
    Dim xRows       As Integer
    Dim i           As Integer
    Dim j           As Integer

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        xRows = workRng.Rows.Count
    
        For Each rng In workRng.Columns
            For i = 1 To xRows - 1
                For j = i + 1 To xRows
                    If rng.Cells(i, 1).Value <> rng.Cells(j, 1).Value Then Exit For
                Next j
                workRng.Parent.Range(rng.Cells(i, 1), rng.Cells(j - 1, 1)).Merge
                i = j - 1
            Next i
        Next rng
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub




لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


وأترككم في رعاية الله 
كان معكم أخوكم في الله / ياسر خليل أبو البراء
 
 







09-07-2018 09:01 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام

الله ينور يا غالى 
123





توقيع :الصقر

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



09-07-2018 09:05 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
تسلم أخي الغالي صقر الإكسيل حسام خطاب ومشكور على مرورك العطر





09-07-2018 09:55 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
الله ينور استاذى الحبيب شغل عالى كالعاده biggrin2





09-07-2018 11:49 صباحا
مشاهدة مشاركة منفردة [4]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 598
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3134
الاعجاب : 220
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام






توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



09-07-2018 04:44 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
أخي الحبيب إسلام عبد الله
أخي الغالي أبو يوسف
مشكور على مروركما المشرف والعطر بالموضوع .. بارك الله فيكما وجزاكما الله خير الجزاء في الدنيا والآخرة
 





12-07-2018 10:23 صباحا
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 395
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3219
الاعجاب : 209
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
بارك الله فيك اخي ياسر 
نفس الموضوع لكن بكود اخر

Option Explicit

Sub merge_similar()
Application.DisplayAlerts = False
Dim i%, lr%, My_rg As Range
Dim x
lr = Cells(Rows.Count, 1).End(3).Row
Set My_rg = Range("a1")
 For i = 1 To lr
      x = Range("a" & i).Value
    If My_rg.Cells(1).Value = x Then
       Set My_rg = Union(My_rg, Range("a" & i))
      My_rg.MergeCells = True
    Else
      Set My_rg = Range("a" & i)
    End If
 Next
Application.DisplayAlerts = True
End Sub

الملف مرفق
 
 
 
  Merge_similar_cells.rar   تحميل rar مرات التحميل :(10)
الحجم :(12.975) KB






12-07-2018 10:31 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
بسم الله ما شاء الله أخي الحبيب الغائب عن العين الحاضر في القلب سليم حاصبيا
أول المشاركات بعد طول انقطاع ونشاط رائع وتفاعل ملموس من أول مشاركة كما عهدناك دوماً
تقبل وافر تقديري واحترامي





12-07-2018 11:21 صباحا
مشاهدة مشاركة منفردة [8]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 395
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3219
الاعجاب : 209
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بسم الله ما شاء الله أخي الحبيب الغائب عن العين الحاضر في القلب سليم حاصبيا
أول المشاركات بعد طول انقطاع ونشاط رائع وتفاعل ملموس من أول مشاركة كما عهدناك دوماً
تقبل وافر تقديري واحترامي

113113
  اخي الحبيب ياسر 
بكل صبر وعناء توصلت اخيراُ(بالصدفة) الى معرفة كيفية ادراج الكود في المشاركات بهذا المنتدى الرائع 
لذا ارجو تقديم صور او فيديو يقوم بالشرح عن كيفية المشاركة وادراج المواضيع و التفتيش عن اي شيء يريده الانسان 
 





12-07-2018 11:32 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
نورت المنتدى أخي الغالي سليم
إليك رابط فيه ما تريده إن شاء الله
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





12-07-2018 01:17 مساء
مشاهدة مشاركة منفردة [10]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
بارك الله فيك استاذ سليم كود رائع
شاهد هذا الفيديو ايضا بالنسبه للتعامل مع المنتدى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تقبل وافر احترامى وتقديرى





12-07-2018 05:54 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
مشكور على المرور العطر أخي العزيز إسلام ومشكور على الفيديو الرائع





18-10-2018 06:23 صباحا
مشاهدة مشاركة منفردة [12]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 551
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 8
قوة السمعة : 867
الاعجاب : 107
 offline 
look/images/icons/i1.gif دمج الخلايا المتشابهة في عمود باستخدام إجراء عام
جزاكم الله خير الجزاء







الكلمات الدلالية
الخلايا ، المتشابهة ، عمود ، باستخدام ، إجراء ،


 







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



الساعة الآن 02:54 صباحا

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