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

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

قام بنشر

اتمنى منكم اخواني الكرام ان تساعدوني في تطوير هذا البرنامج (نسخة معدلة حسب احتاجاتي لها في العمل وهي من برنامج الاخ العزيز المايسترو)

ولكم جزيل الشكر والامتنان

Employs v1.1.rar

قام بنشر

السلام عليكم

أخي الكريم

أول نقطة

تريد

البحث يكون بتطابق الرقم وليس بتطابق جزء من الرقم

في أوائل الكود iFind()

وبعد سطر

End If

بسطرين ستجد السطر

If (Sheets(MySheets).Cells(F, "B") Like "*" & [D7] & "*") Then
بدله بـ

If Sheets(MySheets).Cells(F, "B") = [D7].Value Then

تم تعديل الكود

ثاني نقطة

و

ثالث نقطة

أنظر المرفق - الزرين الأصفرين

Employs v2.rar

قام بنشر

اخي العزيز طارق

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

ولكن لي طلب ( اتمنى ان لا اثقل على حضرتك)

ان يكون زر بحث متشابه خاص للبحث عن القيمه الاخرى المتشابهة ان وجدت وليس اضهار القيمة الاولى وبعدها الثانية فنستخدم للاولى زر البحث عن موظف وللقيمة المتشابهة الثانية زر بحث متشابهة وفي حال عدم وجود قيمة متشابهة تظهر رسالة تنبيهة ((اترك نصها لحضرتك))

وشكراً للمرة الثانية

ابو احمد

قام بنشر

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

ارجوكم اخوان ان تساعدوني في حل هذه المعضلة ((اضافة الخانات)) حيث انه هناك حاجة ماسة لاضافة بيانات اكثر عن الشخص (مثل تاريخ الميلاد والمؤهل العلمي وتاريخ اخر اجازة ونوعها وغيرها من البيانات الهامة )

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information