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

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


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


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





بخصوص القائمة المنسدلة

السلام عليكم . اريد ان اعمل قائمة منسدلة فيها عدة بيانات وعند اختيار احدها تظر قائمة خاصة لهذا الاختيار . كيف يمكنني ذلك ..



08-01-2018 05:10 مساء
saif.almfrji
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3469
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 23-9-1989
قوة السمعة : 14
الاعجاب : 0
 offline 
السلام عليكم .
اريد ان اعمل قائمة منسدلة فيها عدة بيانات وعند اختيار احدها تظر قائمة خاصة لهذا الاختيار . كيف يمكنني ذلك ؟؟ الملف مرفق 
 
 
  كشف المخزن.rar   تحميل rar مرات التحميل :(4)
الحجم :(8.491) KB

سبب التعديل : اضافة مرفق





08-01-2018 05:13 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
وعليكم السلام 
أخي الكريم يرجى إرفاق ملف موضحاً عليه المطلوب لتجد المساعدة من إخوانك بالمنتدى فالملف المرفق أفضل في التعامل مع أي مشكلة




08-01-2018 05:32 مساء
مشاهدة مشاركة منفردة [2]
saif.almfrji
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3469
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 23-9-1989
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
ارفقت الملف اخي ارجو الاطلاع




08-01-2018 06:19 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
جرب الكود التالي في حدث ورقة العمل ، كليك يمين على اسم ورقة العمل ثم اختر View Code ثم الصق الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x       As Variant
    Dim i       As Long

    If Target.Address = "$K$1" Then
        x = Application.Match(Target.Value, Columns(1), 0)
        
        If Not IsError(x) Then
            Rows("2:" & Rows.Count).Hidden = True
            Rows(x).Resize(8).Hidden = False
        End If
        If Target.Value = "" Then Rows("2:" & Rows.Count).Hidden = False
    End If
End Sub




08-01-2018 08:35 مساء
مشاهدة مشاركة منفردة [4]
saif.almfrji
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3469
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 23-9-1989
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
وااو هذا ما ابحث عنه , الان فقط اطلب خدمة اخيرة لكي اطبق الخطوات على شيت اخر بمتغيرات جديدة  وهي شرح الكود
. مع الشكر الجزيل والتحية




08-01-2018 08:43 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
تفضل أخي الكريم (وحاول دراسة الأكواد بنفسك لتتعلم منها)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x       As Variant
    Dim i       As Long

    'تعيين الخلية التي على أثر تغييرها سيتم تنفيذ الكود
    If Target.Address = "$K$1" Then
    
        'هنا نقوم بالبحث عن قيمة الخلية في العمود الأول لمعرفة رقم الصف المطلوب
        x = Application.Match(Target.Value, Columns(1), 0)
        
        'في حالة وجدت الخلية المطلوب البحث عنها يتم تنفيذ بقية الأسطر
        If Not IsError(x) Then
            'إخفاء كل الصفوف بداية من الصف الثاني
            Rows("2:" & Rows.Count).Hidden = True
            
            'إظهار الصف بداية من الصف الذي طابق عملية البحث وبامتداد 8 صفوف
            Rows(x).Resize(8).Hidden = False
        End If
        
        'إذا كانت قيمة الخلية فارغة يتم إظهار كافة الصفوف
        If Target.Value = "" Then Rows("2:" & Rows.Count).Hidden = False
    End If
End Sub




08-01-2018 10:17 مساء
مشاهدة مشاركة منفردة [6]
saif.almfrji
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3469
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 23-9-1989
قوة السمعة : 14
الاعجاب : 0
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
شكرآ جزيلآ اخي العزيز جعل الله العافية رفيقك في الدنيا




08-01-2018 10:50 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif بخصوص القائمة المنسدلة
تسلم أخي الكريم سيف وأهلاً بك في المنتدى ونورت بين إخوانك وأحبابك في الله
تقبل تحياتي






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سؤال بخصوص البرنامج العملاق لصاحبه المحترف ا/ حسام خطاب برنامج EMA abozar
2 349 pharma
طلب من لأخوة الأفاضل بخصوص شيت المرحلة الابتدائية saad mohamed
1 211 saad mohamed
بناء علي تعليمات الاستاذ ياسر بخصوص طرح الموضوع بصورة افضل عن طريق ارفاق ملف عمل وليس صورة waleedmor
1 373 waleedmor
سؤال بخصوص اكسل 2019 khaled alborene
4 371 YasserKhalil
سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد محمود الشريف
6 2684 YasserKhalil

الكلمات الدلالية
بخصوص ، القائمة ، المنسدلة ،


 







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

الساعة الآن 12:55 مساء

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