طارق نادر

للرفع... للرفع

السلام عليكم اريد فقط عمل يوز فورم للبرمجية المرفقة بحيث تظهر عند فتح البرمجية ومن ثم ادخال الرقم السري او كلمة المرور وشكرا لتعاونكم علما ان كود البرمجية tareq972708 2015 صيفية برمجية استعلام.rar للرفع...

كل الشكر والتقدير لك

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

للرفع

السلام عليكم ارفق ملف اريد عمل في الصفحة تنسيق شرطي بحيث اذا كتبت اي كلمة في اي من الاعمدة المعنية يتلون الصف الذي فيه الحدث الى اللون الرمادي والاعمة التي اريد عمل الحدث فيها هي من k ,ولغاية q اي سبعة اعمدة Book1.rar

لك احترامي وتواضعك الكريم

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

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

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

للرفع

للرفع

للرفع

اخواني اعلم ان طلباتي كثيرة ولكن مامن احد الجئ اليه الا لهذا المنتدى الرائع ارجو منكم مشاهدة الموضوع بعنوان (5 خطوات ويكتمل المطلوب) واعذروني على الحاحي لضرورة الملف في عملي

للرفع..

ساعدوني ارجوكم كما عاداتكم في اغاثة من يريد ان ينهل من خبراتكم السلام عليكم ارفق لكم اخواني ملف اريد منكم التالي اذا تكرمتم *قائمة منسدلة في الفورم وتكون مرنة في الفلترة عند الكتابة فيها في TextBox6 ويكون فيها كلمتان فقط (اعزب,متزوج) الموجوده في صفحة اسمها القوائم *قائمة منسدلة في الفورم وتكون مرنة في الفلترة عند الكتابة فيها في TextBox10 يكون فيها اسماء المدارس الموجوده في صفحة اسمها القوائم *هناك زر في اليوز فورم اسمه (حفظ التعديل) فيه كود لايعمل ارجو اصلاحه اذا تكرمتم *اريد ايضا زر على اليوز فورم يحذف الصفوف الغير ملونة فقط ويكون تنفيذه عى صفحة (البيانات) *اريد زر تنسيق الصفوف من حيث نوع الخط وحجمه وهذا متروك لكم ولذوقكم الرفيع اذا اردتم اضافة اي شي اخر يخص التنسيق بحيث تكون الصفحة دائما في حدود الطباعة ويتم تنفيذ هذا الامر على صفة (المساعدين2,المدراء2) وهكذا يكون المشروع قد انتهى بنجاح بفضل جهودكم المباركة ارفق لكم الملف الباسورد هو tareq972708 شاكر لكم جهودكم 2017صيفية برمجية المعتمدة استعلام.rar

ساعدوني ارجوكم كما عاداتكم في اغاثة من يريد ان ينهل من خبراتكم السلام عليكم ارفق لكم اخواني ملف اريد منكم التالي اذا تكرمتم *قائمة منسدلة في الفورم وتكون مرنة في الفلترة عند الكتابة فيها في TextBox6 ويكون فيها كلمتان فقط (اعزب,متزوج) الموجوده في صفحة اسمها القوائم *قائمة منسدلة في الفورم وتكون مرنة في الفلترة عند الكتابة فيها في TextBox10 يكون فيها اسماء المدارس الموجوده في صفحة اسمها القوائم *هناك زر في اليوز فورم اسمه (حفظ التعديل) فيه كود لايعمل ارجو اصلاحه اذا تكرمتم *اريد ايضا زر على اليوز فورم يحذف الصفوف الغير ملونة فقط ويكون تنفيذه عى صفحة (البيانات) *اريد زر تنسيق الصفوف من حيث نوع الخط وحجمه وهذا متروك لكم ولذوقكم الرفيع اذا اردتم اضافة اي شي اخر يخص التنسيق بحيث تكون الصفحة دائما في حدود الطباعة ويتم تنفيذ هذا الامر على صفة (المساعدين2,المدراء2) وهكذا يكون المشروع قد انتهى بنجاح بفضل جهودكم المباركة ارفق لكم الملف الباسورد هو tareq972708 شاكر لكم جهودكم 2017صيفية برمجية المعتمدة استعلام.rar

للرفع

للرفع باسورد الملف tareq972708

للرفع للرفع

للرفع

للرفع

للرفع

للرفع

السلام عليكم جميعا ارفق لكم الكود الذي لايعمل باضافة الى الملف لكي تتوضح الصورة لكم ....مع خالص امتناني لكم جميعا Private Sub CommandButton4_Click() Dim ws As Worksheet, LastRow As Long Set ws = ThisWorkbook.Sheets("البيانات") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 If Me.ComboBox1.Text <> "" Then For T = 2 To LastRow If Me.ComboBox1.Text = ws.Cells(T, 3) Then ws.Cells(T, 2).Resize(1, 14).Interior.Color = vbCyan For i = 2 To 17 ws.Cells(T, i).Value = Me.Controls("TextBox" & i).Value Next MsgBox "تم تعديل بيانات الموظف بنجاح", vbOKOnly + vbInformation, "تم التعديل" GoTo 1 End If Next End If 1 For i = 2 To 17 Me.Controls("TextBox" & i).Value = "" Next CommandButton3.Enabled = False CommandButton4.Enabled = False Me.ComboBox1.Clear TextBox2.SetFocus End Sub 2017صيفية برمجية المعتمدة استعلام.rar