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

السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير شرح امكانيات الفورم وكيفية الاستخدام: 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss .kh_SetAddrss "مثال1", "C10:AO10" اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. . kh_SetAddrss "مثال2", "C4:H4", "B4" 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب القائمة وتفصل بين الكلمات بالعلامة + 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 ----------------------------------------------------------------------------------------------------- هذه الامكانية غفلنا عن ذكرها : 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا: "E15,C15,H15:AX15" اول عمود هو E ----------------------------------------------------------------------------------------------------- المرفق 2003-2007 فورم ادخال و تعديل مرن.rar الاصدار الثاني http://www.officena.net/ib/index.php?showtopic=48811 الاصدار الثالث: http://www.officena....showtopic=51955

الكل يعتقد أن المعادلة يمكن أن تكون أقل من الكود فى الإمكانيات ولكن لى وجهة نظر محتلفة وهذا هو الدليل من عجائب المعادلات.rar

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

أخى الفاضل هذا كود مبدئى لدمج العمودين وان كنت تريد تعديل بشكل آخر أخبرنى Sub ragab() Dim cl As Range For Each cl In [L4:L16] If cl = "" And cl.Offset(0, -4) <> "" Then cl.Value = cl.Offset(0, -4).Value End If Next End Sub دمج عمودين.rar

السلام عليكم الاستاذ الكبير / محمد طاهر حدثت فعلا هذه المشكلة معي قبل ذلك منذ فترة ولكني لم اجد حلا الا انني قمت باعادة تنزيل الاوفيس مرة اخري فهنيئاً لنا الكود الرائع واجمل ما فيه انه من اكواد السهل الممتنع جزاك الله خيرا وجعل هذا الصرح وكل اعماله في ميزان حسناتكم يوم القيامة

السلام عليكم ورحمة الله أخي الكريم، تم تعديل في الورقة "1" بإضافة عمود في بداية الجدول وضعت فيه معادلة لتكرار قيم العمود C (سابقا) (ملون بالأخضر) وكود حماية الورقة (لأجل العمود A الذي تركت خلاياه محمية) هو 123... ومعادلة VLOOKUP في الورقة الثانية أضفت لها جزء بالدالة MATCH للقيام بعملية "اختبار وجود / عدم وجود قيمة البحث في العمود A من ورقة البيانات"... أرجو أن يفي التعديل بالمطلوب... وتجد أيضا دوالا أخرى مخصصة (دوال بحث) بديلة عن دالة VLOOKUP من عمل أخينا الحبيب والعزيز "عبد الله باقشير" وتسمح بالبحث عن قيمة في أي عمود من جدول بيانات يمكنك أن ترجع إليها... أخوك بن علية 1.rar

ممكنطريقة من غير اكواد

السلام عليكم أخي علي فتحي ، حياك الله تفضل الملف التالي لعل فيه ما تطلب فتحي.rar