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



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





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

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




02-01-2018 12:19 مساء
مشاهدة مشاركة منفردة [13]
EM_ACC
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 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
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 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
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 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
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 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
المشاركات : 818
الجنس : ذكر
الدعوات : 11
يتابعهم : 2
يتابعونه : 472
قوة السمعة : 5838
الاعجاب : 1538
موقعي : زيارة موقعي
 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
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 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
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر
فين المشكله



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


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


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


توقيع :Yasser Elaraby
663013020



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

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

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



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


08-01-2018 12:59 مساء
مشاهدة مشاركة منفردة [22]
EM_ACC
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 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
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 90
الاعجاب : 35
 offline 
look/images/icons/i1.gif بحث فى الليست لاكثر من 10000 صف
اخى ياسر
ف انتظار كود
الى وعدتنى به
تقبل تحياتى



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


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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مهارات في اداة الليست بوكس عادل عليان_ الأمجاد
7 699 محمد أبو العنين
البحث والتعديل فى أكثر من شيت بواسطة الليست بوكس ashraf_hertlion
0 53 ashraf_hertlion
اريد لترحيل بيانات من الليست بوكس الى شيت محمدعبدالسلام
0 43 محمدعبدالسلام
البحث في الليست بوكس مع وجود بيانات متكرره بليغ البتول
13 138 YasserKhalil
هل من طريقة عند ترحيل البيانات من الليست بوكس الى شيت في ادخال الكمية لكل صنف في الفورم2 محمدعبدالسلام
5 101 YasserKhalil

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


 







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



الساعة الآن 04:06 مساء

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