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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil طلب مساعدة في تعديل الكود حتى يتم البحث في كل الصفحات بالملف اكسيل اسئله واجابات


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



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





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

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



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

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








09-09-2018 01:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6189
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17068
الاعجاب : 154
 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







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



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



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






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






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






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

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


 







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



الساعة الآن 05:37 صباحا

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