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

[moodyfy2]

السلام عليكم 

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

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

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

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

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

 ) وعند الضغط على نتائج البحث

 

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

[moodyfy2]

الأساتذة الكرام 

هل يوجد حل لمشكلتي وجزاكم الله خيرا 

[عبدالله بشير عبدالله]

السلام عليكم  

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

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

[moodyfy2]

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

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

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

4.7z

[عبدالله بشير عبدالله]

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

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

[عبدالله بشير عبدالله]

تعديل للملف 

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

تم تعديل سبتمبر 25, 2024 بواسطه عبدالله بشير عبدالله

[إبراهيم ابوليله]

السلام عليكم

استاذنا الفاضل عبدالله

مشكورا على الكود الجميل

وفققك الله

تقبل تحياتى

[عبدالله بشير عبدالله]

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

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

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

تم تعديل سبتمبر 25, 2024 بواسطه عبدالله بشير عبدالله

[moodyfy2]

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

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

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

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

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

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

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

[عبدالله بشير عبدالله]

السلام عليكم 

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

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

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

تقبل تحياتي

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

تم تعديل سبتمبر 26, 2024 بواسطه عبدالله بشير عبدالله

[عبدالله بشير عبدالله]

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

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

 

الملف

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

[moodyfy2]

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

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

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

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

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

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

 

[محمد هشام.]

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

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

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

 

 

 

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

تم تعديل سبتمبر 27, 2024 بواسطه محمد هشام.

[moodyfy2]

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

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

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

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

[محمد هشام.]

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

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

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

 

 

 

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

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

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

تم تعديل سبتمبر 28, 2024 بواسطه محمد هشام.

[عبدالله بشير عبدالله]

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

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

تحياتي لكما

[moodyfy2]

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

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

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

[AmirMohamed]

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

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

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

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

Microsoft Windows Common Controls 6.0 SP6

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

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

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

[moodyfy2]

استاذ AmirMohamed بارك الله فيك 

بيعطى خطا كما هو موضح 

وشكرا

[محمد هشام.]

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

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

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

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

[moodyfy2]

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

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

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

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

[محمد هشام.]

ادن جرب هدا 

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

تم تعديل أكتوبر 4, 2024 بواسطه محمد هشام.