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

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


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


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





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

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



20-06-2019 10:53 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 offline 
السلام عليكم 
لدي يوزرفورم اقوم بتعبئة البيانات وترحيلها الى ورقة 1  من خلال ورقة 1 لدي 3 بنود اريد حدف الصفوف من الاماكن التي لا تكون فيها بيانات  وفي حالتي هذه من الصف 22 الى الصف 32  بدون التاثير عللى قيمة الصفوف 33,35  لانها تعتمد على اخر صف تم تعبئة البيانات فيه وهو الصف رقم 21 
 
 
  rr.rar   تحميل rar مرات التحميل :(9)
الحجم :(182.044) KB





21-06-2019 08:05 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8293
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 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
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1421
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6418
الاعجاب : 1003
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
أحسنت استاذ ياسر كود ممتاز جعله الله فى ميزان حسناتك



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

21-06-2019 12:45 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 217
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 156
الاعجاب : 55
 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
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8293
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24162
الاعجاب : 2609
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
يمكن بالاعتماد على معرفة رقم الصف x تنسيق الخلايا مرة أخرى بالكود




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




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

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



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




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




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




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية اخفاء الصفوف الفارغة من المبالغ عن طريق كود عبد الله السعيد
12 197 YasserKhalil
كيفية عمل علامة ( + و - ) تظهر وتخفي الصفوف في شريط التمرير Abo Sohaib
3 146 YasserKhalil
حذف الصفوف المكرره الأولى نصر الإيمان
10 178 YasserKhalil
كود اظهار واخفاء الصفوف بشرط خلية maro9400
10 181 YasserKhalil
كيف اعرض 3 جداول في ورقة عمل واحدة مع تجميد الصفوف وتظهر كامله ابوعلي الحبيب
3 242 ali mohamed ali

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


 







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

الساعة الآن 07:28 صباحا

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