اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابراهيم ابراهيم

عضو جديد 01
  • Posts

    16
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه ابراهيم ابراهيم

  1. 8 hours ago, ابراهيم ابراهيم said:
    17 hours ago, ابو عبدالبارى said:

    السلام عليكم

    ارجو ان يفى ذلك بالغرض

    ضع الماكرو DoIt فى الحدث ComboBox1_Change

     

    اشكرك اخي الكريم وبارك الله فيك وجزاك الله خير الدنيا والاخرة

    انا طلبي الاول كان التحويل للغة العربية تلقائيا بمجرد فتح صفحة البحث

    لقد تم ما اريد وشكرتك على ذلك جزاك الله خيرا

  2. 6 hours ago, محمد عبدالسلام said:

    السلام عليكم ورحمة الله وبركاته اخي الكريم

    جرب الملف ارجو ان يفي ذلك بالغرض

     

    وعليكم السلام ورحمة الله وبركاته

    اشكرك أخي الكريم وجزاك الله كل الخير

    تم المطلوب

    ولكن هناك طلب صغير اذا تكرمت

    التكست بكس لا ياخذ من صفحة البيانات في القائمة المنسدلة

    الا اذا ضغطت على تفريغ القائمة

    هل يمكن علاج ذلك دون الضغط عليها وشكرا

    ملف العمل 1.rar

  3. 8 hours ago, ابو عبدالبارى said:

    السلام عليكم

    ارجو ان يفى ذلك بالغرض

    ضع الماكرو DoIt فى الحدث ComboBox1_Change

    ملف العمل.rar

    اشكرك اخي الكريم وبارك الله فيك وجزاك الله خير الدنيا والاخرة

    انا طلبي الاول كان التحويل للغة العربية تلقائيا بمجرد فتح صفحة البحث

     

  4. السلام عليكم ورحمة الله وبركانه

    اخواني ما هو الجزء الذي يتحكم في عمود البحث في هذا الكود

     

    Private Sub TextBox2_Change()
    If TextBox2 = "" Then
    AutoFilterMode = False
    Else
    Range("RN").AutoFilter , field:=3, Criteria1:=Right(TextBox2.Text, Len(TextBox2.Text)) & "*"
    End If
    End Sub

    وهل يمكن نسخ النتيجة الى ملف جديد

     

    بحث.rar

×
×
  • اضف...

Important Information