عبد الفتاح كيرة

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

شكرا على الحل الجميل أستاذ عبد الله

شكرا لك أستاذ هشام

مرحبا أخانا هشام شلبى عودا حميدا والله أنت من بين من كنت أتساءل عنهم حمدا لله على سلامتك أخى هشام

جزاك الله خيرا أخى الكريم

نعم أخى هذا هو سطر اللصق و فيه المدى Sheets("ÇáãßÑÑ").Range("a" & i) = mycol(i) و لتغيير المدى ل c7 يصير Sheets("ÇáãßÑÑ").Range("c" & i + 6) = mycol(i) المرفقات الأخ الأستاذ yhiacom أشكرك على مرورك الكريم حذف السطور المكررة باستخدام collection-kemas3.rar

الشكر الجزيل لجميع الإخوة حفظهم الله الأخ الأستاذ عبد الله المجرب شكر خاص على رفع الموضوع و كلماته الطيبة الأخ الأستاذ القومي شكرا لك على تشجيعك وفقك الله الأخ الفاضل alouma حفظك الله و رعاك و ممنون لكلامك الطيب الأخ الفاضل aah_aah2008 جزاك الله خيرا على تثبيت الموضوع الأخ yahiaoui بورك فيك جزاكم الله جميعا كل خير و بارك فيكم

رائع جدا أخانا عبد الله إبداع متواصل معكم الإكسل صار أسهل

أبو عاصم تم تنفيذ طلبك الأول و الثانى الطلب الثالث الله يعين Sub ZEKO() On Error Resume Next Dim mycol As Collection Dim myrng As Range Set mycol = New Collection For Each myrng In Range("a1:a300") mycol.Add myrng.Value, myrng.Value Next myrng Sheets("المكرر").Range("a:b").ClearContents For i = 1 To mycol.Count Sheets("المكرر").Range("a" & i) = mycol(i) Next i End Sub حذف السطور المكررة باستخدام collection-kemas2.rar

لم أفهم المطلوب تماما جرب هذا المرفق جديد الوادي الاخضر-kemas.rar

تفضل Book1-kemas.rar

شكرا ما معنى هذه الجملة ممكن شرح بسيط هل يستلزم الاستعلام هذا ربط الجدولين؟ In (SELECT b.[xx] FROM b;)

أهو هذا Sub ÒÑ1_ÇäÞÑ() On Error Resume Next Dim mycol As Collection Dim myrng As Range Set mycol = New Collection For Each myrng In Range("a1:a300") mycol.Add myrng.Value, myrng.Value Next myrng For i = 1 To mycol.Count Range("b" & i) = mycol(i) Next i End Sub المرفق حذف السطور المكررة باستخدام collection-kemas.rar

أحسن الله إليكم و زادكم علما أخى منتصر أخى nart lebzo

معلومة قيمة إذن الأفضل تنفيذ الكود على عناصر التحكم بالنموذج لنجمع بين تحديث النموذج و تحديث الجدول صحيح؟

أولا حساب السنة مثلا المعاش يكون إلى نفس تاريخ البدء +1 مثلا موظف تعيين 1/1/ سنة 50 يحال على المعاش اليوم الثانى من شهر واحد سنة 2010 ويوم 1-1 2010 هو يوم عمل و يتغافل عن الشهر الكبير 31 يوما لأن وسط السنة شهور قصيرة و شهر فبراير 28 أو 29 -- ثانيا لقد أفدتنى الليلة إفادة عظيمة حيث عرفت طريقة عمل حقول حسابية تلقائية بالجدول عن طريق نموذج وهناك سؤال لماذا غيرت أسماء المربعات الثلاثة فى النموذج لتخالف أسماء الحقول بالجدول هل هذا مهم؟ و جزاك الله خيرا و ممنون لك جدا و إن شاء الله أشرف بمصاحبتكم فى منتدى أكسيس فقط لأتعلم

الآن التعديل فى النموذج يؤدى للتعديل فى الجدول بربط الحقول الثلاثة بالكود هل هذا صحيح؟ أرجو توضيح أكثر للطريقة وشكرا لوقتك الثمين بارك الله فيك

التاريخ الأول 05/11/1995 التاريخ الثانى 01/10/2010 فارق الأيام = 26 فارق الشهور =10 فارق السنوات = 14 هذا هو الأصح لأننا نستلف 30 يوما

شوف أخى الحل كالآتى سنلغى المسافة من المعادلة وبذلك نوفر 9 مرات وسنعمل المسافة فى اسم المادة نفسه يعنى المادة: دين + مسافة واحدة من مسطرة المسافات انظر المرفق المعادلة =CONCATENATE(IF(B4<B3;B1;"");IF(C4<C3;C1;"");IF(D4<D3;D1;"");IF(E4<E3;E1;"");IF(F4<F3;F1;"");" ";IF(G4<G3;G1;"");IF(H4<H3;H1;"");IF(I4<I3;I1;"");IF(J4<J3;J1;"");IF(K4<K3;K1;"");IF(L4<L3;L1;"");IF(M4<M3;M1;"");IF(N4<N1:N3;"");IF(O4<O3;O1;"");IF(P4<P3;P1);IF(Q4<Q3;Q1;"");IF(R4<R3;R1;"")) دالة if 17-kemas.rar

أخى منتصر الهدف أن يكون فى الجدول عمود حساب أوتوماتيكى عند إدخال تاريخ ميلاد الطالب فى حقل تاريخ الميلاد تحسب تلقائيا 3 أعمدة يوم - شهر - سنة بدون تدخل كما بالإكسل للآن تمكنت من عمل ذلك كاملا بفضل الله ثم الملف المرفق لكن فى استعلام لعله أيضا من إنتاجك و هو عبارة عن وظيفة تحسب ذلك أو بالأحرى 3 وظائف أنا استخدمت الوظائف فى استعلام و تعمل تمام السؤال الآن كيف يمكن نقل تلك الأعمدة الثلاثة بوظائفها الحسابية من الاستعلام إلى الجدول أو ربط الاستعلام بالجدول بحيث ندخل تاريخ الميلاد فقط فى نموذج أو جدول وتحسب الأعمدة الثلاثة تلقائيا الملف المرفق به الوظائف الثلاثة حساب العمر1.rar

السلام عليكم أخى أبا أحمد معذرة تم تعديل المرفق إلى 2003

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

بارك الله فيك أستاذ عبد الله

أخى المعتصم نعم فهمتك جزاك الله خيرا

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