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

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


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


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





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

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



15-09-2019 05:21 مساء
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 113
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
قوة السمعة : 153
الاعجاب : 1
 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
المشاركات : 8551
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25158
الاعجاب : 49
 offline 
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

 




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





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




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




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







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


 







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

الساعة الآن 01:08 صباحا

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