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



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





سؤال عن دمج الخلايا

تحية طيبة في الملف المرفق مجموعة من اسماء الشكات داخل خلايا قمت بعمل دمج لها وفي العامود الثاني اسماء اعضاء مجلس الادارة ..




11-10-2018 11:48 مساء
مشاهدة مشاركة منفردة [13]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1166
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 56
قوة السمعة : 6931
الاعجاب : 1960
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
تفضل أخى خالد هذا كود أخر
ويطبق على العمود B كما طلبت

Sub Alsaqr_test()
Application.DisplayAlerts = 0

Dim lr&, s$, cell As Range, rng As Range, rng_lr As Range
Set rng_lr = Range(Cells(Rows.Count, 1).End(3).MergeArea.Address)
lr = rng_lr(rng_lr.Count).Row
Set rng = Range("B2")

    For Each cell In Range("A2:A" & lr)
        If s = cell.MergeArea.Address Then _
            Set rng = Union(rng, cell.Offset(, 1)): rng.Merge _
        Else Set rng = cell.Offset(, 1)
        s = cell.MergeArea.Address
    Next cell
    
Application.DisplayAlerts = 1
End Sub

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




12-10-2018 08:15 صباحا
مشاهدة مشاركة منفردة [14]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 513
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 561
الاعجاب : 220
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
صديقي اسلام الكود يقوم باظهار اسم واحد وحذف باقي الاسماء 

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




12-10-2018 08:18 صباحا
مشاهدة مشاركة منفردة [15]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
السلام عليكم أخي الكريم خالد
ممكن ترفق الملف الذي به المشكلة مرة أخرى بعد تطبيق الكود .. مع توضيح المشكلة في الملف
تقبل تحياتي

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




12-10-2018 08:25 صباحا
مشاهدة مشاركة منفردة [16]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 513
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 561
الاعجاب : 220
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
 
 
  كود الاستاذ اسلام في دمج الخلايا.rar   تحميل rar مرات التحميل :(5)
الحجم :(15.87) KB


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




12-10-2018 09:38 صباحا
مشاهدة مشاركة منفردة [17]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
جرب الكود التالي
Sub Test()
    Dim rRange As Range, rCell As Range, rng As Range, s As String

    Set rRange = Range("A3:A" & Cells(Rows.Count, 2).End(xlUp).Row)
    Set rCell = rRange.Cells(1, 1)

    Do
        Set rng = rCell.Offset(, 1).Resize(rCell.MergeArea.Rows.Count)
        With rng
            s = Join(Filter(rng.Parent.Evaluate("TRANSPOSE(IF(" & rng.Address & "<>""""," & rng.Address & "))"), False, 0), vbLf)
            .Clear: .Merge: .Value = s
        End With

        Set rCell = rCell.Offset(1, 0)
        Set rng = Nothing
    Loop Until (rCell.Row > (rRange.Row + rRange.Rows.Count - 1))
End Sub

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




12-10-2018 12:37 مساء
مشاهدة مشاركة منفردة [18]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 513
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 561
الاعجاب : 220
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
سلمت يمناك بارك الله فيك استاذي الكبير ياسر
ولكن لدي سؤال 
عندما تكون لدي مسالى كهذه بدايتا كيف اقوم بتحديد اعداد المتغيرات لدي 
لماذا قام الاستاذ اسلام بتحديد 5 متغيرات ونت استخدمة 4 متغيرات كيف يتم  تحديد الاعداد

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




12-10-2018 03:30 مساء
مشاهدة مشاركة منفردة [19]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 538
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 22
قوة السمعة : 2689
الاعجاب : 837
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
أحسنت استاذ ياسر بارك الله فيك

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


13-10-2018 10:13 صباحا
مشاهدة مشاركة منفردة [20]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
بارك الله فيك أخي الكريم خالد 
عدد المتغيرات أمر غير مهم فهو يختلف من كود للآخر حسب الاحتياج ، فقد لا أستخدم متغيرات على الإطلاق وقد أستخدم الكثير من المتغيرات ، هذا بحسب الكود وبحسب مزاج المبرمج
المتغيرات تسهل التعامل مع الكود .. 
على سبيل المثال للإشارة إلى الورقة Sheet1
Sub Demo1()
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = "Yasser"
End Sub

هذا سطر واحد ولا مشكلة من استخدام أية متغيرات لأنه في هذه الحالة لن أحتاج للتعامل مع ورقة العمل في الكود إلا مرة واحدة
ولكن إذا كنت ستكتب في الكود وتشير لورقة العمل أكثر من مرة فالأفضل استخدام متغير بحيث يسهل عليك كتابة الكود
لاحظ الفرق رغم أن النتيجة واحدة
Sub Demo2()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ws.Range("A1").Value = "Yasser"
End Sub

 

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حساب عدد الخلايا التي تحتوي على لون الخلية المحددة باستخدام VBA Eslam Abdullah
6 420 كاري محمد
الدالة المعرفة ColorEA لجمع الخلايا الملونة Eslam Abdullah
19 702 كاري محمد
سؤال عدم كتابة لوحة المفاتيح فى بعض الخلايا OmarGad
4 51 OmarGad
دمج الخلايا المتشابهة في عمود باستخدام إجراء عام YasserKhalil
12 215 مالك ماريه
دمج الخلايا الممتلئة بالصفوف الفارغة Eslam Abdullah
11 1264 مالك ماريه

الكلمات الدلالية
سؤال ، الخلايا ،


 







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



الساعة الآن 04:46 صباحا

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