الاستاذ مجدى
فورم بحث بكتابة اول حرف فيديو 12 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا فورم بحث بكتابة اول حرف فيديو 12 829894
ادارة المنتدي فورم بحث بكتابة اول حرف فيديو 12 103798

فورم بحث بكتابة اول حرف فيديو 12 Uoou_u10





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


شاطر
 

 فورم بحث بكتابة اول حرف فيديو 12

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالسبت سبتمبر 28, 2019 7:46 pm


فورم بحث بكتابة اول حرف فيديو 12


الفيديو





_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالسبت سبتمبر 28, 2019 9:05 pm

فورم البحث جدا راقي بس لو يطلع الاعمدة داخل الليست بوكس ،، استاذ مجدي يا ريت تزودنا بالكود اللازم جزاك الله خيراً
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالسبت سبتمبر 28, 2019 9:25 pm

يوجد فورم اخر داخل الموضوع به الاعمدة

الكود:
Private Sub TextBox1_Change()

    Dim a      As Variant
    Dim b()    As Variant
    Dim i      As Long
    Dim j      As Long

    ListBox1.Clear
    a = Sheet1.Range("a2:a" & Sheet1.Range("a" & Rows.Count).End(xlUp).Row).Value
   
    For i = LBound(a, 1) To UBound(a, 1)
        If TextBox1.Value = Left(a(i, 1), Len(TextBox1.Value)) Then
            j = j + 1
            ReDim Preserve b(1 To j)
            b(j) = a(i, 1)
        End If
    Next i
   
    On Error Resume Next
        ListBox1.List = b
    On Error GoTo 0

End Sub

Private Sub UserForm_Activate()
    TextBox1.SetFocus
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub ListBox1_Click()
    Dim ws      As Worksheet
    Dim r      As Variant

    TextBox1.Value = ListBox1.Value
    Set ws = Sheets("Sheet1")
   
    'هنا يتم البحث عن قيمة التكست بوكس في العمود الاول
    r = Application.Match(TextBox1.Value, ws.Columns(1), 0)
   
  'في حالة كانت النتيجة رقمية يعني أنه تم العثور على اسم الشخص المطلوب
    If IsNumeric(r) Then
   
  'في هذه الحالة يتم تحديد الخلية في العمود الاول في الصف الذي تم العثور عليه
        ws.Cells(r, 1).Select
    End If
End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالسبت سبتمبر 28, 2019 10:49 pm

    a = Sheet1.Range("a2:a" & Sheet1.Range("a" & Rows.Count).End(xlUp).Row).Value




                                      يظهر خطئ باللون الاصفر
الرجوع الى أعلى الصفحة اذهب الى الأسفل
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالسبت سبتمبر 28, 2019 11:21 pm

http://www.mediafire.com/file/npd90wfzvt4kb7b/%2528Copy_of%2529_list_box_-_Copy.7z/file

انا عملت مثلك بالضبط لكن يضهر خطأ كما في المرفق على الرابط اعلاه


عدل سابقا من قبل علي امير في الأحد سبتمبر 29, 2019 2:04 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 1:17 am

الاخ على امير
هل وضعت هذا الكود فى حدث الورقة

الكود:
Private Sub Worksheet_SelectionChange(ByVal x As Range)
ActiveSheet.Cells.Interior.ColorIndex = 0
x.EntireRow.Interior.ColorIndex = 6
End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 1:41 am

كود التلوين في حدث الورقة اما كود التكست بوكس والليست بوكس مثلك تماماً  تقدر تطلع على المرفق اعلاه ^^
استاذي العزيز
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 6:12 am

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

لو فيه مشكلة فصلت لك الفورم والرابط فى الاسفل ضع رد ليظهر الرابط



_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11


عدل سابقا من قبل مجدى يونس في الأحد سبتمبر 29, 2019 6:31 am عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 6:21 am

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 8:37 am

انا لم الاحظ انك رافع رابط الموضوع بسيط فى فرق بين ورقة 1 و Sheet1
فى حالة العربى بنضعها بين الكوتيشين"ورقة 1"
عموما اليك ملفك
رابط الملف

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 9:45 am

لو اتاحت لي فرصة  لقبلت اناملك استاذ يونس جزاكم الله خيراً 
لكن انا لم افهم لماذا  لم اتمكن من عمل واحد مشابه لا اعرف ماسبب الخطأ
انا استخدم اوفيس 2010 عربي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 12:07 pm

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

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 12:25 pm

طريقة شرحك خالية من اي غموض عاشت ايدك بس انا اتوقع الخلل بالاوفيس بتاعي لانه عربي فتختلف كتابة الشيت sheet  او( sheets(1
او("sheets") او("(1)sheets")
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 2:02 pm

مبروك عليك الملف واى خدمة

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
علي امير

علي امير

عدد المساهمات : 37
تاريخ التسجيل : 18/08/2019

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 3:01 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم بحث بكتابة اول حرف فيديو 12 Empty
مُساهمةموضوع: رد: فورم بحث بكتابة اول حرف فيديو 12   فورم بحث بكتابة اول حرف فيديو 12 Avatarالأحد سبتمبر 29, 2019 4:44 pm

الف شكر

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم بحث بكتابة اول حرف فيديو 12 Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
فورم بحث بكتابة اول حرف فيديو 12
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: