فورم استعلام

[أبو چيداء]

المطلوب بالمرفقات

nnnn.zip

[رجب جاويش]

أخى الفاضل / أبو جيداء

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

وعند اختيار الرقم من القائمة تظهر بياناته كما تريد

[أبو چيداء]

استاذى رجب جاويش

هذا جدول تجريبى انما الجدول الاصلى يحتوى على اكثر من 5000 عامل

[طلعت محمد حسن]

أخي العزيز تم تعديل بعض الامور ارجوا ان تطلع على المرفق وتخبرني ان كان هناك بعض التعديل

هام جدا.rar

[رجب جاويش]

أخى الفاضل / طلعت محمد حسن

تسلم ايديك

ولاثراء الموضوع

هذه حل آخر

عن طريق كود فى حدث ال TextBox1 

Private Sub TextBox1_Change()
Dim arr()
LR = Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range("A2:A" & LR)
x = Val(Me.TextBox1)
'=======================================
On Error Resume Next
For Each cl In Rng
    If cl = x Then
        Me.TextBox2 = cl.Offset(0, 1)
        Exit For
    End If
Next
For Each cll In Rng.Offset(0, 1)
    If cll = Me.TextBox2 Then
        i = i + 1
        ReDim Preserve arr(1 To i)
        arr(i) = cll.Offset(0, 1)
    End If
Next
Me.ListBox1.List = arr
End Sub

هام جدا.rar

[طلعت محمد حسن]

دائما مبدع يا استاذ رجب ونحن نتعلم من اعمالك

تسلم ايدك.

[أبو چيداء]

استاذى رجب تسلم ايديك اولا دائما انت مبدع

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

[رجب جاويش]

أخى الفاضل / طلعت محمد حسن

شكرا جزيلا اخى الفاضل على كلماتك الطيبة

[رجب جاويش]

أخى الفاضل / أبو جيداء

تفضل ما تريد

 

هام جدا2.rar

تم تعديل فبراير 15, 2014 بواسطه رجب جاويش

[رجب جاويش]

وهذا حل به كود مختلف قليلا

 

هام جدا3.rar

[أبو چيداء]

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

ثانيا اريد ان اضيف شىء وهو بان عندما اكتب الكود الصحيح تظهر البيانات وعندما احذف الكود من التيكست بوكس 1 تحذف النتائج من التيكست بوكس 2 والليست بوكس

وايضا كوماند اذا ضغطت عليه ينسخ الداتا كلها في شيت جديد

وشكرا لك

[رجب جاويش]

تفضل أخى

 

هام جدا3.rar

[أبو چيداء]

شكرا لك اخى رجب

اريد ان اجعل الليست بوكس من الشمال وذلك لان الداتا بالانجليزية وايضا اريد كود لجعل الفورمات بالنسبة المئوية

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

[رجب جاويش]

أخى الفاضل / أبو جيداء

بالنسبة لتنسيق النسبة المئوية

يكون مثل السطر التالى

        arr(2, i) = Format(cll.Offset(0, 2), "yyyy/m/dd")

مع تغيير الجزء "yyyy/m/dd" بالجزء "%0"

 

أما بالنسبة لتغيير الليست من الشمال الى اليمين فهو فى المرفق

 

هام جدا3.rar

[أبو چيداء]

استاذى رجب ممكن اعرف طريقة تغير الليست بوكس من الشمال الى اليمين

[رجب جاويش]

أخى الفاضل

من خصائص الفورم

الوضع الافتراضى للخاصية  RightToLeft  هو False   فى هذه الحالة يكون الفورم من الشمال الى اليمين

أما اذا تم تغيرها الى True  يكون الفورم من اليمين الى الشمال

وفى الحالتين يؤثر على الليست معه

 

تم تعديل فبراير 16, 2014 بواسطه رجب جاويش

[أبو چيداء]

استاذنا رجب

ممكن اعرف ازاى اوسع  المسافىة بين النتائج فى اليست بوكس

[رجب جاويش]

أخى الفاضل

أكتب الأرقام التى تريدها هنا

بعد تنشيط الليست بوكس

 

[أبو چيداء]

استاذى رجب ما المقصود بالارقام

انا اقصد في عندى عمود به تيكست كبير التيكست كله مش بيظهر فى الليست بوكس

ما الحل

شكرا

[رجب جاويش]

أخى الفاضل

الأرقام هى عرض أعمدة الليست بوكس

[أبو چيداء]

استاذى رجب

برجاء اضافة زر لعمل نسخ لكل الداتا فى شيت اكسيل جديد مع نسخ label

[أبو چيداء]

استاذتى عباقرة اوفيسنا

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

وشكرا

[رجب جاويش]

أخى الفاضل /أبو جيداء

طلبك موجود فى الملف المرفق فى المشاركة 12

[أبو چيداء]

استاذى الفاضل رجب انا اقصد ان يتم ترحيل االداتا كلها فى book جديد للموظف وحده اي لكل موظف book

[رجب جاويش]

أخى الفاضل / أبو جيداء

ان شاء الله يتم عمل اللازم