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

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


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



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





كود تنسيق الصفوص

السلام عليكم لدي Table1 اريد كود يقوم بعمل تنسيق للصفوف داخل الجدول أي اذا كان هناك صفوف خالية بين الصفوف الممتلئة, ار ..



21-07-2019 06:50 مساء
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 37
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 

السلام عليكم

لدي Table1

اريد كود يقوم بعمل تنسيق للصفوف داخل الجدول
أي اذا كان هناك صفوف خالية بين الصفوف الممتلئة, اريد الكود يحول الصفوف الممتلئة الى الاعلى حسب الترتيب و الفاضية الى الاسفل

مثال
هنا يوجد صفوف فاضية بين الصفوف الممتلئة بالبيانات
Jxv8k_1


بعد تنفيذ الكود اريده يعطيني هذه النتيجة, الصفوف الفاضية تتحول الى الاسفل و الممتلئة الى اعلى

8rFTr_2


ملاحظة :
-  الجدول ليس محصورا على 16 سطرا فقط, قد يكون اكثر او اقل
- التنسيق يتم على الحقول من B الى L,, لا داعي لإقحام عمودان A + M في العملية

الملف في المرفقات

و شكرا مقدما

تعديل : كلمة سر الملف 4510
 
 
  aAddDD.rar   تحميل rar مرات التحميل :(11)
الحجم :(51.874) KB







21-07-2019 08:23 مساء
مشاهدة مشاركة منفردة [1]
سعد عابد
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 71
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 80
الاعجاب : 6
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
السلام عليكم
انت تطلب حذف الصفوف الفارغه
العمل محمى بكلمة مرور
جرب الكود التالى

Public Sub DeleteBlankRows()
    Dim SourceRange As Range
    Dim EntireRow As Range

    Set SourceRange = Application.Selection

    If Not (SourceRange Is Nothing) Then
        Application.ScreenUpdating = False

        For I = SourceRange.Rows.Count To 1 Step -1
            Set EntireRow = SourceRange.Cells(I, 1).EntireRow
            If Application.WorksheetFunction.CountA(EntireRow) = 0 Then
                EntireRow.Delete
            End If
        Next

        Application.ScreenUpdating = True
    End If
End Sub


أثارت هذه المشاركة إعجاب: مدحت حافظ،




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

أثارت هذه المشاركة إعجاب: سعد عابد، مدحت حافظ،




22-07-2019 09:16 صباحا
مشاهدة مشاركة منفردة [3]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 102
الاعجاب : 24
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
استاذ /  e97h 
ممكن باس المف لكى يستفيد الاعضاء من الاكواد الموجودة بالملف
كمان انا شايف ان زر hs codes merge  بيقوم بالعمل اللى انت طالبه
ممكن توصيح اكتر
و شكرا





22-07-2019 11:34 صباحا
مشاهدة مشاركة منفردة [4]
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 37
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
اهلا اخي صلاح

المعذرة، رقم السر 4510

بالنسبة لزر hs code mergen.. يقوم بعمل اللازم ولكن يقوم بتجميع الصفوف المتشابهة ايضا

انا احتاج كود تنسيق الصفوف فقط دون تجميع المتشابهين حاولت فصل الكود و  لكن لم استطع

اشكرك

أثارت هذه المشاركة إعجاب: صلاح الصغير،




22-07-2019 01:29 مساء
مشاهدة مشاركة منفردة [5]
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 37
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
المشاركة الأصلية كتبت بواسطة: سعد عابد
السلام عليكم
انت تطلب حذف الصفوف الفارغه
العمل محمى بكلمة مرور
جرب الكود التالى

Public Sub DeleteBlankRows()
    Dim SourceRange As Range
    Dim EntireRow As Range

    Set SourceRange = Application.Selection

    If Not (SourceRange Is Nothing) Then
        Application.ScreenUpdating = False

        For I = SourceRange.Rows.Count To 1 Step -1
            Set EntireRow = SourceRange.Cells(I, 1).EntireRow
            If Application.WorksheetFunction.CountA(EntireRow) = 0 Then
                EntireRow.Delete
            End If
        Next

        Application.ScreenUpdating = True
    End If
End Sub



اشكرك اخي سعد

ولكن لا شيء يحدث عند تشغيل الكود
ملاحظة : يجب نقل الصفوف الفاضية الى الاسفل مثل الصوة 2, و ليس حذف كامل
اتوقع الكود للحذف, لكنه لم يعمل

شكرا للمحاولة





23-07-2019 10:29 صباحا
مشاهدة مشاركة منفردة [6]
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 37
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
هذا هو كود زر hs code mergn
ان استطاع احدكم التعديل عليه ليتوافق مع طلبي


 


Dim a, ws As Worksheet, i As Long, ii As Long, txt As String


   

    Set ws = ThisWorkbook.Worksheets("ITEMS")

    a = ws.ListObjects(1).DataBodyRange.Value

 

    With CreateObject("Scripting.Dictionary")

        For i = 1 To UBound(a, 1)

            If a(i, 1) <> "" Then

                txt = Join(Array(a(i, 1), a(i, 2), a(i, 3)), Chr(2))

                If Not .Exists(txt) Then

                    .Item(txt) = .Count + 1

                    For ii = 1 To UBound(a, 2)

                        a(.Count, ii) = a(i, ii)

                    Next ii

                  

                     

                Else

               

                    For ii = 4 To 7

                        a(.Item(txt), ii) = a(.Item(txt), ii) + a(i, ii)

                    Next ii

                End If

            End If

        Next i

        i = .Count

    End With

 

   ws.ListObjects(1).DataBodyRange.ClearContents

    On Error Resume Next

    ws.Range("B2").Resize(i, UBound(a, 2)) = a

    







23-07-2019 08:20 مساء
مشاهدة مشاركة منفردة [7]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
جرب هذا الكود الخفيف النظيف

Sub del_rows()
Sheets("Sheet1").Range("A1:L16") _
.SpecialCells(4).Delete Shift:=2
End Sub






23-07-2019 08:32 مساء
مشاهدة مشاركة منفردة [8]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 671
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 803
الاعجاب : 47
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
استاذ سليم 
ارجو شرح هاد الجزء
 





23-07-2019 08:36 مساء
مشاهدة مشاركة منفردة [9]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 671
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 803
الاعجاب : 47
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
يوجد مشكلة في اخذ الاكواد 
حيث انه لا يقبل بوضع تعليق يحتوي على كود
على العموم استاذ سليم اريد شرح الجزء الثاني من الكود او السطر رقم 2

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




23-07-2019 08:57 مساء
مشاهدة مشاركة منفردة [10]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
المشاركة الأصلية كتبت بواسطة: khaled alborene
يوجد مشكلة في اخذ الاكواد 
حيث انه لا يقبل بوضع تعليق يحتوي على كود
على العموم استاذ سليم اريد شرح الجزء الثاني من الكود او السطر رقم 2

ما هو كل الكود سطر واحد (  Sub & End Sub لا تحتسب) no_1
السطر رقم 2 يضع يده على كل الخلايا الفارغة ويقوم بحذفها ليضع مكانها ما يوجد تحتحها  دون النظر الى بقية الخلايا في خارج النطاق   A1:L16

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




23-07-2019 09:45 مساء
مشاهدة مشاركة منفردة [11]
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 37
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
شكرا اخ سليم و لكن الكود لا يعمل

ebaMR_ss


ايضا حسب شرحك للكود, اتوقع ان غير مناسب لطلبي

انا لا اريد حذف الصفوف الفارغة, فقط اريد تحويلها الى الاسفل و الصفوف الممتلئة تصعد للاعلى
اشكرك للمحاولة

 
 
 






23-07-2019 10:06 مساء
مشاهدة مشاركة منفردة [12]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif كود تنسيق الصفوص
المشاركة الأصلية كتبت بواسطة: e97h
شكرا اخ سليم و لكن الكود لا يعمل

ebaMR_ss


ايضا حسب شرحك للكود, اتوقع ان غير مناسب لطلبي

انا لا اريد حذف الصفوف الفارغة, فقط اريد تحويلها الى الاسفل و الصفوف الممتلئة تصعد للاعلى
اشكرك للمحاولة

 

يا استاذي الكود لا يحذف الصفوف بل يزيل الخلايا الفارغة ليضع مكانها ما هو تحتها
لبرهان ذلك هذا الملف 
في العامود H  هناك تسلسل ارقام من 1 الى 11
وعندما تضغط على الزر( لتزيل وليس لـتحذف) الخلايا الحمراء(الفارغة) انظر الى الارقام في العامود H  ما زالت محافظة على ترتيبها
لو كان الماكرو يحذف صفوفاً لقام بحذف الأرقام مقابل الصفوف الحمراء (2 و3 و9 و 11) لانها في نفس الصفوف التي تعتبرها انت قد حذفت
الملف مرفق مع الماكرو للتطبيق من خلال الزر Run

 
 
 
  clear_empty_cells.rar   تحميل rar مرات التحميل :(6)
الحجم :(15.115) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، عبدالله فتحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في كود ترقيم المبتدأ
6 30 المبتدأ
تثبيت الكود علي خليه معينه ssafe
23 107 محمود ابو الدهب
مطلوب تسريع الكود صلاح الصغير
10 197 صلاح الصغير
ضبط كود التعديل والبحث بالفورم مهند محسن
28 234 محمود ابو الدهب
ادراج كود حماية بداخل كود اخر takydeen
6 44 محمود ابو الدهب

الكلمات الدلالية
الصفوص ، تنسيق ،


 







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



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

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