logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



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





09-07-2018 12:17 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1581
رصيد العضو : 2
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10925
الاعجاب : 14
موقعي : زيارة موقعي
السلام عليكم ورحمة الله وبركاته
نبدأ بقى نشتغل على الأكواد شوية واقدم لكم اليوم
كود بسيط لدمج الخلايا الممتلة بالفارغة دفعة واحدة فى اى عمود محدد


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

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

CODE
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 مرات التحميل :(66)
الحجم :(390.382) KB


أثارت هذه المشاركة إعجاب: السعيد الجزائري،



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

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




توقيع :الصقر

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


look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  09-07-2018 08:32 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
تسلم أخي العزيز إسلام ومشكور على موضوعات الجديدة والحصرية
واصل بلا فواصل .. واعمل حساب البنزين لأن البنزين غالي والصاروخ بيستهلك كميات كبيرة :)

ودا موضوع مشابه لموضوعك لإثراء المنتدى
http://techno7asry.com/forum/t1974

أثارت هذه المشاركة إعجاب: السعيد الجزائري،



look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  09-07-2018 09:48 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1581
رصيد العضو : 2
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10925
الاعجاب : 14
موقعي : زيارة موقعي
مشكور مروركم الطيب والمشجع اساتذتى الاحباء
لا تقلق على الصاروخ شغال بالطاقة الشمسيه biggrin2




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




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




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




look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  09-07-2018 04:32 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
تمام يا سمسم ..طالما شغال بالطاقة الشمسية فمش هنقلق عليك خصوصاً الأيام دي 121

وفقك الله لما يحبه ويرضاه




look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  12-07-2018 04:43 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6616
الاعجاب : 3
نفس الموضوع بكود مختلف
CODE

Sub merge_for_me()
Application.ScreenUpdating = False
Dim lr%, i%, x%
Dim ran As Range
lr = Cells(Rows.Count, 1).End(3).Row
Columns("b:b").Clear
Range("b2").Resize(lr, 1).Value = _
Range("a2").Resize(lr, 1).Value
Set ran = Range("b" & 2)
    For i = 2 To lr - 1
        Set ran = Range(ran, ran.End(xlDown).Offset(-1))
        ran.MergeCells = True
        i = i + ran.Rows.Count
        Set ran = Range("b" & i)
        i = i - 1
    Next
 Range("b" & i).Resize(4).MergeCells = True
    With Range("b:b")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Bold = True
    End With
    Application.ScreenUpdating = True
End Sub


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





look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  12-07-2018 05:10 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1581
رصيد العضو : 2
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10925
الاعجاب : 14
موقعي : زيارة موقعي
جزاك الله خيرا استاذ سليم على الكود الرائع والمشاركة المثمره
تقبل وافر احترامى وتقديرى 81




look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  12-07-2018 05:41 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
تسلم أخي العزيز سليم ونورت المنتدى بمساهماتك الفعالة
بارك الله فيك وجزاك الله خيراً




look/images/icons/i1.gif دمج الخلايا الممتلئة بالصفوف الفارغة
  18-10-2018 06:18 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 612
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 13-3-1990
قوة السمعة : 1166
الاعجاب : 4
موضوعاتكم اكثر من رائعه




اضافة رد جديد اضافة موضوع جديد




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









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

الساعة الآن 08:23 PM