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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





دمج الخلايا الممتلئة بالصفوف الفارغة

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



09-07-2018 12:17 صباحا
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

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


ناخد مثال كدا ونشوف الصورة اللى قدامنا دى
MTE4NzUx007
ها شايفين ايه واحد ناصح بيقولى شايف صقر
غلط ياحماده قدامنا فى العمود A فيه نص وبعده صفوف فارغة وبعدين نص تانى وهكذا
المطلوب كل الخلايا الممتلئة دى نعملها دمج مع الخلايا الفارغة اللى تحتها
عشان نوصل لنفس النتيجة اللى فى العمود
B وبافتراض ان البيانات قد تصل لصفوف بأعداد ضخمة
يصبح موضوع الدمج بالطريقة اليدوية أمر شبه مستحيل

والان مع كود Alsaqr_Merge بضغطة واحده بالكود التالى هنوصل للنتيجة المرغوب فيها
ما عليك سوى الوقوف على اى خلية ممتلئة بالعمود المراد اجراء عملية الدمج عليه
واليكم الكود المستخدم

Sub Alsar_Merge()
'اعداد/ اسلام عبدالله
Dim a, b, c&
If ActiveCell.Value = "" Then MsgBox "يجب تحديد خلية بها نص أولاً", vbInformation + vbMsgBoxRight, "أكاديمية الصقر للتدريب": Exit Sub
    a = ActiveCell.Row
    b = ActiveCell.End(xlDown).Row - 1
    c = ActiveCell.Column
    If Cells(b, c) & Cells(b + 1, c) = "" Then MsgBox "باقى العمود فارغ", vbInformation + vbMsgBoxRight, "أكاديمية الصقر للتدريب": Exit Sub
Do
Range(Cells(a, c), Cells(b, c)).Merge
a = b + 1: b = Cells(a, c).End(xlDown).Row - 1
If Cells(b + 1, c).Value = "" Or Cells(a, c).Row = Rows.Count Then MsgBox "تم دمج الخلايا", vbInformation + vbMsgBoxRight, "أكاديمية الصقر للتدريب": Exit Sub
Loop
End Sub

والمفاجئة هتاخد مع الكود صينية هدية blink قصدى ملف العمل rolleyes

الموضوع قصير فقولت لازم نطول احنا بقى بالتاتش بتاعنا biggrin2
والى اللقاء القريب ، كان معكم ومعنا ومعاهم برضوا

اخوكم فى الله اسلام عبدالله 81










 
 
  دمج الخلايا.rar   تحميل rar مرات التحميل :(64)
الحجم :(390.382) KB


09-07-2018 06:28 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة

بسم الله ما شاء الله 
الله ينور يا غالى تمضى قدما بسرعة الصاروخ yes
123
113
142

توقيع :الصقر

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


09-07-2018 08:32 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
تسلم أخي العزيز إسلام ومشكور على موضوعات الجديدة والحصرية 
واصل بلا فواصل .. واعمل حساب البنزين لأن البنزين غالي والصاروخ بيستهلك كميات كبيرة smile

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

09-07-2018 09:48 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
مشكور مروركم الطيب والمشجع اساتذتى الاحباء
لا تقلق على الصاروخ شغال بالطاقة الشمسيه biggrin2

09-07-2018 12:54 مساء
مشاهدة مشاركة منفردة [4]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 476
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
بارك الله فيك استاذ اسلام وجعله الله فى ميزان حسناتك

09-07-2018 01:29 مساء
مشاهدة مشاركة منفردة [5]
ashrafsharaf
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 202
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 29-1-1974
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 107
 offline 
look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
جزاكم الله خيراً

09-07-2018 02:24 مساء
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
وجزاكم الله كل خير استاذ هانى واستاذ اشرف
مشكور لمروركم العطر 81




الكلمات الدلالية
الخلايا ، الممتلئة ، بالصفوف ، الفارغة ،


 










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

الساعة الآن 12:09 صباحا