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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





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

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




11-10-2018 11:48 مساء
مشاهدة مشاركة منفردة [13]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1288
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7787
الاعجاب : 2218
 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
المشاركات : 557
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 629
الاعجاب : 251
 offline 
look/images/icons/i1.gif سؤال عن دمج الخلايا
صديقي اسلام الكود يقوم باظهار اسم واحد وحذف باقي الاسماء 

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




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

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




12-10-2018 08:25 صباحا
مشاهدة مشاركة منفردة [16]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 557
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 629
الاعجاب : 251
 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
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 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
المشاركات : 557
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 629
الاعجاب : 251
 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
المشاركات : 644
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 3204
الاعجاب : 1028
 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
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 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،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الجمع أعتماداً على تنسيق الخلايا ومعرفة الصحيح منها والعشرى - حسام خطاب الصقر
7 87 F.Y
حساب عدد الخلايا التي تحتوي على لون الخلية المحددة باستخدام VBA Eslam Abdullah
8 519 zeko2018
انشاء حدث عند النقر على الخلايا جعفر الطريبق
6 779 fady_dd
احصاء عدد الخلايا بطرق عديدة Eslam Abdullah
21 702 fady_dd
تلوين الخلايا المكرر داخل نطاق محدد بالتنسيق الشرطى - أكاديمية الصقر للتدريب الصقر
5 1521 ياسر فتحى البنا

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


 







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



الساعة الآن 02:45 مساء

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