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

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


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



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





اخفاء اعمده معينه طبقا لشرط من خلال كود

السلام عليكم ورحمة الله وبركاته كنت احتاج كود يقوم بعمل اخفاء للأعمده طبقا لشرط والشرط موجود فى نفس العمود فى الصف ا ..



15-09-2019 05:21 مساء
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 

السلام عليكم ورحمة الله وبركاته

كنت احتاج كود يقوم بعمل اخفاء للأعمده  طبقا لشرط والشرط موجود فى نفس العمود  فى  الصف الأول عندما تكون الخليه الأولى تحتوى على كلمة true يخفى هذا العمود :

انظر الصوره المرفقه GEDXD_بدون عنوان
 
وهذه هى احدى محاولاتى ولكن الكود لم يعمل بالشكل المطلوب

Sub hide_colmen()
Sheets("ßÇÑÊ").Select
'Dim x As Long
For x = 1 To 9
If Cells(1, x).Value = "true" Then
'Columns("e:f").Select
Columns(1, x).Select
'Cells(1, x).Select
'x.Select
Selection.EntireColumn.Hidden = True
End If
Next x
End Sub

 
 







15-09-2019 08:11 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7805
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22572
الاعجاب : 2021
 Online 
look/images/icons/i1.gif اخفاء اعمده معينه طبقا لشرط من خلال كود
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Hide_Columns_Using_Union()
    Dim cel As Range, rng As Range
    
    With ThisWorkbook.Worksheets("Sheet1")
        For Each cel In .Range(.Cells(1, 1), .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column))
            If UCase(cel.Value) = "TRUE" Then
                If rng Is Nothing Then Set rng = cel Else Set rng = Union(rng, cel)
            End If
        Next cel
        
        If Not rng Is Nothing Then rng.EntireColumn.Hidden = True
    End With
End Sub

 

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




15-09-2019 08:34 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 291
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 559
الاعجاب : 26
 offline 
look/images/icons/i1.gif اخفاء اعمده معينه طبقا لشرط من خلال كود
جزاكم الله خيرا


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




15-09-2019 08:54 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7805
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22572
الاعجاب : 2021
 Online 
look/images/icons/i1.gif اخفاء اعمده معينه طبقا لشرط من خلال كود
وجزيت خيراً أخي العزيز أبا الحسن 





16-09-2019 12:04 مساء
مشاهدة مشاركة منفردة [4]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif اخفاء اعمده معينه طبقا لشرط من خلال كود
جزاك الله خيرا  استاذ ياسر
جربت الكود وظبط معى 

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




16-09-2019 03:09 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7805
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22572
الاعجاب : 2021
 Online 
look/images/icons/i1.gif اخفاء اعمده معينه طبقا لشرط من خلال كود
وجزيت خيراً أخي العزيز عبد الرحمن والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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






الكلمات الدلالية
اخفاء ، اعمده ، معينه ، طبقا ، لشرط ، خلال ،


 







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



الساعة الآن 02:21 مساء

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