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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





حل الخطأ فى هذا الكود

السلام عليكم استاذتنا الاعزاء ممكن اعرف شنو سبب الخطآ .... ممكن اعرف شنو سبب الخطآ كما في المرفقات .تحياتي للجميع [cod ..


موضوع مغلق


25-11-2020 08:00 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم استاذتنا الاعزاء ممكن اعرف شنو سبب الخطآ .... ممكن اعرف شنو سبب الخطآ كما في المرفقات .تحياتي للجميع 

Option Explicit

Dim WS As Worksheet, SH As Worksheet

Dim I As Long, RO As Long, WSLR As Long, SHLR As Long, res As Long, SS As Long

Dim C As Range, K As Integer

Private Sub TextBox1_Change()

WSLR = WS.Cells(Rows.Count, 1).End(xlUp).Row

K = 0

On Error Resume Next

    With Me.ListBox1

        .Clear

        .ColumnCount = 4

        For Each C In WS.Range("B2:B" & WSLR)

            If TextBox1.Value <> "" Then

                If C Like "*" & TextBox1.Value & "*" Then

                .AddItem

                .List(K, 0) = WS.Cells(C.Row, 5).Value

                .List(K, 1) = WS.Cells(C.Row, 4).Value

                .List(K, 2) = WS.Cells(C.Row, 3).Value

                .List(K, 3) = WS.Cells(C.Row, 2).Value

                .List(K, 4) = C.Row

                K = K + 1

                End If

            End If

        Next C

    End With

End Sub

 
 
  خطا كود1.jpg   تحميل jpg خطا كود1.jpg مرات التحميل :(0)
الحجم :(22.536) KB
  خطا كود2.jpg   تحميل jpg خطا كود2.jpg مرات التحميل :(0)
الحجم :(88.853) KB
 



أفضل إجابة مقدمة من hassona229 وهي:
بعد السطر
Private Sub TextBox1_Change()


ضيف هذا السطر
Set WS = ThisWorkbook.Worksheets("ورقة2")

 
عرض الإجابة




25-11-2020 08:22 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif حل الخطأ فى هذا الكود
المتغير ws من المفترض أن يتم الإعلان عنه وتعيين قيمة له
جرب استخدام ActiveSheet بدلاً منه لترى إذا كان الكود به مشاكل أخرى أو لا ..

25-11-2020 11:45 مساء
مشاهدة مشاركة منفردة [2]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif حل الخطأ فى هذا الكود
بعد السطر
Private Sub TextBox1_Change()


ضيف هذا السطر
Set WS = ThisWorkbook.Worksheets("ورقة2")

 



الكلمات الدلالية
السلام ، عليكم ، استاذتنا ، الاعزاء ، ممكن ، اعرف ، الخطآ ،


 










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

الساعة الآن 07:19 صباحا