listbox تنسيق

[صياد الجراح]

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

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

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

  2-  هو حاليا بيظهر الفواتير  المستحقة اليوم  فقط .. المطلوب جعله يظهر بيانات الفواتير المستحقة اليوم  والمتاخرة عن ميعادها ايضا

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

تذكير بتاريخ الاستحقاق.xlsm

[عبدالفتاح في بي اكسيل]

طريقة خاطئة في  جلب  البيانات لليست بوكس  عليك  تحديد  ارقام  للاعمدة بالليست بوكس  وما  يقابلها  من  اعمدة الورقة . 

[صياد الجراح]

ا. عبد الفتاح .. استذان حضرتك توضح لى الصح فى الكود

 

[عبدالفتاح في بي اكسيل]

اعيد  قراءة ما  قلته لك جيدا .

ولماذا  لا تبحث  في  المنتدى  هذه  المواضيع  متوفرة  بكثرة   ؟ واجزم  لا  احد  يستخدم هذه الطريقة . 

 

[صياد الجراح]

شكرا لحضرتك ا.عبد الفتاح  .. قمت بالبحث بالفعل ولم اصل لشئ  ..نتنظر احد من الاساتذة الافاضل يكون عنده وقت للمساعدة

جزاك الله خير

[عبدالفتاح في بي اكسيل]

لم تبحث  جيدا  ولم تجيبني على مشاركتي  الثانية .

ماذا يعني  لك هذا  الجزء   

Me.ListBox1.AddItem

عندما  قلت  لك يجب  ان تشير  الى  رقم  العمود بالليست بوكس ؟

[صياد الجراح]

Me.ListBox1.AddItem Sheet1.Cells(ss, 1)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(ss, "e")
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sheet1.Cells(ss, "d")
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sheet1.Cells(ss, "c")
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = Sheet1.Cells(ss, "b")
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = Sheet1.Cells(ss, "a")

اذا حضرتك تقصد الجزء الخاص بربط البيانات بالليست بوكس  زى الكود اعلاه مثلا ..ده بيظهر لى كل بيانات الجدول 

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

 

[عبدالفتاح في بي اكسيل]

نعم  هذا  ما  قصدته   وهذا  ما  فهمته  منك  ان  لديك  مشكلة  في  اظهار  كافة  الاعمدة .

[صياد الجراح]

بعد التعديل زى ما فهمت من حضرتك وتعديل الاخطاء اللى كانت موجوده اتحلت اول مشكلة  التنسيق وظهرت كل الاعمدة بشكل سليم ..جزاك الله خير

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

لما بكتب <=  فى الدالة الشرطية بتظهر لى كل الصفوف  والمطلوب ظهور الصفوف اللى تاريخها يساوى او اصغر من تاريخ اليوم فقط

تذكير بتاريخ الاستحقاق.xlsm

[محمد هشام.]

If Left(Sheet1.Cells(ss, "d").Value, a) = Left(Me.TextBox1.Text, a) Or Left(Sheet1.Cells(ss, "d").Value, a) < Left(Me.TextBox1.Text, a) Then

جرب اخي

تذكير بتاريخ الاستحقاق(1).xlsm

[صياد الجراح]

اخى محمد .. بارك الله فيك..  الكود اللى حضرتك ارفقته زى ماهو بيظهر لى بيانات بتواريخ اكبر من  تاريخ اليوم

مثل سنه 2023  و 2024  ..وانا محتاج يظهر لى الصفوف اللى بتساوى او اصغر من تاريخ اليوم فقط ..لك ودى وتقديرى

[محمد هشام.]

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

 

ولك اخي الفاضل الاكواد المستخدمة ربما يستفيد منها احد الاعضاء

تذكير بتاريخ الاستحقاق_MH.xlsm

[صياد الجراح]

بسم الله ماشاء الله عليك اخى ..مجهود جبار ربنا يبارك فيك  

مشكور على تعبك ووقتك ومجهودك الجبار..حاشوف الكود واحاول افهمه..  لك ودى وتقديرى لشخصك الكريم

 

 

[محمد هشام.]

العفو اخي الكريم .وأي إستفسار أو إضافة لا تتردد في طلبها  ..بالتوفيق 

 

[عبدالفتاح في بي اكسيل]

@صياد الجراح

اعتقدت  لقد  حصلت  على  اجابة  بناء  على  منشورك #7

ولكن  يبدو  انه  تم  تصميم  برنامج  يختلف  عن  منشورك  الاصلي .

هذا  تعديل  ابسط  مما  تتصور  وتستطيع  فهم  كودك  بتعديلات  بسيطة .

 

Private Sub CommandButton2_Click()

Dim ls As Integer
Dim ss As Integer, EDt As Date

With Me.ListBox1
    .ColumnCount = 5
    .ColumnWidths = "103;103;103;103;103"
    .TextAlign = fmTextAlignCenter
End With

ls = Sheet1.Range("D" & Rows.Count).End(xlUp).Row
Me.ListBox1.Clear

'convert text to date
EDt = CDate(Me.TextBox1.Text)

With Sheet1
    For ss = 2 To ls
        If .Cells(ss, "d") <= EDt Then
            Me.ListBox1.AddItem .Cells(ss, 1)
            Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ss, "b")
            Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ss, "c")
            Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Format(.Cells(ss, "d"), "mm/dd/yyyy")
            Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ss, "e")
        End If
    Next ss
End With

End Sub

 

[محمد هشام.]

@عبدالفتاح في بي اكسيل نعم استادنا الفاضل الفكرة في تعديل البرنامج لهده الدرجة   هو  توفير امكانية البحث للسائل  بجميع الطرق الممكنة

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

الا انني فكرت في تطوير برنامجه فقط

 

[صياد الجراح]

أخى عبد الفتاح

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

لك ودى وتقديرى لشخصك الكريم

اخى محمد .. مفيش كلام يوافيك حقك ومجهودك

اولا  .. انت فتحت لكل واحد زى حالتى مجال البحث عشان نفهم الدوال والمتغيرات المستخدمة فى الكود والمصفوفات وازاى نربط بينهم -  

وخصوصا ان الواحد لسا بيقول ياهادى فيهم ..  واسئلة الواحد هنا لغرض التعلم والفهم مش مجرد عمل برنامج

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

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