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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه محمود ابو الدهب-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





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

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



20-06-2019 10:53 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 156
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 128
الاعجاب : 41
 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
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 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
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5780
الاعجاب : 745
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
أحسنت استاذ ياسر كود ممتاز جعله الله فى ميزان حسناتك



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


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





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





24-06-2019 12:59 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 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
المشاركات : 156
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 128
الاعجاب : 41
 offline 
look/images/icons/i1.gif كود حدف الصفوف تلقائيا بدون التاثير على الصفوف الاخرى
اذا كنت تقصد تشغيل الكود في حدث thisworbook فانه يعطيني جرس تنبيه  ولا يشغل f8





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





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





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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حذف الصفوف المكرره الأولى نصر الإيمان
10 79 YasserKhalil
كود اظهار واخفاء الصفوف بشرط خلية maro9400
10 100 YasserKhalil
كيف اعرض 3 جداول في ورقة عمل واحدة مع تجميد الصفوف وتظهر كامله ابوعلي الحبيب
3 164 ali mohamed ali
كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة محمد الدسوقى
23 1324 sobhi67
كيف اعرف عدد الصفوف المعبئة بالأرقام فقط من غير التي فيها كلمه ورقم ابوعلي الحبيب
3 194 ali mohamed ali

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


 







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



الساعة الآن 08:15 مساء

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