اذهب الي المحتوي
أوفيسنا

بحث من خلال textbox1 تظهر نتائج البحث فى listbox1 وعند التنقل بالاسهم فى النتائج داخل listbox1 ترحل البيانات الى التكست بوكس والكومبوبوكس


الردود الموصى بها

السلام عليكم 

تحياتى لجميع اعضاء الجروب المحترمين

* textbox1 الموجود داخل user form8 يقوم بالبحث عن رقم الحساب فى البيانات الموجوده فى شيت  home1 ويقوم بترحيل البيانات الى التكست بوكس والكومبو بوكس الموجودة فى  userform 8

* اريد اضافة listbox1 يظهر به نتائج البحث فى textbox1 ( الست بوكس عمود واحد يعرض  نتائج البحث فى رقم الحساب كما هو موضح بالصورة 

الموجود فى اللست بوكس  او التنقل بالاسهم بين نتائج البحث  . يقوم بترحيل البيانات الى جميع اللست بوكس والكومبو بوكس الموجودة فى userform 8 

* زر اضافى يقوم بترحيل البيانات داخل جميع التكست بوكس وال كومبو بوكس الى شيت home 1 


7.jpg.764764a6083fdadef561e41988d83c28.jpg6.jpg.db5e99e2b32ea65038dab823bc7f1ac6.jpg  ) وعند الضغط على نتائج البحث

 

‏‏‏‏برنامج المعطل ver 20 2024 مثال.xlsm

رابط هذا التعليق
شارك

السلام عليكم  

جرب الملف واخبرنى بالملاحظات لانى عملته  بسرعة قبل الذهاب الى العمل

____برنامج المعطل ver 20 2024 مثال.xlsm

رابط هذا التعليق
شارك

الاخ الكريم الاستاذ عبدالله بشير عبدالله  شكرا جزيلا لاهتمامك

لكن لاتظهر نتائج البحث داخل  textbox1 داخل lestbox1 

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

4.7z

رابط هذا التعليق
شارك

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

اظهار نتائج البحث في اللستبوكس.xlsm

  • Like 1
رابط هذا التعليق
شارك

تعديل للملف 

اظهار نتائج البحث في اللستبوكس.xlsm

تم تعديل بواسطه عبدالله بشير عبدالله
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

معلمى واستاذي ابراهيم ابو ليلة /  الجيل الذهبى للمنتدى ربما اشتركنا في المنتدى في نفس الفترة وعاصرنا عبدالله باقشير وملك المعادلات والدغيدى وعبدالله المجرب والشهابي  وتعلمنا منهم الكثير وغيرهم الكثير , اشتراكى القديم في 2011 باسم عبدالله الصاري وتم ترقيتي الى الخبراء  ومنذ سنتين لم اتمكن من الذخول الى المنتدى بسبب الدخول اصبح بالبريد الالكتروني والذي نسيته فاشتركت مجددا بلسم الحالى

على كل حال اسعدنى تعليقك ولك وافر التقدير والاحترام

تم تعديل بواسطه عبدالله بشير عبدالله
  • Like 1
رابط هذا التعليق
شارك

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

لكن لى ملاحظات اخجل من طلبها 

1- اريد عند مسح محتويات TEXTBOX1 يتم تفريغ التكستبوكس والكومبوبوكس

2-عن اختيار نتائج الللست بوكس تظهر فى التكستبوكس و الكومبوبوكس بياناات لا تخص رقم الحساب المحدد فى اللست بوكس

3- اريد عن كتابة او عند عرض محتويات TextBox17 و TextBox18 تظهر فى تنسيق YYYY/MM/DD

4- اريد عن كتابة او عند عرض محتويات TextBox4تظهر فى تنسيق YYYY/MM

وجزاك الله واسف على الاطالة 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم 

تم تعديل النقطتين  الاولى والثانية  والثانية كان سببها  اكثر من رقم حساب مكرر 

النقطتان 3 4  ان شاء بعد العودة من العمل 

جرب المرفق ولاحرج في اي  ملاحظة 

تقبل تحياتي

اظهار نتائج البحث في اللستبوكس1.xlsm

تم تعديل بواسطه عبدالله بشير عبدالله
  • Like 2
رابط هذا التعليق
شارك

بالنسبة تكست 18 و19  اذهب الى

لوحة التحكم - الساعة والمنطقة - المنطقة - ثم كما بالصورة

483507674_.png.1066b0265406eded43507eb9310b7cac.png

 

الملف

اظهار نتائج البحث في اللستبوكس1.xlsm

  • Like 1
رابط هذا التعليق
شارك

استاذ عبدالله بشير عبدالله 

بارك الله فيك مجهود عظيم جعل الله فى ميزان حسناتك

* تمام كدة لكن في ملاحظة واحدة 

1- هى ان عتد اختيار اي نتائج البحث داخل اللست بوكس ولم يسجل لها تاريخ رفع وتاريخ تركيب ( TextBox18 - TextBox17) تكتب تاريخ 30/12/1899 بالرغم ان الخلايا فارغة داخل الشيت ولا يوجد بها تاريخ مسجل 

كما هو موضح بالصورة 

ولك جزيل الشكر

 

10.jpg

رابط هذا التعليق
شارك

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

لقد قمت بتجربة الملف المرفق من الاخ الفاضل @عبدالله بشير عبدالله  يؤدي المطلوب مع عدم  ظهور اي تواريخ غير موجودة كما في الصورة لديك 

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

Capture.JPG.134491fe03589896c5d230616031485e.JPG

 

 

 

برنامج المعطل 2024.xlsm

تم تعديل بواسطه محمد هشام.
  • Like 2
رابط هذا التعليق
شارك

الاستاذ محمد هشام ارق تحياتى واحترامى لشخصكم وايضا للاستاذ عبدالله بشير عبدالله 

مجهود عظيم من حضراتكم 

اكيد عندى انا  مشكلة لانى بضيف الاكواد الى برنامج اكبر مساحته كبيرة يحتوى الى الكثير من user forms والصفحات لا اتمكن من رفعة

* عند ملاحظة عن كتابة رقم حساب جديد للاضافة يعطى الرسالة التالية كما هو موضح بالصورة

11.jpg

رابط هذا التعليق
شارك

بما انك تستخدم ملف اخر يجب  أولا  الضغط على زر "Debug" في الرسالة لتحديد السطر البرمجي الذي يسبب الخطأ لنحاول اصلاحه 

رغم انه صراحة يصعب التعامل مع الاخطاء بهده الطريقة دون معاينة الملف الاصلي 

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

 

 

ScreenRecorderProject1_1.gif.04470e92faa5522f29ffdf56c77dbbf8.gif

 

الملف بعد اظافة  تسطير البيانات الجديدة  وتنسيق ورقة العمل 

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim f As Worksheet,  Lr As Long
    Set f = ThisWorkbook.Sheets("home1")

    Lr = f.Cells(f.Rows.Count, "B").End(xlUp).Row
    Application.EnableEvents = False

    f.Range("B2:AX" & Lr).Interior.ColorIndex = xlNone

    If Not Intersect(Target, f.Range("B2:AX" & Lr)) Is Nothing And Target.Rows.Count = 1 Then
        f.Range("B" & Target.Row & ":AX" & Target.Row).Interior.Color = RGB(0, 255, 0)
    End If
    Application.EnableEvents = True
End Sub

 

 

 

برنامج المعطل 2024.xlsm

تم تعديل بواسطه محمد هشام.
  • Like 1
رابط هذا التعليق
شارك

الاستاذ محمد هشام الفاضل  / مبدع بجدارة 

صاحب الملف الفاضل/ جربت الملف زر الاظافة يعمل بدون اخطاء ا

تحياتي لكما

  • Like 2
رابط هذا التعليق
شارك

استاذى الكريم محمد هشام. والاستاذ عبدالله بشير عبدالله تعجز الكلمات عن وصف اعتزازى واحترامى لكما

الاضافة تعمل والحمد لله المشكلة انى استخدمت TextBox1 بدلا من TextBox21 لادراج رقم الحساب كما كنت استخدمه مسبقا . 

* لكن المشكلة عن البحث داخل رقم الحساب فى TextBox21 يكود خطا كما هو موضح بالصورة 

12.jpg

رابط هذا التعليق
شارك

تفضل اخي المطلوب ان شاء الله 

تم اضافه فورم جديد ايضا يسهل عمليات البحث تستدعي الفورم الجديد  عند الضغط على دبل كليل في Textbox1  وعند العثور على البحث في الفورم الجديد تضغط ايضا دبل كليل في listview يرحل رقم الحساب ايضا في فورم 2 

اتمني تعجبك الفكره !

ملاحظه: اذا لم يعمل معك بشكل جيدا يجب عليك تحميل اداة 

Microsoft Windows Common Controls 6.0 SP6

حتي تتمكن باستخدام اداة listview 

تحياتي لحضرتك

____برنامج المعطل ver 20 2024 مثال.xlsm

رابط هذا التعليق
شارك

في 29‏/9‏/2024 at 21:59, moodyfy2 said:

انى استخدمت TextBox1 بدلا من TextBox21 لادراج رقم الحساب كما كنت استخدمه مسبقا . 

* لكن المشكلة عن البحث داخل رقم الحساب فى TextBox21 يكود خطا كما هو موضح بالصورة 

صراحة لم افهم طلبك اليوزرفورم يشتغل بشكل جيد ما الغرض من استبدال العناصر مادام تم تنفيد ما طلبته وزيادة 

رابط هذا التعليق
شارك

اخى الكريم محمد هشام.

اشكر حضرتك كثير وبعتذر للتاخير فى الرد لظروف طارئة

انا مش عاوز استبدل العناصر انا بوضح لحضرك عند كتابة شيئ فى TextBox1 يعطى رسالة خطا

وتحياتى لحضرتك

15.jpg

رابط هذا التعليق
شارك

ادن جرب هدا 

Private Sub TextBox1_Change()
    Dim ws As Worksheet, rng As Range
    Dim cell As Range, results As Collection
    Dim searchKey As String, i As Long

    Set ws = ThisWorkbook.Sheets("HOME1")
    Set rng = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
    Set results = New Collection
    ListBox1.clear
    searchKey = Trim(TextBox1.Text)
    For Each cell In rng
        If InStr(1, cell.value, searchKey, vbTextCompare) > 0 Then
            On Error Resume Next
            results.Add cell.value, CStr(cell.value)
            On Error GoTo 0
        End If
    Next cell
    For i = 1 To results.Count
        ListBox1.AddItem results(i)
    Next i
    TextBox19 = ListBox1.ListCount
    If searchKey = "" Then
        Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then
                ctrl.Text = ""
            End If
        Next ctrl
          TextBox19 = ListBox1.ListCount
    End If
End Sub

 

 

برنامج المعطل 2024 V5.xlsm

تم تعديل بواسطه محمد هشام.
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information