اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر

اريد كود لاخفاء الصفوف بالكامل اذا كانت اي قيمة في العمود الاخير صفر ، حيث انني لدي اسماء معرفة لهذه الجداول ، حيث يتم ا ..



05-08-2018 04:43 صباحا
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 

اريد كود لاخفاء الصفوف بالكامل اذا كانت اي قيمة في العمود الاخير صفر ، حيث انني لدي اسماء معرفة لهذه الجداول ، حيث يتم اختيار الاسماء المعرفة والتي تبدا بحرف "ج" ويتم استبعاد باقي الاسماء ، ثم البحث ان اي خلية بيساوي قيمتها صفر ليتم اخفاء الصف بالكامل ، ولكن اريد تعديله بحيث يبحث في العمود الاخير فقط ، واذا وجد اي قيمة مساوية للصفر او خالية يتم اخفاء الصف بالكامل ، كما ان الكود يستغرق وقتا طويلا ، اريد عمالقة البرمجة هنا لحل هذا الامر وهذا الكود الذي اريد تعديله:

sub MyHideRows
Dim MName As Name 'As Range
   Dim rngName As Variant ' Range
    Dim cell As Range

    Application.ScreenUpdating = False

    For Each MName In ActiveWorkbook.Names' الاسماء المعرفة في المصنف كجداول
        
         If Left(MName.Name, 1) = "ج" Then' اختيار فقط الاسماء المعرفة للجداول التي تبدا بحرف "ج" فقط ، واستبعاد الباقي
          'rngName=MName.ra
            ' BkmTxtSplit = Split(BkmTxt(N), "-"wink_3
           ' vValue = Range(BkmTxtSplit(0)).Text
           ' Set wdRng = wdApp.Actived*ocument.Bookmarks(BkmTxt(N)).Range
           'Application.Goto Reference(MName.Name)
             Set rngName = MName.RefersToRange '.Select
          ' MName.Select
          'Range(MName).Select
          ' MName.Reference
           
           'rngName = MName
            
        For Each cell In rngName 'rngName
       On Error Resume Next
        If cell.Value = 0 Then' هنا يحدد اي خلية في الجدول اذا كانت صفر ان يتم اخفاء الصف ، ولكني اريد اي قيمة في العمود الاخير يساوي صفرا يتم اخفاء الصف بالكامل
            cell.EntireRow.Hidden = True
           Else
   cell.EntireRow.Hidden = False
  End If
    Next
  End If
   Next
end sub
اريد فقط ان يتم اخفاء الصف بالكامل اذا كانت اي قيمة في العمود الاخير مساويا للصفر ، وكما ان البرنامج يستغرق وقتا طويلا
 
 
  سؤال لاخفاء الصفوف التي تحتوي على صفر.rar   تحميل rar مرات التحميل :(4)
الحجم :(16.821) KB







05-08-2018 05:47 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
السلام عليكم أخي الكريم
الموضوع لا يحتاج لكود على الإطلاق ، وإذا أردت كود فيمكنك تسجيل الخطوات وستحصل على الكود الذي تريده
الشرح بالخطوات في صورة

8iDa8K1plJk9P46

تقبل تحياتي
 
 






05-08-2018 05:52 صباحا
مشاهدة مشاركة منفردة [2]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
استاذنا الكبير ياسر ، اعلم هذه الطريقة ، ولكن المصنف يحتوي على اكثر من 20 ورقة ، كما هذه القيم تتغير دائما ، ولذلك اريد كود يفعل هذا الامر عند تنفيذه ، على كل الاوراق والمصنف بالكامل ، ولذلك اريد فقط تعديل الكود ، ليعمل بسرعة اكثر ، اذ ياخذ وقت اكثر من 3 دقائق ، لانه يبحث في جميع الخلايا ، ولكني اريده فقط ان يبحث في العمود الاخير فقط ، حتى لا يستغرق كل هذا الوقت وفي جميع اوراق العمل
ولكم جزيل الشكر

ربنا يوفقكم





05-08-2018 07:28 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
جرب الكود التالي عله يفي بالغرض إن شاء الله
Option Explicit

Sub Hide_Null_Rows_In_ActiveWorkbook_Names()
    Dim mName       As Name
    Dim rng         As Range
    Dim cell        As Range
    Dim oRng        As Range

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlManual
            For Each mName In ActiveWorkbook.Names
                If Left(mName.Name, 1) = "ج" Then
                    Set rng = mName.RefersToRange
                    rng.Rows.EntireRow.Hidden = False
    
                    For Each cell In rng.Columns(rng.Columns.Count).Cells
                        If cell.Value = 0 Then
                            If oRng Is Nothing Then Set oRng = cell Else Set oRng = Union(oRng, cell)
                        End If
                    Next cell
                    
                    If Not oRng Is Nothing Then oRng.EntireRow.Hidden = True
                    Set cell = Nothing: Set oRng = Nothing
                End If
            Next mName
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlAutomatic
    End With
End Sub





05-08-2018 07:57 صباحا
مشاهدة مشاركة منفردة [4]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
استاذ ودائما بتدعمنا مع الروعة والابداع ، الكود استغرق حوالي 12 ثانية ، في ملف كبير ملئ والاوراق والمعادلات ، جزاء الله الف خير
 

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




05-08-2018 08:13 صباحا
مشاهدة مشاركة منفردة [5]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
ولكنه يخفى هذا الصف لانه اكيد العمود الاخير مدمج مع العمود الذي قبله ، ولكنه عمل جيد بارك الله فيك
 
  يخفي هذا صف.jpg   تحميل jpg يخفي هذا صف.jpg مرات التحميل :(1)
الحجم :(91.128) KB
 






05-08-2018 09:48 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
جرب التعديل التالي عله يفي بالغرض
Sub Hide_Null_Rows_In_ActiveWorkbook_Names()
    Dim mName       As Name
    Dim rng         As Range
    Dim cell        As Range
    Dim oRng        As Range

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlManual
            For Each mName In ActiveWorkbook.Names
                If Left(mName.Name, 1) = "Ì" Then
                    Set rng = mName.RefersToRange
                    rng.Rows.EntireRow.Hidden = False
    
                    For Each cell In rng.Columns(rng.Columns.Count).Offset(1).Cells
                        If cell.Row = rng.Rows.Count Then Exit For
                        If cell.Value = 0 Then
                            If oRng Is Nothing Then Set oRng = cell Else Set oRng = Union(oRng, cell)
                        End If
                    Next cell
                    
                    If Not oRng Is Nothing Then oRng.EntireRow.Hidden = True
                    Set cell = Nothing: Set oRng = Nothing
                End If
            Next mName
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlAutomatic
    End With
End Sub





05-08-2018 10:31 صباحا
مشاهدة مشاركة منفردة [7]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
نجحت بالفعل في عدم اخفاء  ، ولكن لا يخفى جميع الصفوف كما كان في الكود الاول ، حيث الكود الاول نجح في اخفاء كل الصفوف الذي يحتوي اخر عمود فيه قيمة صفر ، اما الكود الثاني يتخطى الكثير من الصفوف المحتوية على قيمة صفر خاصة لو كانت في الصفوف الثالثة او الاخيرة منها ، لا اعرف السبب ، ولكن الكود الاول افضل ويعطي النتيجة الصحيحة الا الصفوف المدمجة





05-08-2018 01:39 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
السبب في المشكلة لديك على الأرجح هو استخدامك للخلايا المدمجة ومعروف أنها عدوة الأكواد .. لذا حاول أن تبتعد عنها إذا كنت تنوي التعامل مع الأكواد
وفقني الله وإياك لكل خير والحمد لله أن تم المطلوب على خير





05-08-2018 04:45 مساء
مشاهدة مشاركة منفردة [9]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
بارك الله فيك استاذنا القدير ياسر ، ربنا يوفقك

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




05-08-2018 05:03 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3941
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11127
الاعجاب : 3947
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
تسلم أخي العزيز جبريل ومشكور على كلماتك الطيبة
 

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




05-08-2018 09:19 مساء
مشاهدة مشاركة منفردة [11]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
اخي ياسر لاحظت ان الكود الخاص بك عند استدعائه من كود اخر ، لا يقوم باخفاء بعض الجداول ، وانا احاول بشتى الطرق ان اعرف السبب ولم افلح ، حيث هذه الجداول لا يوجد فيها اي دمج او اي شئ اخر مختلف عن باقي الجداول ، شئ غريب جدا ، والان بعد تسع ساعات والمشكلة قائمة ، ولا ادري سببا لهذا الامر





05-08-2018 10:30 مساء
مشاهدة مشاركة منفردة [12]
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 26
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 82
الاعجاب : 16
 offline 
look/images/icons/i1.gif اريد كود لاخفاء الصفوف اذا كانت اي قيمة في العمود الاخير صفر
اخي ياسر لاحظت ان الكود الخاص بك عند استدعائه من كود اخر ، لا يقوم باخفاء بعض الجداول ، وانا احاول بشتى الطرق ان اعرف السبب ولم افلح ، حيث هذه الجداول لا يوجد فيها اي دمج او اي شئ اخر مختلف عن باقي الجداول ، شئ غريب جدا ، والان بعد تسع ساعات والمشكلة قائمة ، ولا ادري سببا لهذا الامر
او يكون السبب كما هو معلم بالاصفر ، حيث عندما اضيف جملة : On Error Resume Next ينحل المشكلة ، ولكن ليس في كل الجداول ، ولكن عند تكرار الكود وتشغيله مرة اخرى ينحل المشكلة ، يعني لابد من تشغيل الكود مرتين لعمل ذلك
 
  خطا في الكود ياسر في اخفاء الصفوف.jpg   تحميل jpg خطا في الكود ياسر في اخفاء الصفوف.jpg مرات التحميل :(1)
الحجم :(300.158) KB
 







المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب كود لاخفاء خلايا فارغة عند الطباعة و اضهارها بعد الانتهاء زياد عبد الجليل
5 480 YasserKhalil

الكلمات الدلالية
اريد ، لاخفاء ، الصفوف ، كانت ، قيمة ، العمود ، الاخير ،


 







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



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

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