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





مشكلة البطء في عملية البحث في الملف المرفق

السلام عليكم عندي هذا الملف فيه ارشيف الطلبه ولكن عند البحث عن ملف معين يحدث بطء فيه اي ابقى انتظر لفتره حتى يعطي نتائج ..



06-12-2017 10:21 مساء
Salamco
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 216
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 6-6-1980
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 41
الاعجاب : 14
 offline 
السلام عليكم 
عندي هذا الملف فيه ارشيف الطلبه ولكن عند البحث عن ملف معين يحدث بطء فيه اي ابقى انتظر لفتره حتى يعطي نتائج البحث اتمنى حل لهذه المشكله وشكرا
 
 
  Student.rar   تحميل rar مرات التحميل :(32)
الحجم :(1639.563) KB





06-12-2017 11:35 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
وعليكم السلام أخي الكريم
بدلاً من وضع الكود في حدث التغير في صندوق النص يفضل وضعه في حدث الخروج بحيث لا يتم تنفيذ الكود في كل تغيير ومع كل تغيير في كل حرف
جرب الكود التالي عله يفي بالغرض .. بعد تحديد العمود المطلوب البحث عنه من خلال الكومبوبوكس قم بكتابة النص المطلوب البحث عنه ثم انقر Tab للخروج من التكست بوكس وتنفيذ عملية البحث
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim w           As Worksheet
    Dim a           As Variant
    Dim b()         As Variant
    Dim c           As Variant
    Dim s           As String
    Dim i           As Long
    Dim k           As Long

    Set w = ThisWorkbook.Worksheets("Data")
    Me.ListBox1.Clear
    If Me.TextBox1.Value = "" Or Me.ComboBox1.Value = "" Then Exit Sub

    a = w.Range("A3:J" & w.Cells(Rows.Count, 1).End(xlUp).Row).Value
    s = Me.ComboBox1.Value
    c = Application.Match(s, w.Rows(2), 0)
    
    If Not IsError(c) Then
        For i = 1 To UBound(a, 1)
            If InStr(UCase$(a(i, c)), UCase$(Me.TextBox1.Value)) > 0 Then
                ReDim Preserve b(1 To k + 1)
                b(UBound(b)) = Application.Index(a, i, 0)
                k = k + 1
            End If
        Next i
    End If

    On Error Resume Next
        If UBound(b) > 0 Then If UBound(b) = 1 Then Me.ListBox1.Column = Application.Index(b, 0, 0) Else Me.ListBox1.List = Application.Index(b, 0, 0)
    On Error GoTo 0
End Sub

أثارت هذه المشاركة إعجاب: ناصر سعيد1، Salamco،



07-12-2017 12:39 مساء
مشاهدة مشاركة منفردة [2]
Salamco
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 216
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 6-6-1980
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 41
الاعجاب : 14
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
شكرا استاذ وبالنسبة للحفظ ايضا يأخذ وقت لان جربت احفظ في حدث التغيير لورقة العمل هل من حل




07-12-2017 02:05 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
أي كود في حدث تغيير ورقة العمل أعتبره كاهل على الملف حيث سيتم تنفيذ الكود مع كل تغيير وهذا أمر غير مستحب .. لذا حاول استبداله بكود عادي يتم تنفيذه من خلال زر أمر في وقت الحاجة فقط




08-12-2017 11:43 صباحا
مشاهدة مشاركة منفردة [4]
Salamco
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 216
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 6-6-1980
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 41
الاعجاب : 14
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
استاذي الغالي اشكرك
هل استطيع تعديل الملف بإضافة صوره للشخص باستخدام كاميرا الويب وخزنها مع بقية البيانات وكذلك المستمسكات الشخصيه... واكون شاكرا لك وجزاك الله الف خير


تم تحرير المشاركة بواسطة :Salamco
بتاريخ:08-12-2017 11:44 صباحا


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



08-12-2017 10:10 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
ليس لدي فكرة عن الموضوع وإن شاء الله إن تيسر لي الوقت سأحاول البحث في الأمر لعلني أجد طريقة لفعل ذلك

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



09-12-2017 12:24 مساء
مشاهدة مشاركة منفردة [6]
Salamco
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 216
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 6-6-1980
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 41
الاعجاب : 14
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
استاذي العزيز
كيف استطيع منع المستخدم من الاطلاع او الدخول الى الشيات




09-12-2017 12:29 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif مشكلة البطء في عملية البحث في الملف المرفق
يمكن إخفاء تبويبات الشيتات لكن لو واحد متوسط هيقدر بسهولة يظهر التبويبات دي ، وحتى لو عملت حماية على محرر الأكواد فالحماية ضعيفة ويوجد برامج تفك الحماية ولا سبيل للحماية الكاملة في الإكسيل نفسه ، ولابد من الاستعانة ببرامج أخرى 

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






الكلمات الدلالية
مشكلة ، البطء ، عملية ، البحث ، الملف ، المرفق ،


 







الساعة الآن 03:01 صباحا