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

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


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





طلب تعديل على userform للاخ القديرYasserKhalil

مطلوب كود بجث للملف المرفق تحياتى لكم لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


موضوع مغلق


03-05-2021 05:59 مساء
ibrahime elshal
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 02-05-2021
رقم العضوية : 22306
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 5-12-1983
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 12
 offline 

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



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم
جرب الكود بهذا الشكل في حدث التغير في صندوق النص لديك
Private Sub TextBox1_Change()
    Dim myFile As String
    myFolder = ThisWorkbook.Path & "\MyFolder\"
    myFile = Dir(myFolder & "\*.pdf")
    ListBox1.Clear
    Do While myFile <> ""
        If InStr(UCase(myFile), UCase(TextBox1.Value)) Then
            ListBox1.AddItem myFile
        End If
        myFile = Dir
    Loop
End Sub
عرض الإجابة




03-05-2021 10:35 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طلب تعديل على userform للاخ القديرYasserKhalil
السلام عليكم أخي الكريم
جرب الكود بهذا الشكل في حدث التغير في صندوق النص لديك
Private Sub TextBox1_Change()
    Dim myFile As String
    myFolder = ThisWorkbook.Path & "\MyFolder\"
    myFile = Dir(myFolder & "\*.pdf")
    ListBox1.Clear
    Do While myFile <> ""
        If InStr(UCase(myFile), UCase(TextBox1.Value)) Then
            ListBox1.AddItem myFile
        End If
        myFile = Dir
    Loop
End Sub

03-05-2021 11:20 مساء
مشاهدة مشاركة منفردة [2]
ibrahime elshal
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 02-05-2021
رقم العضوية : 22306
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 5-12-1983
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif طلب تعديل على userform للاخ القديرYasserKhalil
تم اضافة الكود ولكن لم يعمل لدى  مرفق صورة هل اناقمت بوضعة بالمكان الصحيح
رجاءاضافتة من طرفكم اخى العزيز وتجربتة واعادة رفعة 
وجزاكم الله خيرا MzkxMjk2MQ36361
 
 


04-05-2021 12:55 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طلب تعديل على userform للاخ القديرYasserKhalil
الكود يعمل بشكل جيد .. قم بإرفاق ملفك بعد إضافة الكود للإطلاع عليه ومعرفة سبب المشكلة.
من باب المراجعة قم بفتح قائمة Tools ثم References ثم ابحث عن المكتبات المفقودة Missing وأزل علامة الصح بجوارها.

04-05-2021 01:34 صباحا
مشاهدة مشاركة منفردة [4]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif طلب تعديل على userform للاخ القديرYasserKhalil
بارك الله فيك استاذ ياسر حقاً انه كود ممتاز ويعمل بكل كفاءة ... عليك استاذ ابراهيم اتباع كل تنبيهات وتعليمات الأستاذ ياسر فستصل الى ما تريد بكل دقة وشوف هذه الصور للتأكيد واثبات ان الكود يعمل بكفاءة مطلقة وليس به اى مشاكل , فالمشكلة لديك انت فى تطبيق الكود وبارك الله فيك
1P69G_1 2PlYb_2
 
May God bless you, Professor Yasser, indeed, it is an excellent code and works efficiently ... You must, Professor Ibrahim, follow all the warnings and instructions of Professor Yasser, and you will reach what you want with accuracy and see these pictures to confirm and prove that the code works with a*bsolute efficiency and has no problems, so the problem you have is you in the application
 
 
 

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

04-05-2021 03:26 صباحا
مشاهدة مشاركة منفردة [5]
ibrahime elshal
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 02-05-2021
رقم العضوية : 22306
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 5-12-1983
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif طلب تعديل على userform للاخ القديرYasserKhalil
تمام تم التجربة  بنجاح 
كل الشكر لكم وجعله الله فى ميزان حسناتكم
وكل عام وانتم بخير



الكلمات الدلالية
تعديل ، userform ، للاخ ، القديرYasserKhalil ،


 










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

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