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



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





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

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



08-01-2018 05:10 مساء
saif.almfrji
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3469
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 23-9-1989
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 





السلام عليكم .
اريد ان اعمل قائمة منسدلة فيها عدة بيانات وعند اختيار احدها تظر قائمة خاصة لهذا الاختيار . كيف يمكنني ذلك ؟؟ الملف مرفق 
 
 
  كشف المخزن.rar   تحميل rar مرات التحميل :(3)
الحجم :(8.491) KB

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







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

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




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





08-01-2018 06:19 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3642
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10161
الاعجاب : 3510
 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

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




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

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




08-01-2018 08:43 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3642
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10161
الاعجاب : 3510
 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

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




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

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




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سؤال بخصوص طباعة شيتات بكار للأبد
2 127 بكار للأبد
استفسار بخصوص برنامج EMA ashraf.hassane9
2 130 mohammed gurtuby
سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد محمود الشريف
5 580 karwan
بخصوص الرسالة التى تظهر عند فتح ملف مفتوح مسبقا محمود ابو الدهب
15 873 محمود ابو الدهب
مساعدة بخصوص دالة minoulab*ase
4 333 YasserKhalil

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


 







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



الساعة الآن 09:53 مساء

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