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



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





كيفية استخراج البيانات من قائمة منسدلة بكود vba

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



09-09-2018 12:48 مساء
emad eldwady
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2018
رقم العضوية : 6651
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 13-5-1986
يتابعهم : 5
يتابعونه : 0
قوة السمعة : 71
الاعجاب : 15
 offline 

الاساتذه الافاضل
علي فرض اني  معي قائمه منسدله بها عدد كبير جدا من الخيارات
واريد ان استخرج تلك الخيارات في صفحه اخري او خلايا اخري بالترتيب
من المعروف انه  يوجد مصدر معين او نطاق لتلك البيانات
ولسبب ما ان هذا النطاق غير موجود مشفر باي كود او مخفي والخلايا الخاصه به محميه
كيف يتم تفريغ تلك الخيارات لان السحب اليدوي ممل ومرهق
مرفق مثال لقائمه منسدله لارقام من 1الي 35 كمثال بسيط ولكني اتحدث عن قائمة بها الالاف من الاختيارات والنطاق الخاص بها في العمود d محمي لعدم الاظهار
 
 
 
  قائمه منسدله.zip   تحميل zip مرات التحميل :(16)
الحجم :(7.176) KB







09-09-2018 01:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif كيفية استخراج البيانات من قائمة منسدلة بكود vba
السلام عليكم
جرب الكود التالي .. النتائج في ورقة 2
Sub Test()
    Dim objVal      As Validation
    Dim x           As Variant
    Dim strFormula  As String
    Dim cell        As Range
    Dim c           As Range
    Dim i           As Long
    Dim n           As Long
    
    Set cell = Worksheets(1).Range("A1")
    Set objVal = cell.Validation

    On Error GoTo ErrHandler
    If objVal.Type = xlValidateList Then
        strFormula = objVal.Formula1
        If Left(strFormula, 1) = "=" Then
            Set x = Evaluate("='" & Worksheets(1).Name & "'!" & Mid(strFormula, 2))
            For Each c In x
                n = n + 1
                Worksheets(2).Cells(n, 1).Value = c.Value
            Next c
        Else
            x = Split(strFormula, Application.International(xlListSeparator))
            For i = 0 To UBound(x)
                n = n + 1
                Worksheets(2).Cells(n, 1).Value = x(i)
            Next i
        End If
    End If
    Exit Sub
    
ErrHandler:
    Debug.Print "Cell Doesn't Have Validation"
End Sub


أثارت هذه المشاركة إعجاب: ali mohamed ali، emad eldwady، Yasser Elaraby، Eslam Abdullah، احمد الحاوي، محمد النيل،




09-09-2018 01:59 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 429
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 2357
الاعجاب : 693
 offline 
look/images/icons/i1.gif كيفية استخراج البيانات من قائمة منسدلة بكود vba
رائع استاذ ياسر كود ممتاز جعله الله فى ميزان حسناتك

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


09-09-2018 02:24 مساء
مشاهدة مشاركة منفردة [3]
emad eldwady
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2018
رقم العضوية : 6651
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 13-5-1986
يتابعهم : 5
يتابعونه : 0
قوة السمعة : 71
الاعجاب : 15
 offline 
look/images/icons/i1.gif كيفية استخراج البيانات من قائمة منسدلة بكود vba
دائما رائع استاذ ياسر بارك الله فيك

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




09-09-2018 06:07 مساء
مشاهدة مشاركة منفردة [4]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6416
الاعجاب : 1822
 offline 
look/images/icons/i1.gif كيفية استخراج البيانات من قائمة منسدلة بكود vba
الله ينور أستاذى الحبيب ياسر
ايه الحلاوه دى
مبدع كالعاده

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




09-09-2018 06:18 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4360
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12572
الاعجاب : 4590
 offline 
look/images/icons/i1.gif كيفية استخراج البيانات من قائمة منسدلة بكود vba
بارك الله فيكم إخواني ومشكور على مروركم العطر
في الحقيقة الفضل لله ثم للأخ الغالي حسام خطاب في هذا الكود فقد كنا نتناقش فيه منذ فترة وجيزة وإن شاء الله أخونا حسام مجهز دالة معرفة لها وإن شاء الله تفيدكم
تقبلوا تحياتي

أثارت هذه المشاركة إعجاب: Eslam Abdullah، emad eldwady،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اصلاح كود استخراج البيانات من رقم العميل وكود الصنف فى الفورم هانى على
12 232 YasserKhalil
الملف بياخد وقت كبير في التحميل ( استخراج البيانات) احمد عطا
3 252 YasserKhalil

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


 







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



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

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