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

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


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



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





كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى

السلام عليكم لدي يوزرفورم اقوم بتعبئة البيانات وترحيلها الى ورقة 1 من خلال ورقة 1 لدي 3 بنود اريد حدف الصفوف من الاماك ..



20-06-2019 10:53 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 

السلام عليكم 
لدي يوزرفورم اقوم بتعبئة البيانات وترحيلها الى ورقة 1  من خلال ورقة 1 لدي 3 بنود اريد حدف الصفوف من الاماكن التي لا تكون فيها بيانات  وفي حالتي هذه من الصف 22 الى الصف 32  بدون التاثير عللى قيمة الصفوف 33,35  لانها تعتمد على اخر صف تم تعبئة البيانات فيه وهو الصف رقم 21 
 
 
  rr.rar   تحميل rar مرات التحميل :(9)
الحجم :(182.044) KB







21-06-2019 08:05 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
وعليكم السلام
امسح الأكواد الموجودة في موديول ThisWorkbook وضع الكود التالي
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim i As Long, lastRow As Long, x As Long
    
    Application.ScreenUpdating = False
        lastRow = Cells(Rows.Count, "D").End(xlUp).Row
        For i = lastRow To 19 Step -1
            If Cells(i, "A").Value = "" And Cells(i, "D") = "" Then Rows(i).Delete: x = i
        Next i
        If x <> 0 Then Cells(x, 5).Value = Cells(x - 1, 5).Value
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، خيثر يعقوب،




21-06-2019 11:08 صباحا
مشاهدة مشاركة منفردة [2]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1072
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4581
الاعجاب : 276
 Online 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
أحسنت استاذ ياسر كود ممتاز جعله الله فى ميزان حسناتك



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


21-06-2019 12:45 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
المشاركة الأصلية كتبت بواسطة: YasserKhalil
وعليكم السلام
امسح الأكواد الموجودة في موديول ThisWorkbook وضع الكود التالي
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim i As Long, lastRow As Long, x As Long
    
    Application.ScreenUpdating = False
        lastRow = Cells(Rows.Count, "D").End(xlUp).Row
        For i = lastRow To 19 Step -1
            If Cells(i, "A").Value = "" And Cells(i, "D") = "" Then Rows(i).Delete: x = i
        Next i
        If x <> 0 Then Cells(x, 5).Value = Cells(x - 1, 5).Value
    Application.ScreenUpdating = True
End Sub



شكرا اخي ياسر على الكود الرائع  ولكن عند حدف الصفوف تحدث تنسيقات خطا ارفق لك الصورة 
 
  15.jpg   تحميل jpg 15.jpg مرات التحميل :(2)
الحجم :(26.154) KB
 






24-06-2019 12:43 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
يمكن بالاعتماد على معرفة رقم الصف x تنسيق الخلايا مرة أخرى بالكود





24-06-2019 12:55 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
هل امكن التوضيح بالكود اخي ياسر  لاني بصراحة مبتدا في هذا المجال 





24-06-2019 12:59 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
حاول تنفيذ الكود سطر بسطر باستخدام F8 ومعرفة قيمة المتغير x بعد الخروج من الحلقة التكرارية وبعدها ستتمكن من التحكم بالكود ووضع ما تريده وتلوين الخلايا التي تريدها بالاعتماد على قيمة المتغير x ..

أثارت هذه المشاركة إعجاب: ali mohamed ali، خيثر يعقوب،




24-06-2019 03:32 مساء
مشاهدة مشاركة منفردة [7]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
اذا كنت تقصد تشغيل الكود في حدث thisworbook فانه يعطيني جرس تنبيه  ولا يشغل f8





24-06-2019 07:14 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
قم بوضع نقطة توقف عند أول سطر في الكود ومع حدوث تغير في ورقة العمل سيعمل الكود بعدها يمكن الضغط على F8 لمتابعة التنفيذ سطر بسطر





24-06-2019 09:14 مساء
مشاهدة مشاركة منفردة [9]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
اول  الشي  f8 b  لاتعمل في حدث الورقة  جربت اضع الكود  في حدث اخر كماكرو معين طبق معي f8 واعطاني قيمة المتغير x=31 لا ادري ما هو التغيير الذي اقوم به  حتى تكون التنسيقات متناسقة 





24-06-2019 09:53 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
المتغير x هو رقم الصف بعد حذف الصفوف الفارغة ..

أثارت هذه المشاركة إعجاب: خيثر يعقوب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة محمد الدسوقى
23 1163 sobhi67
كيف اعرف عدد الصفوف المعبئة بالأرقام فقط من غير التي فيها كلمه ورقم ابوعلي الحبيب
3 153 ali mohamed ali
حذف الصفوف والأعمدة الفارغة بطريقة متقدمة Eslam Abdullah
9 1948 السعيد الجزائري
حذف الصفوف والاعمده بشرط محدد Eslam Abdullah
16 1497 toledo.jo
حذف الصفوف المكرره بناءا على ثلاثة شروط نصر الإيمان
11 333 YasserKhalil

الكلمات الدلالية
الاخرى ، الصفوف ، التاثير ، بدون ، تلقائيا ، الصفوف ،


 







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



الساعة الآن 10:56 مساء

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