• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


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





بحث فى الليست لاكثر من 10000 صف

الاخوه الافاضل السلام عليكم كنت اسأل لو ان لدى ملف به اكثر من 10000 صف و عدد 9 اعمده واريد اظهار هذه البيانات فى الليست ..



02-01-2018 12:19 مساء
مشاهدة مشاركة منفردة [13]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر خليل
مشكورا على الاضافه 
والمعلومه الجميله دى
...........................
انا بصراحه حاولت واستبدلت السطر
ب
If InStr(myArray(X, targtN), targt) Then


ولكن لم  اقم باستبدال السطر الثانى
وكان هذا هو الخطأ
تقبل تحياتى
 


تم تحرير المشاركة بواسطة :EM_ACC
بتاريخ:02-01-2018 12:21 مساء




توقيع :EM_ACC
إبراهيم أبوليله

02-01-2018 12:24 مساء
مشاهدة مشاركة منفردة [14]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
أخى وساتاذى ياسر خليل
معلومه جمييله مشكورا عليها
انا بصراحه حاولت واستخدمت السطر ده
 If InStr(myArray(X, targtN), targt) Then 

ولكن لم انتبه الى تكراره وكان هذا هو الخطأ
تقبل تحياتى



توقيع :EM_ACC
إبراهيم أبوليله

02-01-2018 03:59 مساء
مشاهدة مشاركة منفردة [15]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
مشكورا استاذى ياسر
والى اللقاء فى معلومه اخرى
تقبل تحياتى


تم تحرير المشاركة بواسطة :EM_ACC
بتاريخ:02-01-2018 04:01 مساء




توقيع :EM_ACC
إبراهيم أبوليله

06-01-2018 07:52 مساء
مشاهدة مشاركة منفردة [16]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر
تم عمل اخفاء للملف
ولكن عند البحث ف التيكست تحدث المشكله
ارجو الافاده
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  بحث سريع ليست بوكس.rar   تحميل rar مرات التحميل :(5)
الحجم :(63.471) KB




توقيع :EM_ACC
إبراهيم أبوليله

07-01-2018 10:32 صباحا
مشاهدة مشاركة منفردة [17]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 551
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 288
قوة السمعة : 3598
الاعجاب : 853
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
استبدل السطر دا
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row

بالسطر دا
lr = Sheets(ws.Name).Cells(Rows.Count, 1).End(xlUp).Row


او اعلن عن الشيت اثناء تنفيذ الكود في التكست بوكس
 

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


توقيع :Yasser Elaraby
663013020


07-01-2018 11:57 صباحا
مشاهدة مشاركة منفردة [18]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر
مشكورا على ارد والاهتمام
بارك الله فيك
اننى قمت بعمليه الاستبدال
كما تفضلت
ولكن مازال الخطأ
يقف عند نفس السطر
وارجو ارفاق ملف يعمل عندك بنجاح
للوقوف على الخطأ من نسخة الاوفيس
ام من كتابة الاكواد
ولى استفسار اخر
انا شايف ان المفروض
ان السطر الاخير معرف
و
هل بهذا الشكل يعتبر كما اتصور
ان اسم الشيت معرف ام لا
Public wb As Workbook
Public ws As Worksheet
Private Sub UserForm_Activate()
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Sheet2")
MsgBox ws.Name
fill_com
End Sub

 مرفق الشيت الذى تم التعديل عليه
كما تفضلت
ارجو التجربه
والافاده
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  بحث سريع ليست بوكس.rar   تحميل rar مرات التحميل :(4)
الحجم :(61.745) KB



تم تحرير المشاركة بواسطة :EM_ACC
بتاريخ:07-01-2018 12:03 مساء




توقيع :EM_ACC
إبراهيم أبوليله

08-01-2018 09:40 صباحا
مشاهدة مشاركة منفردة [19]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر
فين المشكله



توقيع :EM_ACC
إبراهيم أبوليله

08-01-2018 09:53 صباحا
مشاهدة مشاركة منفردة [20]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 551
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 288
قوة السمعة : 3598
الاعجاب : 853
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
انا الملف يعمل لدي في اغلب التغييرات
وهذا نفس كودك ويعمل لدي جرب كدا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  بحث سريع ليست بوكس.zip   تحميل zip مرات التحميل :(2)
الحجم :(60.487) KB


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


توقيع :Yasser Elaraby
663013020


08-01-2018 10:58 صباحا
مشاهدة مشاركة منفردة [21]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى الفاضل
ياسر

معلش ياريس
هتتعب معايا شويه
الموضوع ده مهم جدا
ولازم نوصل ان شاء الله
للطريقه الصحيحه

انا اكتشفت ان الملف
بشتغل فعلا
ولكن ده فى حاله ان يكون فيه ملف اكسيل مفتوح 
قبل فتح الملف ده
.........................................................
جرب فتح الملف بدون ان تكون هناك
اى ملفات اكسيل مفتوحه
............................................................
فى انتظار الرد
تقبل تحياتى



توقيع :EM_ACC
إبراهيم أبوليله

08-01-2018 12:59 مساء
مشاهدة مشاركة منفردة [22]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى الحبيب ياسر
الحمد لله تم الوصول الى الخطأ
تم استبدال السطر الاتى
 lr = ws.Cells(Rows.Count, 1).End(xlUp).Row 

بالسطر التالى
 lr = ws.Cells(WS.Rows.Count, 1).End(xlUp).Row 

تقبل تحياتى


تم تحرير المشاركة بواسطة :EM_ACC
بتاريخ:08-01-2018 01:04 مساء




توقيع :EM_ACC
إبراهيم أبوليله

08-01-2018 05:34 مساء
مشاهدة مشاركة منفردة [23]
EM_ACC
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 41
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 53
الاعجاب : 17
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر
ف انتظار كود
الى وعدتنى به
تقبل تحياتى



توقيع :EM_ACC
إبراهيم أبوليله

08-01-2018 06:10 مساء
مشاهدة مشاركة منفردة [24]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1912
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 196
قوة السمعة : 5329
الاعجاب : 1529
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
أي الياسرين تقصد ؟
ألم يقدم لك العربي كود يقوم بالمطلوب ؟!

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
نسخ البيانات من الليست بوكس Kamel meraghni
6 134 atc_340
حصريا :كيفية جمع القيم الموجودة فى الليست بوكس واظهار النتائج فى التكست بوكس مع عماد غازى emad ghazi
6 147 emad ghazi
مهارات في اداة الليست بوكس 2 _FONTS عادل عليان_ الأمجاد
2 214 الصقر
مشكله مع الليست بوكس Multiselect=true Mohsen Hebshawy
4 144 YasserKhalil
مهارات في اداة الليست بوكس عادل عليان_ الأمجاد
5 298 YasserKhalil

الكلمات الدلالية
الليست ، لاكثر ، 10000 ،


 







الساعة الآن 12:27 صباحا